Este fórum está sendo desativado

[miltonleandro]

Boa tarde Pessoal,
Tenho esse código que Pinta de verde a célula da coluna A, porém preciso pintar a linha da coluna A até a H.
Alguém pode me ajudar?

Plan2.Select
Plan2.Range("A2").Select

With Worksheets("PRODUTOS").Range("A:A")
Set C = .Find(CbbCodigo.Value, LookIn:=xlValues, Lookat:=xlWhole)

If Not C Is Nothing Then
C.Activate
C.Offset(0, 0).Interior.Color = &H80FF80 'verde
C.Offset(0, 7).Value = Date
Else
'MsgBox "Não localizado", vbInformation, ""
End If

End With

[osvaldomp]

Código: Selecionar todos

If Not c Is Nothing Then
 c.Resize(, 8).Interior.Color = &H80FF80 'verde
 c.Offset(0, 7).Value = Date
Else
'MsgBox "Não localizado", vbInformation, ""
End If

[miltonleandro]

Obrigado Osvaldo!
Perfeito...