• DİKKAT

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

İban Nosu biçimlendirme

mcetinkaya65

Altın Üye
Katılım
1 Mart 2011
Mesajlar
490
Excel Vers. ve Dili
2021 türkçe
B3 hücresine İndisle İsim sayfasından, Iban nosu bu şekilde geliyor.TR123412341234123412341234

Bunu TR 1234 1234 1234 1234 1234 1234 şeklinde yazdırmamız müm kün mü?
Saygılarımla
 
Merhaba;

İsim sayfasında:
A sütununda isimler,
B sütununda ibanlar varsa;

Sayfa1 sayfasında:
A3 hücresinde aranan isim varsa;

Sayfa1 sayfası kod bölümüne;

Sub iban()
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
Set s2 = ThisWorkbook.Worksheets("İsim")
[B3] = ""
For i = 1 To s2.Range("A65536").End(xlUp).Row
If s2.Cells(i, 1) = s1.Cells(3, 1) Then
s1.Cells(3, 2) = s2.Cells(i, 2)
End If
Next i
ilk = [B3]
bir = Mid(ilk, 1, 2) & " "
iki = Mid(ilk, 3, 4) & " "
üç = Mid(ilk, 7, 4) & " "
dört = Mid(ilk, 11, 4) & " "
beş = Mid(ilk, 15, 4) & " "
altı = Mid(ilk, 19, 4) & " "
yedi = Mid(ilk, 23, 4) & " "
[B3] = bir & iki & üç & dört & beş & altı & yedi
End Sub

Kodlarını yerleştirin ve bir buton ile çalıştırın.

Link:
http://s3.dosya.tc/server2/hnzsz7/mcetinkaya65-iban.zip.html
 

Ekli dosyalar

Geri
Üst