VBA for Check Box or Button

[Viking1221]

Hello All,

I am just beginning to learn about VBA and I have a file I am beginning to workon. Is there a specific reason to use a check box vs a button to hide or unhiderows? While on the subject what are the limitations to each object?

Can someone show me a simple macro that will hide allrows that have “LE1” in column A?

Thanks.

 

[KOKOSEK]

Hi

Not tested, straight from head:

Sub HideLE1Rows()
Dim cell As Range
For Each cell In [A1:A1000]
    If cell.Value = "LE1" Then Cells(cell.Row, cell.Column).EntireRow.Hidden = True
Next cell
End Sub

if you want to hide rows with value like 'somethingLE1something' change if for:

    If cell.Value like "*LE1*" Then Cells(cell.Row, cell.Column).EntireRow.Hidden = True

 

[Viking1221]

Hi

Not tested, straight from head:

Sub HideLE1Rows()
Dim cell As Range
For Each cell In [A1:A1000]
    If cell.Value = "LE1" Then Cells(cell.Row, cell.Column).EntireRow.Hidden = True
Next cell
End Sub

if you want to hide rows with value like 'somethingLE1something' change if for:

    If cell.Value like "*LE1*" Then Cells(cell.Row, cell.Column).EntireRow.Hidden = True

Thank you that works great. I also want to see if I can make it work with a check box. What is wrong with this code:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Dim cell As Range
For Each cell In [B1:B10000]
If cell.Value = "HTSU" Then Cells(cell.Row, cell.Column).EntireRow.Hidden = True
Next cell
Else: End If
If CheckBox1.Value = False Then
Dim cell As Range
For Each cell In [B1:B10000]
If cell.Value = "HTSU" Then Cells(cell.Row, cell.Column).EntireRow.Hidden = False
Next cell
End Sub

 

[KOKOSEK]

Try this:

Private Sub CheckBox1_Click()
Dim cell As Range

If CheckBox1.Value = True Then
For Each cell In [B1:B10000]
If cell.Value = "HTSU" Then Cells(cell.Row, cell.Column).EntireRow.Hidden = True
Next cell
Else: End If
If CheckBox1.Value = False Then
Dim cell As Range
For Each cell In [B1:B10000]
If cell.Value = "HTSU" Then Cells(cell.Row, cell.Column).EntireRow.Hidden = False
Next cell
End Sub

 

[KOKOSEK]

Ignore above (for some reason I can't edit).

Try this

Private Sub CheckBox1_Click()
Dim cell As Range
For Each cell In [B1:B10000]
    If CheckBox1.Value = True And cell.Value = "HTSU" Then Cells(cell.Row, cell.Column).EntireRow.Hidden = True
    If CheckBox1.Value = False And cell.Value = "HTSU" Then Cells(cell.Row, cell.Column).EntireRow.Hidden = False
Next cell
End Sub