Excel dosyasını Userform'a çevirmek

[muratgunay48]

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. Bir bakabilir misiniz.
Şimdiden teşekkür edeim.

 

[muratgunay48]

Hocalarımızdan yardımcı olabilecek varsa, inanın çok sevinirim.
Saygılarımla.

 

[muratgunay48]

Sayın hocalarımız, mesela hücre ile yapmak yerine, kod olarak.
TextBox5= Controliban(TextBox1)
Şeklinde bir şey yazamaz mıyız.
Yardımcı olursanız çok sevinirim.
Saygılarımla.

 

[muysun35]

Hocalarımızdan yardımcı olabilecek varsa, inanın çok sevinirim.
Saygılarımla.

dosyayı bir de barındırma sitesine ekleyebilir misin (ben indiremiyorum buradan)

 

[muratgunay48]

dosyayı bir de barındırma sitesine ekleyebilir misin (ben indiremiyorum buradan)

İNDİR
Yükledim hocam.

 

[tamer42]

cresi hata veriyor. Do

Hocalarımızdan yardımcı olabilecek varsa, inanın çok sevinirim.
Saygılarımla.

Merhaba
ekli dosyayı inceler misimiz

iyi Çalışmalar.

 

[muratgunay48]

Merhaba
ekli dosyayı inceler misimiz

iyi Çalışmalar.

Hocam, öncelikle geç cevap yazdığım için özür dilerim. Netice benim dosyam siz uğraşıyorsunuz. Gece çalıştığım için uyku saatlerim biraz değişik. Çok teşekkür ederim. Sadece excel kapalı açılmasını ve çarpıdan kapanmamasını geri koydum. Sıkıntı yok çalışıyor. Yalnız hocam sadece meraktan soruyorum, kodlarda küçük harfle yazıyor, HATALI büyük harfle, Doğru küçük harfle. Biraz şekilcilik var sanırım bende ?. "Açıp bulamadın mı" diyeceksiniz, gerçekten bulamadım. Nerede, değiştirsem.
Tekrar çok teşekkür ederim hocam. Emeğinize sağlık.
Sağlıklı günler dilerim.
Saygılarımla.

 

[tamer42]

Hocam, öncelikle geç cevap yazdığım için özür dilerim. Netice benim dosyam siz uğraşıyorsunuz. Gece çalıştığım için uyku saatlerim biraz değişik. Çok teşekkür ederim. Sadece excel kapalı açılmasını ve çarpıdan kapanmamasını geri koydum. Sıkıntı yok çalışıyor. Yalnız hocam sadece meraktan soruyorum, kodlarda küçük harfle yazıyor, HATALI büyük harfle, Doğru küçük harfle. Biraz şekilcilik var sanırım bende ?. "Açıp bulamadın mı" diyeceksiniz, gerçekten bulamadım. Nerede, değiştirsem.
Tekrar çok teşekkür ederim hocam. Emeğinize sağlık.
Sağlıklı günler dilerim.
Saygılarımla.

"B" sütununda yazan formül içeriğinden düzeltebilirsiniz.

=EĞERHATA(ControleIban(A1); "Hatalı IBAN")

iyi Çalışmalar.

 

[muratgunay48]

"B" sütununda yazan formül içeriğinden düzeltebilirsiniz.

=EĞERHATA(ControleIban(A1); "Hatalı IBAN")

iyi Çalışmalar.

Teşekkür ederim hocam, ben kodlarda aramıştım.

 

[karakrall01]

Hocam, öncelikle geç cevap yazdığım için özür dilerim. Netice benim dosyam siz uğraşıyorsunuz. Gece çalıştığım için uyku saatlerim biraz değişik. Çok teşekkür ederim. Sadece excel kapalı açılmasını ve çarpıdan kapanmamasını geri koydum. Sıkıntı yok çalışıyor. Yalnız hocam sadece meraktan soruyorum, kodlarda küçük harfle yazıyor, HATALI büyük harfle, Doğru küçük harfle. Biraz şekilcilik var sanırım bende ?. "Açıp bulamadın mı" diyeceksiniz, gerçekten bulamadım. Nerede, değiştirsem.
Tekrar çok teşekkür ederim hocam. Emeğinize sağlık.
Sağlıklı günler dilerim.
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 = Replace(LeNumIban, x, convIBAN(x), 1, 1)
  
 End If
 
  n = n + 1
 
Wend

n_iban = Mod97(LeNumIban)

If n_iban = 1 Then

  ControleIban = "Doğru IBAN"
Else

  ControleIban = "Hatalı IBAN"
End If

End Function

Hocam ControleIban = "Doğru IBAN" ve ControleIban = "Hatalı IBAN" kısmından da düzeltebilirsin

 

[muratgunay48]

Tel

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 = Replace(LeNumIban, x, convIBAN(x), 1, 1)
 
End If

  n = n + 1

Wend

n_iban = Mod97(LeNumIban)

If n_iban = 1 Then

  ControleIban = "Doğru IBAN"
Else

  ControleIban = "Hatalı IBAN"
End If

End Function

Hocam ControleIban = "Doğru IBAN" ve ControleIban = "Hatalı IBAN" kısmından da düzeltebilirsin

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.