İsteğe Uyarlanmış Hücre Formatı

[mbasaranyt]

Böyle Bir Format Mümkün mü Yoksa Makro mu Kullanmalıyım.
İlgilenen Arkadaşlara Şimdiden Teşekkür Ederim.

 

[iplikci_80]

Deneyiniz
Hücre Biçimlendirme/İsteğe Uyarlanmış
"2020""/"0000

Yıl değiştiğinde
"2021""/"0000

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümünü kopyalayıp deneyiniz.
Doğru mu anladım bilemiyorum. A1 hücresindeki değer değiştiğinde B hücresi ona göre biçim alır.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    
    Columns("B:B").NumberFormat = Chr(34) & [A1] & "/" & Chr(34) & "0000"
    
End Sub

 

[mbasaranyt]

Çok Teşekkür Ederim Necdet Bey Doğru Anlamışsınız.
Bunun İçin Makroyu Kullanacağız.
Özel Formatla Çözümü Yok Herhalde.
Sayfamda
Private Sub Worksheet_Change(ByVal Target As Range)
Başka Kodlarım Var.

 

[mbasaranyt]

Necdet Bey
Columns("B:B").NumberFormat = Chr(34) & [A1] & "/" & Chr(34) & "0000"
burada ("B3:B1002").NumberFormat olarak nasıl düzenleyebilirim.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b3:b1002]) Is Nothing Then Exit Sub
Target.NumberFormat = Chr(34) & Format(Date, "yyyy") & "/" & Chr(34) & "0000"
End Sub

 

[mbasaranyt]

Seyit Bey
Çok Teşekkür Ederim Bu Şekilde Çok Güzel Oldu Sorun Çözüldü.