![]() |
Userform loses its capabilities...reset???
Private Sub CommandButton1_Click() If CheckBox1 = True Then Unload UserForm1 Sheet2.Activate UserForm2.Show Else End If End Sub "userform1, in sheet1, contains the above code. So when i select th checkboox "true" and click on the command but...then it unload userform1, activates, sheet2 and loads userform2....everything i working perfectly...this far....then userform2 contains the followin code: Sub UserForm_Initialize() LabelZoom.Caption = ActiveWindow.Zoom With ScrollBarZoom 'zoom .Min = 10 .Max = 400 .SmallChange = 1 .LargeChange = 10 .Value = ActiveWindow.Zoom End With With ScrollBarColumns 'horizontal scrolling .Min = 1 .Max = 256 .Value = ActiveWindow.ScrollColumn .LargeChange = 25 .SmallChange = 1 End With With ScrollBarRows .Min = 1 .Max = ActiveSheet.Rows.Count .Value = ActiveWindow.ScrollRow .LargeChange = 25 .SmallChange = 1 End With End Sub Sub ScrollBarZoom_Change() With ActiveWindow .Zoom = ScrollBarZoom.Value LabelZoom = .Zoom & "%" .ScrollColumn = ScrollBarColumns.Value .ScrollRow = ScrollBarRows.Value End With End Sub Sub ScrollBarColumns_Change() ActiveWindow.ScrollColumn = ScrollBarColumns.Value End Sub Sub ScrollBarRows_Change() ActiveWindow.ScrollRow = ScrollBarRows.Value End Sub Sub userform_terminate() Sheet1.Select UserForm1.Show End Sub "with this code the userform2 allows the user to zoom & scroll th active sheet2 with the controlls on the userform....and when I clos the user form it terminates the userform and loads userfrom1 in sheet again...working perfectly but when i repeat the cycle userform2 load perfectly within sheet2 but non of the controls to scroll or zoom th sheet that i have created on the userform2 seems to work.....??? -- T.c.Goosen197 ----------------------------------------------------------------------- T.c.Goosen1977's Profile: http://www.excelforum.com/member.php...fo&userid=3589 View this thread: http://www.excelforum.com/showthread.php?threadid=55719 |
All times are GMT +1. The time now is 06:06 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com