Kodda Revize / İsteğe Uyarlanmış Hücre Formatı

Sayın @yasarpiskin .

Alt taraftan işlem yapılacak sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin ve açılacak VBA ekranında sağdaki boş alana aşağıdaki kodu yapıştırın.


.

Ömer abi çok teşekkür ederim.

Verilen cevabı uyguladığımda isteğim oluyor fakat yazdığım veriyi silmek istediğimde N5 hücresindeki gibi oluyor.

Koddaki If Intersect...... satırının hemen altına
If Target.Value = Empty Then Exit Sub
şeklinde bir satır ekleyin.

.

Teşekkür ederim.

Ömer abi çok özür dileyerek bir ricada bulunmak istiyorum, cevabı "202012" gibi rakamları "2020/0012" şeklinde değil de "2020/12" şeklinde "2020/" sonraki kısmının da "20000" kadar olmasını sağmak hususunda yardımlarınız rica ediyorum.

Kod aşağıdaki gibi düzenlenirse; ilk 4 karakter, sonra / simgesi, sonra da yazılan değerin 5'inci karakterinden sonraki kısmı
birleştirilerek sonuca varılır. Hücre silinirse bir işlem yapılmaz.
Örneğin;
-- 202012 yazılmışsa sonuç 2020/12
-- 2020987 yazılmışsa sonuç 2020/987,
-- 2020123456789 yazılmışsa sonuç 2020/123456789
şeklinde olur. / işaretinden sonraki kısım için bir sayı sınırlaması (üst sınır) mı istiyorsunuz ?


.