Soru Hata Ayıklarken Hata

[black_72]

Merhaba hocalarım,
Aşağıda yazdığım kodda kullanıcıdan görevi bitirmesi için bir adet görev ID'si istiyorum ancak eğer kullanıcı ID girilen inputbox'a id girmeyip direkt "Ok" butonuna tıklarsa program "Type Mismatch" hatası veriyor bunun için en alta bir hata ayıklama yaptım. Kullanıcı inputbox'a id girmeden direkt "Ok" butonuna tıklarsa aşağıdaki "ID giriniz" mesajı çıkıyor fakat bu mesaj çıktıktan sonra kullanıcı yine İnputbox ekranını boş geçip Ok butonuna tıklayınca program "ID giriniz" mesajını göstermek yerine Type Mismatch hatası veriyor bunu nasıl çözebilirim?

Sub isBitir()

Dim silinecekID As Byte
On Error GoTo idBos

idGir:
silinecekID = InputBox("Lütfen bitirmek istediğiniz görevin ID'sini yazınız.", "ID GİRİNİZ")

If silinecekID=Empty Then GoTo idBos:

End If

'Görev bitirme kodları...

Exit Sub

idBos:
MsgBox "Lütfen bir ID giriniz."
GoTo idGir

End Sub

 

[dEdE]

Merhaba,
On Error GoTo idBos yerine On Error Resume Next deneseniz.

 

[black_72]

Merhaba,
On Error GoTo idBos yerine On Error Resume Next deneseniz.

Hocam bu şekilde yaptığımda görev silme kodlarında fonksiyonlar yanlış çalışıyor

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub isBitir()
    Dim silinecekID As Variant
    
    On Error GoTo idBos
    
idGir:
    silinecekID = InputBox("Lütfen bitirmek istediğiniz görevin ID'sini yazınız.", "ID GİRİNİZ")
    
    If silinecekID = Empty Then GoTo idBos:
    
    'Görev bitirme kodları...
    
    Exit Sub
    
idBos:
    MsgBox "Lütfen bir ID giriniz."
    GoTo idGir
End Sub

 

[black_72]

Deneyiniz.

Option Explicit

Sub isBitir()
    Dim silinecekID As Variant
   
    On Error GoTo idBos
   
idGir:
    silinecekID = InputBox("Lütfen bitirmek istediğiniz görevin ID'sini yazınız.", "ID GİRİNİZ")
   
    If silinecekID = Empty Then GoTo idBos:
   
    'Görev bitirme kodları...
   
    Exit Sub
   
idBos:
    MsgBox "Lütfen bir ID giriniz."
    GoTo idGir
End Sub

Korhan hocam teşekkürler fakat kodda inputbox ekranından çıkmak için çarpı işaretine tıkladığımda "
MsgBox "Lütfen bir ID giriniz."
" hatası veriyor ve pencereden çıkmama izin vermiyor bunu nasıl düzeltebiliriz?

 

[Korhan Ayhan]

Inputbox bu şekilde kodlamada veri girişi zorunlu olacaktır. Çarpıdan kapatmak istediğinizde de içi boş olduğu için kodlar devreye girecektir.

Eğer bu şekilde kullanıma ihtiyacınız varsa USERFORM tasarlayarak Inputbox yerine onu kullanabilirsiniz.