VBA - data de preenchimento automático quando os dados inseridos na célula

Question

Eu tenho uma planilha de acompanhamento na qual gostaria que a data em que uma célula fosse preenchida fosse preenchida automaticamente na próxima coluna. Eu encontrei o seguinte código que funciona para o primeiro (I: I), mas gostaria de adicionar o mesmo código a 5 outras colunas (ou seja, quando os dados são inseridos em K1, a data é preenchida em L1, quando os dados são inseridos em P1 , data preenche em Q1).

Eu nunca usei o VBA antes. Eu tentei apenas copiar / colar o código e alterar o intervalo, mas recebo um erro de nome ambíguo. Como eu mudo o nome para que eu possa reutilizar o código?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim A As Range, B As Range, Inte As Range, r As Range
    Set A = Range("I:I")
    Set Inte = Intersect(A, Target)
    If Inte Is Nothing Then Exit Sub
    Application.EnableEvents = False
        For Each r In Inte
            r.Offset(0, 1).Value = Date
        Next r
    Application.EnableEvents = True
End Sub

Obrigado,

Melanie

    

Answer 1

A mudança para incorporar várias colunas é bem simples. Apenas uma linha de código precisa ser alterada:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, B As Range, Inte As Range, r As Range
Set A = Range("I:I,K:K,P:P")
Set Inte = Intersect(A, Target)
If Inte Is Nothing Then Exit Sub

Application.EnableEvents = False
    For Each r In Inte
        r.Offset(0, 1).Value = Date
    Next r
Application.EnableEvents = True
End Sub

Isso monitorará as colunas I , K e P