• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

İban numaralarını otomatik düzeltme

Katılım
11 Ocak 2008
Mesajlar
1,395
Excel Vers. ve Dili
Office 365 (Türkçe)
TR346780808088000000000000 RAKAMLI iban numaralarnı bankaya hazır olması açısından TR34 6780 8080 8800 0000 0000 00 formatında otomatik hale getirme.
 
merhaba

bu işinizi görür mü?
özel sayı biçimi, hesap noyu yazarken önüne TR yazmadan sadece rakamları giriniz.

Kod:
"TR"00 0000 0000 0000 0000 0000 00
 
Teşekkürler sayın uzmanamele...
 
merhaba

teşekkürünüz için teşekkür ederim.
ancak teşekkür için biraz erken davrandınız!

merhaba

söylediklerim yanlış anlaşılmasın.

önerdiğim sayı formatı doğru değil, denemeden önermişim.
syn assenucler da denemeden teşekkür ettiği için erken davrandınız dedim.
 
"biçimlendirme özel bölümü" derken bunu bilmiyorum. nedir. Bunu nasıl yapacağız.Üstadım.
 
"biçimlendirme özel bölümü" derken bunu bilmiyorum. nedir. Bunu nasıl yapacağız.Üstadım.

Merhaba,

İlgili hücreleri fare ile seçin ve sağ klik yapın, açılan pencerede ; Sayı--İsteğe Uyarlanmış'ı seçin, Tür; Genel kutusuna önerilen formülü elle girin, pencerede "Tamam" düğmesini tıklayın,

İlgili hücrelerin biçimi tamamlanmış olur,

Kolay gelsin.
 
Merhaba,

İlgili hücreleri fare ile seçin ve sağ klik yapın, açılan pencerede ; Sayı--İsteğe Uyarlanmış'ı seçin, Tür; Genel kutusuna önerilen formülü elle girin, pencerede "Tamam" düğmesini tıklayın,

İlgili hücrelerin biçimi tamamlanmış olur,

Kolay gelsin.

Bu şekilde sondaki sekiz adet rakama ne yazarsanız yazın 0 yapıyor. Benimde bu işleme ihtiyacım var. Çözüm bulabilen varsa iletsin lütfen.
 
"A1" hücresi "metin" biçimli ve yalnız sayıların olduğunu varsayalım.

"B1" için formül:

Kod:
=test(A1)

Kod:
Function test(rng As Range) As String
    test = Format(rng, "TR00 0000 0000 0000 0000 0000 00")
End Function
 
"A1" hücresi "metin" biçimli ve yalnız sayıların olduğunu varsayalım.

"B1" için formül:

Kod:
=test(A1)

Kod:
Function test(rng As Range) As String
    test = Format(rng, "TR00 0000 0000 0000 0000 0000 00")
End Function
İlginize teşekkürler... Bu kodu visual basicte; "bu çalışma kitabınamı?" " sayfa1" emi kayıt edicem.
 
Kodu, menuden Insert > Module deyip içine yapıştırmanız gerekiyor.
 
Teşekkürler.Üstadım
 
Geri
Üst