Simple question - Checkboxes - paint last row when enabled

[Ryokan]

I have a checkbox in a userform, i want that when the chexkbox is enabled, paint (yellow) the last filled row.

Thank you.

 

[VoG]

Try in the userform's code module

Private Sub CheckBox1_Click()
Dim LR As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Rows(LR).Interior.ColorIndex = IIf(CheckBox1.Value = True, 6, xlNone)
End Sub

 

[Ryokan]

Nice VoG. Is working so-so, the worksheet name is "Hoja de Vida Anillos-Cilindros", i need this to work in that specific worksheet so i think that something is missing.

Thank you.

 

[VoG]

Try

Private Sub CheckBox1_Click()
Dim LR As Long
With Sheets("Hoja de Vida Anillos-Cilindros")
    LR = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    .Rows(LR).Interior.ColorIndex = IIf(CheckBox1.Value = True, 6, xlNone)
End With
End Sub

 

[Ryokan]

Great :D... one last question if i want that when the user click again (unable the checkbox), get those rows with no fill... what do i need to add (to the code)??

 

[VoG]

The code already does that.

 

[Ryokan]

Theres a little problem,
when i click the 1st time (Enabled) > paints the row, good
click the 2nd time (unabled)> nothing happen
click again (enabled again) > paint the row, two rows down from the 1st paint

Apparently it goes 1 row down every time that i click on the checkbox

 

[VoG]

It doesn't do that for me. I tested with row 9 as the last row. I ticked the checkbox and row 9 was highlighted, unticked and row 9 was not highlighted. Over and over, no change in the row being highlighted.

 

[Ryokan]

Youre right the problem is that i took out the * in the What Section

Private Sub CheckUltMaq_Click()
Dim LR As Long
With Sheets("Hoja de Vida Anillos-Cilindros")
LR = .Cells.Find(What:="", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
.Rows(LR).Interior.ColorIndex = IIf(CheckUltMaq.Value = True, 6, xlNone)
End With
End Sub

The thing is i maded a mistake, i need to paint the first empty row in the table (not the last filled row), because the data is not yet introduced when the click in the checkbox is maded. But youre right with the * work properly. how can i make this work ??

Thank you.

 

[VoG]

Try

Private Sub CheckUltMaq_Click()
Dim LR As Long
With Sheets("Hoja de Vida Anillos-Cilindros")
    LR = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row + 1
    .Rows(LR).Interior.ColorIndex = IIf(CheckUltMaq.Value = True, 6, xlNone)
End With
End Sub