programda popup uyarısı verdirmek

[celine]

Arkadaşlar selam, ekte yolladığım dosyada sayı girilmesi gereken yerlere haf girildiğinde programın bunu popupla engellemesini istiyorum birde 41. satıra gelindiğinde "en fazla bu kadar kayıt girebilirsiniz" gibi bipopup çıkmasını istiyorum. Yardımcı olabilirseniz sevinirim.

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

 

[celine]

Sn Seyit Tiken, inceledim fakat herangi bipopup göremedim? acaba değişikliği söylermisiniz

 

[Rıdvan01]

Msg = CreateObject("WScript.Shell").Popup("işlem yapıldı", 5, "UYARI")

sizin itediğiniz başka bişey dosyayı incelemeden bu kodu gönderdim

 

[Seyit Tiken]

Sn Seyit Tiken, inceledim fakat herangi bipopup göremedim? acaba değişikliği söylermisiniz

İlgili dosyada renkle belirlenmiş bir alan vardır. O alanda gelişigüzel rakamlar yazmışsınız. Şimdi o alana harf girmeyi deneyin. Sayı olmayan krakterle izin verilmemesi gerek. Ve 41. satıra(veya hücreye) veri girişi yapın, gene izin verilmemesi gerek. Tabii bunu bir mesajla uyaracaktır. Bu uygulama Veri Doğrulama > Özel ile yapılmıştır.
Aynı konuyla ilgili 2.bir başlık açmanızda yersizdir. Aynı başlıkta devam edebilirsiniz. Konuyu parçalamanın ne mantığı olabilir ki?

 

[celine]

Sn Seyit, öncelikle yardım ettiğiniz için teşekkür ederim, evet direkt sayfaya yazdığımda olmuyor fakat bende giriş sayfasındaki butondan userform aracılığı ile bilgileri giriyorum ve burada herangi bir uyarı vermiyor mesela tarih textboxı o turncu bölgede fakat biruyarı vermedi. 41. yide denedim ondada fakat elle direkt sayfaya yazdığımda veriyor evet. İkinci bir konubaşlığının nedeni başlıkta tam olarak anlatamamış olmam vede sizde dahil kimsenin cevap vermemesiydi.

 

[Rıdvan01]

sn seyit tiken
sanırım sn celine'nin sorusunun çözümü sanırım sizin tarif ettiğiniz gibi değil
veri doğrulama yöntemi ile hücrelere veri girişi sınırlanabilinir fakat veri girişi
userform üzerinden yapılırsa veri doğrulama çalışmıyor
sanırım celine nin sormak istediği userform üzerindeki textbox lara sadece sayı
girişine izin verilmesini istiyor

 

[Rıdvan01]

sayı biçimi
Private Sub TextBox5_Change()
Dim a
a = Replace(TextBox5, ",", "")
a = Replace(a, ".", "")

If IsNumeric(a) = False Then
TextBox5.Value = "0,00"
ElseIf a < 10 Then
TextBox5 = "0,0" & a * 1
ElseIf a < 100 Then
TextBox5 = "0," & a * 1
ElseIf a < 1000 Then

If Mid(a, 1, 1) = 0 Then
TextBox5 = Mid(a, 2, 1) & "," & Right(a, 2)
End If

If Mid(Right(TextBox1, 2), 1, 1) = "," Then
TextBox5 = Mid(a, 1, 1) & "," & Right(a, 2)
End If

If TextBox5.Value Like "*,*" = False Then
TextBox5 = Mid(a, 1, 1) & "," & Right(a, 2)
End If

ElseIf a < 10000 Then
TextBox5 = Mid(a, 1, 2) & "," & Right(a, 2)
ElseIf a < 100000 Then
TextBox5 = Mid(a, 1, 3) & "," & Right(a, 2)
ElseIf a < 1000000 Then
TextBox1 = Mid(a, 1, 1) & "." & Mid(a, 2, 3) & "," & Right(a, 2)
ElseIf a < 10000000 Then
TextBox5 = Mid(a, 1, 2) & "." & Mid(a, 3, 3) & "," & Right(a, 2)
ElseIf a < 100000000 Then
TextBox5 = Mid(a, 1, 3) & "." & Mid(a, 4, 3) & "," & Right(a, 2)
ElseIf a < 1000000000 Then
TextBox5 = Mid(a, 1, 1) & "." & Mid(a, 2, 3) & "." & Mid(a, 5, 3) & "," & Right(a, 2)
ElseIf a < 10000000000# Then
TextBox5 = Mid(a, 1, 2) & "." & Mid(a, 3, 3) & "." & Mid(a, 6, 3) & "," & Right(a, 2)
Else
TextBox5 = Mid(a, 1, 3) & "." & Mid(a, 4, 3) & "." & Mid(a, 7, 3) & "," & Right(a, 2)
End If

End Sub

sanırım böyle bi koda ihtiyacı var
benimde fazla bilgim yok kodlar alıntıdır

 

[Rıdvan01]

Private Sub textBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 0: MsgBox " Harf girilmeyecek,Sadece Rakam ve " / " İşareti Girebilirsiniz ..."
End Sub

sanırım buda harf girişine izin vermeyen kod
deneyiniz

 

[celine]

Sn Rıdvan01, çabanız için çok teşekkür ederim. Son gönderdiğiniz kod işime yaradı çok sağolun harf yazmıyor sadece rakamlar, ancak popup çıkarmadı bilginize.. tekrar teşekkürler

 

[celine]

Arkadaşlar, birde bişey daha yapmak isityorum oda 43 yada 44. hücrede,,"daha fazla kayıt yapamazsınız" uyarısı çıksın.