Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ajuste de data ao d...
 
Notifications
Clear all

Ajuste de data ao digitar a coluna

 
2024 - VBA & Macros
Post Recente por Wagner Morel 7 anos atrás
2 Posts
2 Usuários
0 Reactions
871 Visualizações
RSS
 kayomaster
(@kayomaster)
Posts: 90
Trusted Member
Topic starter
 

olá estou precisando de algo bem simples, eu tentei mexer aqui mas como sou leigo sempre da erro o codigo é esse:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 4 Then
Range("P1").Value = Date

Target.Offset(0, 4).Value = Target.Offset(0, 4).Value + Target.Value
ElseIf Target.Column = 3 Then
Target.Offset(0, 4).Value = Date
Range("G1").Value = Date
End If
End Sub

ai preciso que mude isso tudo para apenas quando eu digitar qualquer valor na coluna M ele coloque a data atual na coluna Z.
é bem simples pra quem entende pra mim apaguei mudei os valores mas nao consegui fazer.

 
Postado : 07/02/2018 12:30 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

kayomaster,

Boa tarde!

Muda tudo para:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    
    If Target.Count > 1 Then
        Application.EnableEvents = True
        Exit Sub
    End If
    
    If Target.Column = 13 Then
        Range("Z" & Target.Row).Value = Date
    End If
    
    Application.EnableEvents = True
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 07/02/2018 12:50 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico