VBA ile hucreye tarih yazdirma

[mustafaine1]

Arkadaslar A1 hucresine x yazdigimda b1`e bugunun tarihini value halde yazmam gerekiyor, sanirim vba ile olabilir bu; fikri olan varmi acaba?

 

[Orion1]

Çalışma sayfasının kod bölümüne.
Ekli dosyayı inceleyiniz..cool:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If UCase(Target.Value) = "X" Then
    Target.Offset(0, 1).Value = Date
    Target.Offset(0, 1).NumberFormat = "dd.mm.yyyy"
End If
End Sub

 

[mustafaine1]

evren bey cok tesekkur ederim yanliz ben bunu a2 - b2 seklindede uzatmak istiyorum ne yapmam gerekir

 

[Orion1]

Arkadaslar A1 hucresine x yazdigimda b1`e bugunun tarihini value halde yazmam gerekiyor, sanirim vba ile olabilir bu; fikri olan varmi acaba?

evren bey cok tesekkur ederim yanliz ben bunu a2 - b2 seklindede uzatmak istiyorum ne yapmam gerekir

O zaman niye sorunuzu öyle sormadınız?
Dosya ektedir..cool:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error Resume Next
If UCase(Target.Value) = "X" Then
    Target.Offset(0, 1).Value = Date
    Target.Offset(0, 1).NumberFormat = "dd.mm.yyyy"
End If
End Sub

 

[mustafaine1]

bu arada satir eklenince hata veriyor!!

 

[Orion1]

bu arada satir eklenince hata veriyor!!

Dosyayı güncelledim.2 numaralı mesajdan indirebilirsiniz.

 

[mustafaine1]

Hergun calistigim bi dosyaydi ve hata verdigi halde kullanmataydim boylesi gercekten cok iyi oldu tesekkurler ; Evren Gizlen.

 

[mardahan55]

"On Error Resume Next"

eklerseniz hata vermeyecektir.

 

[mustafaine1]

evet benım suan calıstırdıgım bır dosya uzun zamandır kullanıyorum, overdue olan faturaları buluyorum..