Tarih yazdırma

[steppe]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("B1:B100")) Is Nothing Then Exit Sub
aa = ("01.06.2013")
Target.Offset(0, -1) = aa
End Sub

Yukarıdaki kodla:
B1:B100 aralığında herhangi bir hücreye veri girildiğinde sol tarafında A sütunundaki hücreye 01.06.2013 tarihi yazdırılabiliyor.

İstediğim nasıl geliştirilip de A sütununda herhangi bir hücreye
1 girdiğimde 01.06.2013
5 girdiğimde 05.06.2013
25 girdiğimde 25.06.2013 25.06.2013 yazdırmak istiyorum.
Yardımlarınız için şimdiden teşekkürler.

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

If Intersect(Target, [a1:a1000]) Is Nothing Then Exit Sub
Target.Offset(, 1) = Format(Target, "00") & Format(Date, "/mm/yyyy")

 

[steppe]

Seyit Tiken Hocam,
Yardımların için çok teşekkür ederim.Rakamı girdiğim hücreye tarihi yazdıramaz mıyız? Target.Offset(, 1) kısmında 1'i 0 ve -1 yaptım olmadı.
Bir başka problem girilen rakamı ve tarihi birlikte silmeye kalkınca Run-time error'13':Type Mismatch hatası veriyor.

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    On Error GoTo Son
    If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Tarih = ".06.2013"
    Target = CDate(Target.Value2 & Tarih)
Son: Application.EnableEvents = True
End Sub

 

[steppe]

Korhan Ayhan Hocam,
Yardımların için çok teşekkür ederim.Tam istediğim gibi olmuş