Como destacar linha inteira de uma tabela usando o Excel VBA

Question

Estou usando um UserForm para inserir dados em uma planilha.

Gostaria de usar uma caixa de seleção para destacar toda a linha de uma tabela.

Exemplo de código:

Private Sub AddModifyAtRow(ByVal lRow As Long)
cIndex = 0
If CheckBox_NewBuild = True Then cIndex = 37
Dim ws As Worksheet
Set ws = Worksheets("Address")
With ws
     'This is the line I'd like to use to highlight row if Checkbox is True
    .Cells(lRow, 1).EntireRow.Interior.ColorIndex = cIndex

     'Enter the rest of the data from the UserForm into the Table
    .Cells(lRow, 1).Value = TxBox_Building.Text
    .Cells(lRow, 2).Value = TxBox_BTS.Text
End With

Eu também tentei usar esta linha:

.Range("Table5[lRow,[#ALL]]").Interior.ColorIndex = cIndex

    

Answer 1

Você estava quase lá com sua tentativa -

[Table5].Rows(lrow).Interior.ColorIndex = cIndex

assumindo que seu lrow é um inteiro. Basta ajustar o nome da tabela à sua tabela.