DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = CDate("31.12.2019") Then
Target = "YENİ DÖNEM": End If
End Sub
Üstad çok teşekkür ederim. Sağlıcakla kalınHücre Biçimlendirme ile yapamadık, kod ile oluyorsa;
Kod:Private Sub Worksheet_Change(ByVal Target As Range) If Target = CDate("31.12.2019") Then Target = "YENİ DÖNEM": End If End Sub
[=43830]"YENİ DÖNEM";gg.aa.yyyy
Çok teşekkür ederim Korhan Ayhan üstadım. Sağlıcakla kalınAlternatif;
Hücre Biçimlendirme-Özel bölümüne aşağıdaki biçimi tanımlayınız.
Kod:[=43830]"YENİ DÖNEM";gg.aa.yyyy