Sayı Formatı: SGK İşyeri Sicil No Biçimlendirme

Sayın @Feyzullah 'ın aşağıdaki konu sayfasında verdiği KTF (Kullanıcı Tanımlı Fonksiyon) kullanılabilir.
Yapmanız gereken tek şey;
kodda yer alan ......eplace(plaka, "$1.$2.$3.$4.$5.$6.$7.$8.$9")
kısmındaki NOKTA karakterlerinin yerine BOŞLUK yazmak.

Ömer abi Feyzullah Beyin cevabı isteğimi karşılıyor. Bu cevabı =SayiNoktaXD() şeklinde değil de hücreye girdiğimizde istediğimiz format olacak şekilde nasıl revize edebiliriz değişecek bu hususta yardımlarınızı rica etsem.

Hücre biçimlendirmesiyle sonuç alacağınızı hiç sanmıyorum.
Kaldı ki sonuç alınsa dahi, göreceğiniz sonuç hücre içeriğini değiştirmeyecek sadece görünümü değiştirecektir.

Başka bir hücreye uygulayacğınız şu formülün sonucu gerçekten nokta karakterli halini verir.
Nokta yerine boşluk istiyorsanız formüldeki NOKTA karakterlerinin yerine BOŞLUK karakteri yazarsınız.

Ben bunu kod olarak B4 hücresine girdiğimizde istediğimiz format olacak şekilde nasıl revize edebiliriz demek istemiştim. Ama bu da oldu. Çok teşekkürler.

O zaman ilgili sayfanın kod bölümüne uygulayın ve B4'e uzunluğu 26 karakter olan
sayıları (zaten hücre biçimi METİNdir) yazıp ENTER tuşuna basın.


.

Çok teşekkür ederim

Ömer abi bu birden çok hücreye uygulamaya çalıştığım da hata alıyorum bu hususta yardımlarınızı rica ediyorum.

If Intersect(Target, [B4;B6;B7;B10]) Is Nothing Then Exit Sub

[B4;B6;B7;B10] yerine Range("B4, B6:B7, B10") gibi deneyin,

Hatanın ekran görüntüsü.

Sorunlu örnek belge ekleyin,

Ömer abi Range("B4, B6:B7, B10")'yi Range("B4, B6,B8, B10") şeklinde düzeltince oldu. Çok teşekkür ederim.

B7'ye ne oldu?

B7 deki sicili iptal edip B8 yazdım. B4,B6,B8,B10 olarak 2 şerli şeklide olsun istedim.