Kodu başka hücrede nasıl kullanabilirim.

[ersoyalan]

Ustalarım merhaba,

Aşağıdaki kodu başka hücrelerde nasıl kullanabilirim....
Örnek - K-K hücrelerindede aynı işlem olsun..


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Now
Son:
End Sub

 

[metinozlu]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [K:K]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Now
Son:
End Sub

 

[ersoyalan]

Metinozlu merhaba,

Bu şekilde yapabiliyorum fakat aynı sayfa içinde birden fazla hücrede kullanmak istediğim zaman olmuyor..

 

[metinozlu]

hücreleri belirtmen gerekir

 

[ersoyalan]

Örnek A:A hücrelerinden hariç
E:E - J:J gibi...

 

[metinozlu]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [E:J]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Now
Son:
End Sub

 

[ersoyalan]

metinozlu bunları bende denedim fakat istediğim bir türlü olmadı..Sende verdiğin kodaları denediysen eğer J hücresine girdiğim oluyor fakat E hücresine giriş yapınca K'ya kadar tarih gösteriyor ben bunu istemiyorum...
A:A hücresine giriş yapınca nasıl tarih saat görünüyorsa K hücresine yada J hücresine giriş yaptığımdada Ahücresine girdiğim gibi olsun...

 

[Korhan Ayhan]

Selamlar,

Sn. ersoyalan,

E sütununda hücreye veri girdiğinizde tarih hangi sütuna yazılacak?
F sütununda hücreye veri girdiğinizde tarih hangi sütuna yazılacak?

 

[ersoyalan]

Hocam günaydın,
(Paydos ettiğim için mesajınızı bugün gördüm..)

Formül A:A olarak yazılmış..Ahücresine veri giriş yaptığımda B hücresine saat tarih yazılıyor.Benim istediğim kullanmakta olduğumuz ortak bir rapor var..Bu raporda istediğim hücrelere ne zaman veri girişi yapıldığını görmek istiyorum..Örneğin F hücresine veri giriş yapıldığı zaman Ghücresine H hücresine veri giriş yapıldığında ise I hücresine tarih saat yazsın..istiyorum..Bu kodu aynı sayfa içerisinde birden fazla hücrede kullanmak istiyorum..

Saygılarımla,
İyi çalışmalar.
E.ALAN

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [E:E,G:G,I:I,J:J]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Now
Son:
End Sub

 

[ersoyalan]

Hocam merhaba,

Hep söylüyorum…Büyüksünnnnnn…

İyi çalışmalar..