how do i hide buttons when starting a workbook?
and then how do i unhide the button when i click the SUBMIT button?
The button will contain a recorded macro but that is nothing to worry about...
and how do i hide multiple buttons?
Private Sub CommandButton1_Click()
'CLOSE BUTTON
Me.Hide
Unload Me
End Sub
Private Sub CommandButton2_Click()
'SUBMIT BUTTON
Dim Rng As Range
Dim Total As Double
With ListBox1
For I = 0 To 11
Set Rng = Range(.List(I, 1))
If .Selected(I) = False Then
Rng.EntireColumn.Hidden = True
Else
Rng.EntireColumn.Hidden = False
Total = Total + Rng.Cells(51, 4).Value
End If
Next I
End With
Range("$AV$51").Value = Total
End Sub
Private Sub CommandButton3_Click()
'RESET BUTTON
Dim I As Integer
For I = 0 To 11
ListBox1.Selected(I) = False
Next I
Range("A:AV").EntireColumn.Hidden = False
End Sub
Private Sub UserForm_Activate()
Dim I As Integer
With ListBox1
.Clear
For I = 0 To 11
.AddItem
.List(I, 0) = WorksheetFunction.Choose(I + 1, "January", "February", "March", _
"April", "May", "June", _
"July", "August", "September", _
"October", "November", "December")
.List(I, 1) = WorksheetFunction.Choose(I + 1, "A:D", "E:H", "I:L", "M:P", _
"Q:T", "U:X", "W:AB", "AC:AF", _
"AG:AJ", "AK:AN", "AO:AR", "AS:AV")
Next I
End With
End Sub
Thanks So Much.....
how do i hide a button when excel starts?
Bookmarks