Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
...* 93 + B * 73 + c * 50 + D * 27 + e Mod 97) / 97)
Mod97 = (a * 93 + B * 73 + c * 50 + D * 27 + e Mod 97) - div97 * 97
End Function
Function convIBAN(lettre As String)
convIBAN = (Asc(lettre) - 55)
End Function
Function ControleIban(LeNumIban As String) As String
Dim x As String
LeNumIban =...
merhaba,
Şipariş No: 93681
Havale/EFT olarak ödemeyi gerçekleştirdim. Ödeme bildirim formu da dolduruldu. Üyeliğimi aktif edebilir misiniz?
Sipariş bedeli 07/04/2021 tarih ve saat: 10.12 itibariyle Finansbank TR09 0011 1000 0000 0091 5809 56 nolu iban hesabına aktarılmıştır.
Merhaba
Ekli dosyada F sütununda satırlardaki metin içerisinde bulunan TC Numaraları H sütununa, Aynı metinde bulunan IBAN Numaralarıda I Sütununa aktarılmaktadır. Dosyadaki TC numaraları ve IBAN Numaraları gerçek değildir. Örnek olsun diye birbirini takip eden numaralardan oluşturulmuştur...
Merhaba elimde çok büyük bir data var ek olarak gönderdiğim exceldeki S SUTÜNÜNDAKİ İSİM SOY İSİM TCKN VE İBAN bilgilerini h stünündan itibaren ayrı ayrı süzmen gerek böyle bir formul varmı tckn ve ibanı bile süzsem yeter çok fazla data var.teşekkürler şimdiden
...göre "D:\Belgelerim\Personel\PERSONEL LİSTESİ.xlsm" burada bulunan personel listesi dosyasındaki LİSTE ve TÜM sayfamda bulunan K sütunundaki IBAN ile karşılaştırıp TextBox17 ya yazmasını Ad Soyadını TextBox16 ye getirmesini istiyorum. Teşekkürler
Siteden Şöyle bir şey buldum ama uyarlayamadım,
Hocam, emeğinize sağlık. Bende dosya vardı zaten. Bana personel dosyasına ekleyebilecek, yani bir yerde IBAN formatı şeklinde çalışacak şekilde lazımdı. Çok çok teşekkür ederim.
Saygılarımla.
...* 93 + B * 73 + c * 50 + D * 27 + e Mod 97) / 97)
Mod97 = (a * 93 + B * 73 + c * 50 + D * 27 + e Mod 97) - div97 * 97
End Function
Function convIBAN(lettre As String)
convIBAN = (Asc(lettre) - 55)
End Function
Function ControleIban(LeNumIban As String) As String
Dim x As String
LeNumIban...
Arkadaşlar bende (modül içinde) şöyle bir kod var. İşte A2'ye IBAN yazıyorsunuz. B2'ye Hatalı IBAN yazıyor.
Private Sub Worksheet_Change(ByVal Target As Range)
Function Mod97(Numero As String) As Integer
Nro = Numero
a = 0
B = 0
c = 0
e = Right(Nro, 6)
D = Mid(Nro, Len(Nro) - 11, 6)
Select...
Tel
Teşekkür ederim hocam. Buradan değilmiş. Buradaki doğruymuş. @tamer42 hocamın dediği B sütununundaki kelimeler büyükmüş. Ben hiç orayı düşünmemiştim.
Saygılarımla.
Function ControleIban(LeNumIban As Variant) As String
Dim x As String
LeNumIban = Replace(LeNumIban, " ", "")
LeNumIban = Right(LeNumIban, Len(LeNumIban) - 4) & Left(LeNumIban, 4)
n = 1
While n <= Len(LeNumIban)
x = Mid(LeNumIban, n, 1)
If Not IsNumeric(x) Then
LeNumIban =...
Sayın hocalarımız. Bende IBAN kontrol etmek için bir excel dosyası vardı. Excel haliyle mükemmel çalışıyor. Aslında biraz istek üzerine bunu Userform'a çevirdim. Ama özellikle B1 hücresi hata veriyor. Doğru bir IBAN girince hücre değişiyor. "B1,B2,B3,B4" sağdaki sütuna çağırdım. Hata nerede...
A sütunundaki 1200 İban numarasının geçerli olup olmadıgını öğrenmek istiyorum. B sütununa her ibanın karşısına doğru veya yanlış yazmasını istiyorum . Araştırdım birden fazla yapılanı bulamadım
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.