Veri Girilen Hücrenin Yanına Tarih Ekleme

[bennidetto]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("d4:d48")) Is Nothing Then Exit Sub
bugun = Format(Now, "hh:mm;@")
Target.Offset(0, 1) = bugun

End Sub





Öncelikle kolay gelsin arkadaşlar....d4:d48 hücreleri, arasına herhangi bir karakter girdiğimde yanına saati yazıyor....Faket ben buna başka bir hücre aralığını eklemek istiyorum....(Örnek olarak l4:l39 hcreleri arası)


Yardımcı olabilirmisiniz...
Saygılarımla....
İyi çalışmalar.....

 

[kulomer46]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("d4:d48")) Is Nothing And Intersect(Target, Range("I4:I39")) Is Nothing Then Exit Sub
bugun = Format(Now, "hh:mm;@")
Target.Offset(0, 1) = bugun
End Sub

 

[hamitcan]

Kodları aşağıdaki şekilde kısaltabiliriz.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Intersect(Target, Range("d4:d48, i4:i39")) Is Nothing Then Exit Sub
    bugun = Format(Now, "hh:mm;@")
    Target.Offset(0, 1) = bugun
End Sub

 

[bennidetto]

Merhaba......
Değerli üstatlarım teşekkür ederim yardımlarınızı için.....

Saygılarımla
İyi çalışmalar....

 

[bennidetto]

Değerli üstatlarım.....
vermiş olduğunuz macroyu uyguladım gayet güzel çalışıyor
eklemek istediğim bir kaç şey var.İlave olarak bazı hücre aralıklarını eklemek istiyorum(g4:g48, o439)fakat tam tersine bir sonraki hücreye değilde bir önceki hücreye saati yazdırmasını istiyorum.Aşağıdaki makroya nasıl ekleyebiliriz.....

Saygılarımla....
İyi çalışmalar....


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("d4:d48, i4:i39")) Is Nothing Then Exit Sub
bugun = Format(Now, "hh:mm;@")
Target.Offset(0, 1) = bugun
End Sub

 

[bennidetto]

Cevap vericek kimse yokmu....

 

[Necdet]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("D4:D48, I4:I39, G4:G48")) Is Nothing Then Exit Sub
Target.Offset(0, [COLOR=red][B]-[/B][/COLOR]1) = Format(Now, "hh:mm")
End Sub

 

[bennidetto]

Teşekkür ederim.....

Saygılarımla....
İyi çalışmalar....