TEXTBOX üzerine gelince veya içince girince mesaj box nasıl

[soneryen]

Textbox'a veri giriş için üzerine gelince uyarı msgbox'u çıkartmak istiyorum. Birde mesela Texbox'a vergi numarası girdirecem Vergi No 10 hane olduğu için bu textbox'a harf girdiğinde yanlış giriş yaptınız diyen bir mesaj box istiyorum. Bu özelliği kullanacağım çok yer var. Bana bu konuda yardımcı olursanız sevinirim.

 

[ccumhur]

Private Sub TextBox1_Change()
If TextBox1 = IsNumeric(TextBox1) Then
Else: MsgBox "lütfen rakam giriniz"
End If
End Sub
veya
Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0:
End Sub
http://www.excel.web.tr/viewtopic.php?t=7193&highlight=sadece+rakam*

 

[soneryen]

Private Sub TextBox1_Change()
If TextBox1 = IsNumeric(TextBox1) Then
Else: MsgBox "lütfen rakam giriniz"
End If
End Sub

Selam üstadım bu kodlar işime yaradı fakat textbox içine rakam haricinde bir değer yazınca hata mesajı çıkıyor silmeye çalışırken tekrar çıkıyor. Toplamda iki kere çıkıyor. Bu kodu şöyle yapamazmıyız.

Textbox'a harf girildiğinde uyarı msgbox çıksın msgbox'ta tamam deyince textbox'un içini silsin

 

[soneryen]

Birde ben vergi no textbox'u yapmak istiyorum ama Textbox'a sadece
000 000 0000 formatında ve sadece rakam girebileceğim bir komut lazım yani

1234567890 bile yazılsa bunu otomatik 123 456 7890 haline getirecek ve 10 haneden fazla karakter rakamda olsa yazılmayacak. Umarım anlatabilmişimdir.

 

[ccumhur]

textbox unuz maxlength özelliğini 10 yapın 10 rakam alır

 

[class37]

Merhaba

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Value) <> 10 Then
      TextBox1 = Empty
      Cancel = True
   MsgBox "10 HANE RAKAM GİRİLİR"
   End If
TextBox1.Value = Format(TextBox1, "### ### ####")

End Sub

 

[soneryen]

Selamın aleyküm class37 kardeş Tam istediğim gibi olmuş çok teşekkür ederim Allah razı olsun.

Ya hep böyle hazır kalıbı al kendine uygula bu programlama dilini nasıl öğrenebiliriz. Ben mesela bana bunun aynısı lazım olduğu zaman yaptığım yere girip tekrar bakmak zorunda kalıyorum. Ezberden beceremiyoruz. Tavsiyeniz var mı? Visual Basic kursumu yoksa kitaplar yeterli olur mu

 

[class37]

Merhaba
Laf aramızda çoğu kodda bende senin gibiyim.Ama ne kadar çok çalışırsan o kadar kolaylaşıyor olaylar.Kitap olsada uygulama olmazsa boş ama hem kitap hemde forum sayfalarından faydalanarak çalışmalar yapmak en güzel öğrenme şekli.İyiçalışmalar.Başarılar.

 

[soneryen]

Ya class37 kardeş bana şu lazım:

userform içindeki Textbox'lardan bazılarına ve bazı tıklama düğmelerinin üzerine geldiğimiz zaman msgbox içinde ne işe yaradığına dair bilgi vermek istiyorum. Nasıl yapabilirim.

 

[Levent Menteşoğlu]

İlgili nesnenin properties penceresindeki controltiptext özelliğine istediğiniz metni yazın. Fare nesnenin üzerine geldiğinde metin ortaya çıkacaktır.

 

[soneryen]

Leventm üstadım oldu teşekkür ederim. Yalnız fazla oluyorum ama bir soru daha soracağım. Peki bu ontroltiptext içindeki yazıya ENTER yapabilirmiyim. Mesajı iki satırda çıksın istiyorum.

 

[Levent Menteşoğlu]

Sanıyorum böyle bir imkan yok.

 

[soneryen]

Bende öyle tahmin ettim ama yinede sormakta yarar var. Teşekkür ederim.

Öyle birşey ile karşılaşırsan bizede bilgi verirsin inşallah.

 

[class37]

Merhaba
Açıklama illaki iki satır olsun diyorsnız ekteki dosyayı inceleyin.İyiçalışmalar.

 

[soneryen]

inceledim güzel çalışma eline sağlık ama texboxa giriş çok zor oluyor çünkü üzerine geline açıklama çıkıyor.

İyi çalışmalar.

 

[hikmet]

sn.soneryan vba nın içine girin userformu açın ve açıklama yazılarını textboxların sağına sürükleyin sorun kalmaz. iyi çalışmalar.

 

[Levent Menteşoğlu]

Birde aşağıdaki linki incelemenizi öneririm.

http://www.excel.web.tr/viewtopic.php?p=45044#45044

 

[soneryen]

Birde aşağıdaki linki incelemenizi öneririm.

http://www.excel.web.tr/viewtopic.php?p=45044#45044

değerli leventm kardeşim. Paylaşımların için teşekkür ederim. Başarılarının devamını dilerim.

 

[soneryen]

Birde aşağıdaki linki incelemenizi öneririm.

http://www.excel.web.tr/viewtopic.php?p=45044#45044

değerli leventm kardeşim. Paylaşımların için teşekkür ederim. Bu verdiğin linkteki dosya çok güzel. Hücre içinde yazan şey mouse ile üzerine gelince çıkıyor. Başarılarının devamını dilerim.