ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Userform loses its capabilities...reset??? (https://www.excelbanter.com/excel-programming/365905-userform-loses-its-capabilities-reset.html)

T.c.Goosen1977[_6_]

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