Veri Girişinde Tarih Yazan Makroyu 2 Veri Girişine Uyarlamak

[mumunal]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
If Target <> "" Then Target.Offset(0, 2) = Now
If Target = "" Then Target.Offset(0, 2) = ""
End Sub

A sütununa girilen veriyi mütakip c sütununa tarih yazan bu makroyu. Hem A hemde B sütununa (birbirinden bağımsız olarak) veri girişinde müteakip sütunlara tarih yazabilir hale dönüştürebilirmiyiz? Teşekkürler!

 

[Recep İpek]

A&#351;a&#287;&#305;daki &#351;ekilde deneyebilirmisiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target,[COLOR=red] [a2:b1000][/COLOR]) Is Nothing Then Exit Sub
If Target <> "" Then Target.Offset(0, 2) = Now
If Target = "" Then Target.Offset(0, 2) = ""
End Sub

 

[mumunal]

Te&#351;ekk&#252;rler &#220;stad. Kod &#231;al&#305;&#351;&#305;yor. Fakat
Now yerine Today yazd&#305;&#287;&#305;mda &#231;al&#305;&#351;m&#305;yor. Nas&#305;l yapabilirim.

 

[Recep İpek]

Siz gg/aa/yyyy &#351;eklinde mi yazd&#305;r&#305;lmas&#305;n&#305; istiyorsunuz?

 

[mumunal]

Evet. Bug&#252;n() kar&#351;&#305;l&#305;&#287;&#305;

 

[Recep İpek]

O zaman

If Target <> "" Then Target.Offset(0, 2) = Format(Now,"dd.mm.yyyy")

olarak deneyin.

 

[mumunal]

Tekrar Te&#351;ekk&#252;rler. Elinize Sa&#287;l&#305;k.