|
|
|  |
|
||||||
| DUYURU SİSTEMİ / REKLAM PANOSU |
Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
 |
 |
|
|
Paylaş | Konu Araçları | Görünüm Modları |
16-02-2017, 13:38
|
#1 |
Giriş: 25/10/2006
Şehir: ÇORUM
Mesaj: 226
Excel Vers. ve Dili:
MS Office 2013 Türkçe |
Textbox Sayı Değilse Uyarsın
Textbox'a girilen bir değer sayı değilse ve bu sayı 5 basamaklı değilse uyarsın istiyorum. yardımlarınızı rica ederim
__________________
[COLOR=Red][B][FONT=Verdana][SIZE=3][SIZE=2]TÜRKÇE, TÜRKLERİN BAYRAĞIDIR [COLOR=Navy][I][SIZE=1]"karacoğlan der ki; kalmayın naçar, serçenin gönlünden şahinlik geçer, şahini görünce ormana kaçar, gider tenhalarda kahraman olur."[/SIZE][/I][/COLOR] [/SIZE][/SIZE][/FONT][/B][/COLOR] |
|
|
|
16-02-2017, 14:06
|
#2 | |
|
Uzman
Giriş: 01/03/2005
Mesaj: 19,990
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit |
Alıntı:
If Len(TextBox1.Value) <> 5 Then
MsgBox "Uzunluk 5 basamaklı olmalı!", vbCritical, "UYARI"
TextBox1.SetFocus
Exit Sub
ElseIf Not IsNumeric(TextBox1.Value) Then
MsgBox "Girilen değer sayı değil!", vbCritical, "UYARI"
TextBox1.SetFocus
Exit Sub
End If
|
|
|
|
|
|
17-02-2017, 07:52
|
#3 |
|
Giriş: 25/10/2006
Şehir: ÇORUM
Mesaj: 226
Excel Vers. ve Dili:
MS Office 2013 Türkçe |
Teşekkürler üstad
__________________
[COLOR=Red][B][FONT=Verdana][SIZE=3][SIZE=2]TÜRKÇE, TÜRKLERİN BAYRAĞIDIR [COLOR=Navy][I][SIZE=1]"karacoğlan der ki; kalmayın naçar, serçenin gönlünden şahinlik geçer, şahini görünce ormana kaçar, gider tenhalarda kahraman olur."[/SIZE][/I][/COLOR] [/SIZE][/SIZE][/FONT][/B][/COLOR] |
|
|
|
Düzenli Mod
