ınputbox da değer girmediğimiz zaman uyarı versin..

[OoParadiSeoO]

Arkadaşlar merhaba,

İnput box komutunda ekrana gelen giriş penceresinde herhangi bir değer girmeden Ok butonuna bastığımız zaman, tekrar giriniz gibi bir uyarı vermesini sağlaman için aşağıdakı kodda ne gibi bi değişiklik yapmak gerekir ?

Private Sub ListBox1_Click()

basla:
Message = "Yeni Bakiye Giriniz"
Title = "Yeni Bakiye?"
DefaultValue = ""
giris = InputBox(Message, Title, DefaultValue, vbOKCancel)
If giris = Cancel Then Exit Sub
If giris < 0 Or giris > 10000 Then

MsgBox ("Geçersiz Tutar ! Tekrar Deneyiniz.")
GoTo basla
Else
Cells(5, 5) = giris
End If


End Sub

 

[ÖmerBey]

Aşağıdaki şekilde deneyiniz.

giris = Application.InputBox(Message, Title, DefaultValue, vbOKCancel)
If giris = False Then Exit Sub
If giris = "" Then
    MsgBox "Tekrar veri giriniz"
    GoTo basla
End If
If giris < 0 Or giris > 10000 Then

MsgBox ("Geçersiz Tutar ! Tekrar Deneyiniz.")
GoTo basla
Else
Cells(5, 5) = giris
End If

 

[OoParadiSeoO]

sayın mucit teşekkürler fakat inputbox komutunun başındaki application. komutundan dolayı ekrana gelen giriş penceresi benim düzenlediğim makroda gelen pencereden farklı. Giriş penceresinin benim düzenlemiş olduğum makrodaki gibi olmasını nasıl sağlayabiliriz?

 

[Korhan Ayhan]

İlgili satırı aşağıdaki gibi değiştirip deneyin.

giris = InputBox(Message, Title, DefaultValue, vbOKCancel)

 

[OoParadiSeoO]

Korhan Bey dediğiniz gibi denedim fakat o zamanda cancel butonuna basınca veya X kapama butonuna basınca cıkış yapmıyor tekrar giriniz diyor. Cıkış yapması gerek.. Ayrıca 0 değeri girdiğimiz zaman yine tekrar giriniz uyarısı vermesini nasıl sağlayabiliriz? Yardımlarınızı bekliyorum..

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Test()
    Dim giris
basla:
    Message = "Yeni Bakiye Giriniz"
    Title = "Yeni Bakiye?"
    DefaultValue = ""
    giris = InputBox(Message, Title, DefaultValue)
    If StrPtr(giris) = False Then Exit Sub
    
    If giris = "" Or giriş = 0 Then
        MsgBox "Lütfen veri girişi yapınız!"
        GoTo basla
    End If
    
    If giris <= 0 Or giris > 10000 Then
        MsgBox ("Geçersiz Tutar ! Tekrar Deneyiniz.")
        GoTo basla
    Else
        Cells(5, 5) = giris
    End If
End Sub

 

[OoParadiSeoO]

Korhan bey denedim normal bir tutar girdiğimiz zamanda tekrar giriniz uyarısı veriyor..

 

[Korhan Ayhan]

Bu şekilde deneyiniz.

Sub Test()
    Dim giris
basla:
    Message = "Yeni Bakiye Giriniz"
    Title = "Yeni Bakiye?"
    DefaultValue = ""
    giris = InputBox(Message, Title, DefaultValue)
    If StrPtr(giris) = False Then Exit Sub
    
    If giris = "" Then
        MsgBox "Lütfen veri girişi yapınız!"
        GoTo basla
    End If
    
    If giris <= 0 Or giris > 10000 Then
        MsgBox "Geçersiz tutar! Tekrar deneyiniz."
        GoTo basla
    Else
        Cells(5, 5) = giris
    End If
End Sub

 

[OoParadiSeoO]

teşekkkürker Korhan Bey ve mücit77.. emeğinize sağlık..