![]() |
| ![]() |
|
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ı |
![]() |
#1 |
Giriş: 25/10/2006
Şehir: ÇORUM
Mesaj: 226
Excel Vers. ve Dili:
MS Office 2013 Türkçe |
![]() 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] |
![]() |
![]() |
![]() |
#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 |
|
![]() |
![]() |
![]() |
#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] |
![]() |
![]() |