Este fórum está sendo desativado

[JairJunior2]

Boa tarde!

Preciso de um código Vba que quando eu lançar nas colunas "R$ compra", as colunas "data" preencham automáticas a data de "hoje". EX: se eu lançar em "B3" o valor de "R$10,00", "C3" preenche "14/03/19".

[osvaldomp]

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Cells(2, Target.Column) = "R$ Compra" Then
  If Target.Value <> "" Then
   Target.Offset(, 1).Value = Date
  Else: Target.Offset(, 1).Value = ""
  End If
 End If
End Sub

[JairJunior2]

Deu certo, obrigado Osvaldo!