Change cell value based on another cell when checkbox is checked

[Rocksie]

Hi

I was wondering if someone could help?

I have 2 checkboxes which cannot be selected at the same time. When one checkbox is selected, an entire row is hidden if the cell in column A ="X". Now I also need to change the value in column F to "N/A" in the row that is being hidden.

What would the VBA code looks like?

Thanks

 

[frank_AL]

Rocksie, The code below will hide all Rows if there is an "X" in Column A and it also places "N/A" in Column F of that same Row.
I assumed that you have a Header Row in Row 1 so the code starts checking in Row 2.

Sub FilterX()
Dim LastRow As Long
Dim i As Long


LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To LastRow
    If Cells(i, 1) = "X" Then
        Rows(i).EntireRow.Hidden = True
        Cells(i, 6).Value = "N/A"
    End If  '  Cells(i, 1) = "x"
Next i


End Sub

 

[Rocksie]

Thank you frank_AL for the code.

I have the following code and just want to change the values of the hidden rows in column "F" to be "N/A"

Private Sub CheckBox2_Change()

If CheckBox2 = True Then
lr = Range("A" & Rows.Count).End(xlUp).Row
Set cl_rng = Range("A30:A" & lr)

For Each cl In cl_rng
If cl.Value = "X" Then cl.EntireRow.Hidden = True
Next cl

Else
Cells.Select
Selection.EntireRow.Hidden = False
End If

ActiveSheet.Range("I33").Select

End Sub

 

[frank_AL]

Rocksie, See change below that will change the values of the hidden rows in column "F" to be "N/A"

Dim cr as Long
[/COLOR][COLOR=#333333]For Each cl In cl_rng[/COLOR]
[COLOR=#333333]    If cl.Value = "X" Then cl.EntireRow.Hidden = True
[/COLOR]    If c.EntireRow.Hidden Then
        cr = cl.Row
        [COLOR=#333333]Cells(cr, 6).Value = "N/A"
    End If[/COLOR]
[COLOR=#333333]Next cl[/COLOR][COLOR=#333333]

 

[Rocksie]

Thanks Frank!