- Katılım
- 9 Ocak 2018
- Mesajlar
- 40
- Excel Vers. ve Dili
- 2007
- Altın Üyelik Bitiş Tarihi
- 11.01.2023
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
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
Ekli dosyalar
-
645.1 KB Görüntüleme: 3