iban düzenleme

[sinemomec]

24 karakterli iban numarasını son 17 karakterini seçip kaydetmesini istiyorum. nasıl yapabilirim.

 

[Greenblacksea53]

İban numarasını kayıt ederken textbox'mı baz alınacak yoksa exceldeki sutünda bulunan değerler mı son 17 karakteri kaydedilecek?

 

[sinemomec]

örneğim yüz tane farklı yada elli tane farklı kişininkini aynı anda çevirmesini istiyorum excel sayfası olması daha mantıklı olmazmı

 

[Necdet]

Merhaba,
SAĞDAN fonksiyonunu denediniz mi?

 

[sinemomec]

hayır denemedim fonksiyonu tam bilmiyorum yardımcı olursanız sevinirim.

 

[Greenblacksea53]

Sub gizle()
    For i = 1 To Sayfa1.Range("a65536").End(3).Row Step 1
      
        bag = Mid(Range("a" & i), 8, 24)
        Range("a" & i) = "*****" & bag
    Next
MsgBox ("işlem tamamlanmıştır.")

End Sub

Verilerin A sütünda diye düşünerek yaptım

 

[sinemomec]

bu tam istediğim gibi ancak yıldız koymasını istemiyorum.

 

[Greenblacksea53]

Sub gizle()
    For i = 1 To Sayfa1.Range("a65536").End(3).Row Step 1
      
        bag = Mid(Range("a" & i), 7, 24)
        Range("a" & i) = "'" & bag
    Next
MsgBox ("işlem tamamlanmıştır.")

End Sub

O zaman bunu kullanabilirsin

 

[Necdet]

Alternatif olsun, Right- Sağdan fonksiyon kullanımı

Sub IBAN_Son17_Rakam()

    Dim i   As Long
    
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        Cells(i, "A") = "'" & Right(Cells(i, "A"), 17)
    Next i
    
End Sub

 

[sinemomec]

teşekkür ederim

 

[sinemomec]

teşekkür ederim.

 

[Hacı Bayram ÖZKAN]

Merhaba Necdet Hocam Bayramın mübarek olsun; 9 nolu mesajındaki İbandan hesap almayı benim aşağıdaki kırmızı ile yazmış oldum yere nasıl uyarlarsam yazar bakabilir misin Teşekkürler.

Sub VAKIFBANK_1295()

Dosya = "D:\Belgelerim\Banka\VAKIFBANK.xlsx"
SonSat = Cells(Rows.Count, "B").End(3).Row
Set AÇ = New Excel.Application
AÇ.Workbooks.Open Dosya
Set hz = AÇ.Workbooks(Dir(Dosya))
Set syf = hz.Sheets(1)
syf.Range("A11:E" & Rows.Count) = Empty

'syf.Range("G2").Value = Range("k10").Value ' Bu durumda, Sayfanın K10 nu G2'ye yazıyor.
Dim a
a = InputBox("ÖDEME TARİHİNİ GİRİNİZ", "LÜTFEN DİKKAT", Date + 2)

syf.Range("C4").Value = a

syf.Range("A11:A" & SonSat + 8).Value = Range("D3" & SonSat).Value 'Adı Soyadı
syf.Range("B11:B" & SonSat + 8).Value = Right(Range("E3:E" & SonSat), 17).Value ' böyle bir şey yazdım yapmadı.
syf.Range("C11:C" & SonSat + 8).Value = Range("B3:B" & SonSat).Value 'Sicil
syf.Range("D11" & SonSat + 8).Value = Range("F3:F" & SonSat).Value 'Miktar
syf.Range("E11:E" & SonSat + 8).Value = Range("E3:E" & SonSat).Value ' İban

hz.Close SaveChanges:=True
AÇ.Quit
Set AÇ = Nothing: Set hz = Nothing

MsgBox "Banka Listesi Oluşturuldu . . . " & vbCrLf & "Bankaya Göndermek İçin Kontrol Edin.", vbExclamation, "OLEY"

End Sub

 

[Necdet]

Merhaba,
İyi bayramlar.

syf.Range("B11:B" & SonSat + 8).Value = Right(Range("E3:E" & SonSat), 17).Value

Bu satır yerine 11. satırdan sonsat+8 e kadar döngü kurabilirsiniz.

    For i = 11 To Sonsat + 8
        syf.Range("B" & i) = Right(Range("E" & i - 8))
    Next i

gibi.

 

[Hacı Bayram ÖZKAN]

Sayın teşekkürler.

 

[Hacı Bayram ÖZKAN]

Sayın abim bu olmadı yani çalışmadı, isteğimi mi anlatamadım acaba, diğer kolonlar gibi ancak E kolonundaki İbanın sağdan 17 karakterini alarak YENİ dosyasın Yani VAKIFBANK dosyasının B kolonuna yazacak. İsteğim buydu abiciğim baka bilir misin?

 

[Necdet]

Olmadı demek kolay. Sizin kodlarınıza dayanarak kodları yazmıştım.
En iyisi örnek dosya ekleyiniz.

 

[Hacı Bayram ÖZKAN]

Tamam kızmayın size minnettarız.

 

[Necdet]

Tamam kızmayın size minnettarız.

kızmak ne demek, olayı anlamak için konuşuyoruz.

 

[Hacı Bayram ÖZKAN]

Merhaba Necdet Hocam; Dosyaları ekledim, Bakarsan sevinirim. LİSTEM dosyasından KAPALI olan Vakıfbank Dosyasına veriler gönderilecek, A, C, D, E ye gönderiyor ancak B kolonuna göndermek için ekleme yapmanı istiyorum. Saygılarımla...

 

[Necdet]

Merhaba,

İşin doğrusu neyi nereye yazacağımı anlamadım ama VAKIFBANK Dosyasının E sütununa yazdırdım. Başka bir sütun ise kodda değişiklik yapınız

For i = 3 To SonSat
    syf.Cells(i + 8, "E") = Right(Cells(i, "E"), 17)
Next i