 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / Excel / New Users / November 2006Further Show Hide Problem with VBA
Hi again! Bob kindly gave me a suggestion for using VBA to show /hide using a single button. This worked fine until I decided I wanted to have another custom area off to the side. The problem being that when I try to return from this third view not all rows columns are showing. I thought I might get round this by including an unhide for all rows and columns to create a normal view to go from but then the toggle views don't seem to do anything. Any help greatly appreciated DonH Call Unl Application.ScreenUpdating = False Rows("25:75").EntireRow.Hidden = Not Rows("25:75").EntireRow.Hidden Rows("98:148").EntireRow.Hidden = Not Rows("98:148").EntireRow.Hidden Rows("244:294").EntireRow.Hidden = Not Rows("244:294").EntireRow.Hidden Rows("317:367").EntireRow.Hidden = Not Rows("317:367").EntireRow.Hidden Range("K4").Select Calculate Call Pro  SignatureHTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "DonH" <d.hart440@ntlworld.com> wrote in message news:WIB4h.25197$Ib.15825@newsfe1-gui.ntli.net... > Hi hope you can help. > > I know next to nothing about VBA and have adapted code below from stuff I > had. > > I simply want to show hide portions of my page to cut down on screen > clutter/information overload. > > I have assigned my macro to a screen image but was wondering if I could have > a hide and unhide under the same button. > > Any help would be much appreciated > > Call Unl > Application.ScreenUpdating = False > Rows("25:75").EntireRow.Hidden = True > Rows("98:148").EntireRow.Hidden = True > Rows("171:221").EntireRow.Hidden = True > Rows("244:294").EntireRow.Hidden = True > Rows("317:367").EntireRow.Hidden = True > Range("K4").Select > Calculate > Call Pro > > DonH Why does your unhide all not work? SignatureHTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) > Hi again! > [quoted text clipped - 47 lines] > > > > DonH Sorry to be thick :-) The new (third area) I created is Columns("C:BH").EntireColumn.Hidden = False Rows("4:367").EntireRow.Hidden = False Columns("E:BA").EntireColumn.Hidden = True Rows("4").EntireRow.Hidden = True Rows("19:77").EntireRow.Hidden = True Rows("91:150").EntireRow.Hidden = True Rows("166:223").EntireRow.Hidden = True Rows("238:296").EntireRow.Hidden = True Rows("310:367").EntireRow.Hidden = True When I go to Rows("25:75").EntireRow.Hidden = Not Rows("25:75").EntireRow.Hidden Rows("98:148").EntireRow.Hidden = Not Rows("98:148").EntireRow.Hidden Rows("244:294").EntireRow.Hidden = Not Rows("244:294").EntireRow.Hidden Rows("317:367").EntireRow.Hidden = Not Rows("317:367").EntireRow.Hidden Cell info is missing so I tried to insert Columns("C:BH").EntireColumn.Hidden = False Rows("4:367").EntireRow.Hidden = False to unhide the rows columns I need to see Columns("C:BH").EntireColumn.Hidden = False Rows("4:367").EntireRow.Hidden = False Rows("25:75").EntireRow.Hidden = Not Rows("25:75").EntireRow.Hidden Rows("98:148").EntireRow.Hidden = Not Rows("98:148").EntireRow.Hidden Rows("244:294").EntireRow.Hidden = Not Rows("244:294").EntireRow.Hidden Rows("317:367").EntireRow.Hidden = Not Rows("317:367").EntireRow.Hidden When I rem out Columns("C:BH").EntireColumn.Hidden = False Rows("4:367").EntireRow.Hidden = False the switching works fine until I go to the new view then when I go back columns are missing and with the Rem removed the sitching gets stuck. I'm getting very confused :-( DonH > Why does your unhide all not work? > [quoted text clipped - 53 lines] >> > >> > DonH > I'm getting very confused :-( You and me both Don. I am sorry, but I just don't get what the problem is that you are experiencing. You say cell info is missing, do you mean that it is hidden? When you hide your rows, what is getting hidden that you don't want to be?
|
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.