tarih göstermeyle ilgili

[power]

Kolay Gelsin,

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

yukarıdaki kodu kullanıyorum.Ay değiştiği zaman kod kısmından [Tarih=".03.2020"] ayı elle ile değiştirip kullanıyorum.bu kod yaklaşık 10 adet ayrı sayfada kullanılıyor.o yüzden değiştirmek biraz zaman alıyor.bunu otomatik yapma imkanımız olabilirmi?Yada başka bir sayfaya yol gösterilip o sayfadan değiştirildiğinde tüm sayfaların değişmesi sağlanabilirmi?

 

[AdemCan]

Merhaba Tarih = ".03.2020" satırını Tarih = "." & Month(Date) & "." & Year(Date) olarak değiştiriniz. Ay ve Yıl bilgisini güncel tarihten alır.

Tüm sayfalarda çalışması için ise aşağıdaki kodu ThisWorkbook bölümüne ekleyiniz.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("J3:J5000")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Tarih = "." & Month(Date) & "." & Year(Date)
    Target = CDate(Target.Value & Tarih)
Son: Application.EnableEvents = True
End Sub

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    On Error GoTo Son
    If Intersect(Target, Range("J3:J5000")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target = DateSerial(Year(Date), Month(Date), Target)
Son: Application.EnableEvents = True
End Sub

 

[power]

cevaplar için teşşekkür edrim.bu şekilde çok daha pratik oldu.