Visual Basic formatação condicional VBA "EXTERNO";"INTERNO"

Leandro Lamin · 22 de setembro de 2021

Boa noite, estou iniciando com vba, E já consegui construir rotina, mas tem alguns erros.

minha intenção é, quando digitar em qualquer célula da coluna "A" e movimentar com Enter ou com as setas, apareça a data na coluna "H" e a hora na coluna "I"

tenho também uma formatação condicional , que gostaria de ativar pelo vba. =SE(A7<>"";SE(N7="";"EXTERNO";"INTERNO");"") São para indicar os carros internos (Cor Verde) e carros Externos (Cor Vermelho). já tive vários problemas com a formatação, porque sempre alguém apaga. isso é terrível

Agradeço pela ajuda!

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Erro
Dim i As Double ' PARA PEGAR A LINHA
Dim C As String ' PARA COLUNA SELECIONADA

C = ActiveCell.Column

If C = 1 Then
i = ActiveCell.Row - 1 ' SES ESTIVER O CURSOR NA COLUNA 1 QUE A COLUNA CRITERIO QUE VOU DIGITAR
Else
i = ActiveCell.Row ' POSSO MUDAR O CURSOR PARA QUAL QUER LADO
End If

On Error Resume Next 'EM CASAO DE ERRO SEGUE EM FRENTE
If Planilha1.Cells(i, 1).Value <> "" Then  ' SE ESTIVER VAZIO NÃO FAZ NADA, PRECISO DIGITAR ALGO NA COLUNA 1 OU A
If Planilha1.Cells(i, 9).Value = "" Then   ' alterar
If C <> 9 Then

If i > 1 Then


Planilha1.Cells(i, 9).Value = VBA.Time ' alterar 'COLOCAR HORA, 9 SE REFERE A COLUNA B
Planilha1.Cells(i, 9).Value = VBA.Format(Planilha1.Cells(i, 9).Value, "hh:mm") ' alterar

Planilha1.Cells(i, 8).Value = VBA.Date 'alterar COLOCAR DATA, 8 SE REFERE A COLUNA D, OU SEJA 1 É COLUNA A, 2 COLUNA B E ASSIM VAI

End If
End If
End If
End If

If C = 1 Then
If Planilha1.Cells(i, 1).Value = "" Then
Planilha1.Cells(i, 9).Value = ""

End If
End If
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "ERRO"
End Sub

teste 34 chassi.rar