[Resolvido] Pintar a linha na Planilha
Enviado: 15 Jul 2022 às 12:16
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
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
