Tabii birde şöyle şart lazım.
- bundan öncesi -bundan sonrasından büyükse hata mesajıda verdirilmeli.Zaten bu en kolayı
Bence dediğim array olayını siz biraz uğraşın berduş hocam.bende telefondan yazmaya çalışayım bakalım olacakmı.

Alttaki gibi mantık düşündüm abey.
Kodları yanlış yazmış olabilirim bilemiyorum.Neyse benden bu kadar.Duruma göre bakarız.


Dim arr ,x as integer

Arr=Array(1,2,3,4,5,6,7,8,9,"-")

For x = Lbound(arr) to ubound(arr)
  If Instr(1,Gveri,arr(x))=0 then
     Msgbox "Format hatasi"
     Exit sub
  End if

Next

inputa - yazmasanız kod çalışmaz 2-3 yazınca 2 ve 3 nolu satırları işleme alır.

Inputbox cancel, tamam kontrolünü aşağıdaki örnekten anlayabilirsin. 

Dim GVeri As String

    GVeri = InputBox("İlk ve Son KAyıt", "Kayit Gir", "")

    If StrPtr(Gveri) = 0 Then

        MsgBox ("İptal")

    ElseIf result = vbNullString Then

        MsgBox ("İnput boş")

    Else

        

  '  GIlkKayit =...... ve sonrası buraya. 





    End If

Önceden yazdığımız textbox olsaydı kod zaten ona göre ayarlanacaktı

(17/02/2020, 23:06)ozanakkaya yazdı: inputa - yazmasanız kod çalışmaz 2-3 yazınca 2 ve 3 nolu satırları işleme alır.

Inputbox cancel, tamam kontrolünü aşağıdaki örnekten anlayabilirsin. 

Dim GVeri As String

    GVeri = InputBox("İlk ve Son KAyıt", "Kayit Gir", "")

    If StrPtr(Gveri) = 0 Then

        MsgBox ("İptal")

    ElseIf result = vbNullString Then

        MsgBox ("İnput boş")

    Else

        

  '  GIlkKayit =...... ve sonrası buraya. 





    End If

Kod çalışıyor ama cancel a bastığımızda veya format dışı bir şey yazip ok deyince iptal sonrası şablon olarak kullandığım boş word dosyası açılıyor

İptal olayında ve diğerinde exit sub unutulmuş.
Ondan kod devam ediyor.