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

 

[askhamali]

Soru çok mu zor oldu ?

 

[Necdet]

Merhaba,

Zoru zor değil de çok işlenen konu. Target.Column değişkenini kullanarak istediğiniz alanlarda kontrol yapabilirsiniz. Aşağıdaki kod ThisWorkBook'un kod bölümünde olmalı.

Kodların çalışmasını istemediğiniz sayfalarda çıkmasını sağlayınız. Ben örnek olması açısından Sayfa adının xxxx olması durumunu kodda belirttim, siz kendinize göre birden fazla sayfayı da kontrol edebilirsiniz.

Kodları inceleyiniz. P sütunun sütun indisi 16 dır.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    If ActiveSheet.Name = "xxxx" Then
        Exit Sub
    ElseIf Target.Column = 16 Then
        If Not Intersect(Target, [P3:P16]) Then
            Exit Sub
        Else
            Cells(Target.Row, "T") = Now
        End If
    ElseIf Target.Column = 36 Then
        If Not Intersect(Target, [AJ19:AJ23]) Then
            Exit Sub
        Else
            Cells(Target.Row, "AV") = Now
        End If
    End If
    
End Sub

 

[Necdet]

Yanıt anlaşılmıyor mu? Yanıttan sonra yaklaşık 2 saat sonra foruma girilmiş ama tık yok

 

[Necdet]

Efendim?




.