Aynı sayfada birden fazla kod

[askhamali]

Sıkıntım aynı çalışma sayfasına 1'den fazla amaç için kod yazabilmek.

Aşağıdaki çalışma üzerinde 32 çalışma sayfası için

mesela P3 P16 arasındaki hücreye veri girdiğimde T sütununa,
AJ19 AJ23 arasındaki hücrelere veri girdiğimde AV sütununa,

ve ekleyebileceğim başka hücreler için başka sütunlara da

verinin girildiği anın tarih ve saati otomatik atmasını istiyorum.

Ancak bu 32 sayfada başka amaçta kodlar var.Aşağıdaki tarih saat ekleme kodunu girdiğimde sonuç alamıyorum.Değişik şekillerde de denedim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [P116]) Is Nothing Then
Cells(Target.Row, "T") = Format(Now, "dd/mm/yyyy - hh:mm")
End If
End Sub

 

[Korhan Ayhan]

Aşağıdaki gibi kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("H3")) Is Nothing Then
        Application.ScreenUpdating = False
        Diz
        Yeni
        If Range("AH1") = 0 Then
            MsgBox "Bulamadı"
            Range("AH1:BZ1000") = ""
        Else
            Yaz
            Range("AH1:BZ1000") = ""
        End If
    End If
    If Not Intersect(Target, [P1:P16]) Is Nothing Then
        Cells(Target.Row, "T") = Format(Now, "dd/mm/yyyy - hh:mm")
    End If
End Sub

 

[askhamali]

Teşekkürler Korhan Hocam.
Hocam bir de kodu detaylı incelerseniz daha önce http://www.excel.web.tr/f48/kodlary-deoi-tirmem-mi-gerek-t169772.html

sayfasındaki sorumla ilgili örnek dosya aynı bu dosya idi. Örnek dosya eklerseniz inceleriz demiştiniz. İnceleyebilirseniz oradaki değerli cevabınızı da bekliyorum. Hürmetlerimi sunarım.