Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub OptionButton3861_Click()
if OptionButton3861 = true do nothing
else
ActiveSheet.Cells.EntireRow.Hidden = False
End Sub
Sub OptionButton1_Click()
If ActiveSheet.Shapes("Option Button 1").DrawingObject = 1 Then
MsgBox "T"
Else
MsgBox "F"
End If
End Sub
Function GetDigits(sValue as String)
If Not IsNumeric(sValue) then
for i = 1 to len(sValue)
b = mid(sValue, i, 1)
Select Case b
case "0" to "9"
GetDigits = GetDigits & b
end select
next
end if
end function
Sub OptionButton3862_Click()
Application.ScreenUpdating = False
For Each r In Sheets("Master").Range("A:A")
If r.Row > 4 Then
If r = "" Then Exit For
If IsNumeric(r) And r >= 2000 Then
r.EntireRow.Hidden = True
Else
If GetDigits(r) >= 2000 Then
r.EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub
Function GetDigits(sValue As String)
If Not IsNumeric(sValue) Then
For i = 1 To Len(sValue)
b = Mid(sValue, i, 1)
Select Case b
Case "0" To "9"
GetDigits = GetDigits & b
End Select
Next
End If
End Function
Sub OptionButton3862_Click()
Application.ScreenUpdating = False
For Each r In Sheets("Master").Range("A:A")
If r.Row > 4 Then
If r.Value = "" Then Exit For
If IsNumeric(r) And r >= 2000 Then _
r.EntireRow.Hidden = True
Else
If GetDigits(r.Value) >= 2000 Then _
r.EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub