<userform name>.<checkbox name>.Value
'example If formHome.chkActiveOnly.Value = True Then MsgBox "User has checked the box" Else MsgBox "User has not checked the box" End If
Advertisements
<userform name>.<checkbox name>.Value
'example If formHome.chkActiveOnly.Value = True Then MsgBox "User has checked the box" Else MsgBox "User has not checked the box" End If
#'i' is an integer variable that holds the index For i = 0 To <list box name>.ListCount - 1 If <list box name>.Selected(i) = True Then Exit For Next i
#example For i = 0 To lstGuestList.ListCount - 1 If lstGuestList.Selected(i) = True Then Exit For Next i
Select Case <value> Case <value1>: <statement1> Case <value2>: <statement2> End Select
Select Case <value> Case <value1> ‘your code here Case <value2> ‘your code here … Case Else ‘your code here End Select
‘example Select Case userGradeInput ‘userGradeInput is an integer variable Case 100 MsgBox “You got a perfect grade!” Case Else MsgBox “You did not get a perfect grade.” End Select
Dim cell As Range For Each cell in Selection ‘your code here Next Cell
To select a single cell
Range("<Cell Value>").Select (ex) Range("A1").Select (ex) Range("C3").Select
To select a continuous range
Range("<Cell Value>").Select (ex) Range("A1:B4").Select (ex) Range("C3:F400").Select
To select multiple non-continuous ranges
Range("<Cell Value>, <Cell Value>").Select (ex) Range("A1:E3, H2:H44").Select (ex) Range("C3:D4, Y3:Y4").Select
To select down to the 1st empty cell
Range(Selection, Selection.End(xlDown)).Select![]()