Utilize essa sessão para postar e solucionar desafios de Excel, matemáticos, lógicos, etc...
Avatar do usuário
Por JairJunior2 14 Mar 2019 às 15:01
Membro 1 Estrela
Mensagens: 26
Reputação: 2
#41945
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".
Apenas usuários registrados podem ver ou baixar anexos.
Por osvaldomp 15 Mar 2019 às 12:28
Membro 5 Estrelas
Mensagens: 1174
Reputação: 585
#41958
Código: Selecionar todosPrivate 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