bir de doğru giriş de yapsak "Input Boş" hatası çıkıyor
Alttaki gibi exit subları ekleyin.
Dim GVeri As String
GVeri = InputBox("İlk ve Son KAyıt", "Kayit Gir", "")
If StrPtr(Gveri) = 0 Then
MsgBox ("İptal")
Exit sub
ElseIf result = vbNullString Then
MsgBox ("İnput boş")
Exit sub
Else
' GIlkKayit =...... ve sonrası buraya.
End If
İnputbox yerine form açtırıp textbox kullansanız olmazmı taktik olarak.o şekilde daha kolay olur değilse önceki mesajlarımdan birinde yazdıpım gibi array olayı kaçınılmaz gibi görüküyor.
sorun değil. hata düzelsin her türlü olur.
Ozan hocanın koduna ilave ettiğim exit sublar işe yaradımı
o işe yarıyor şablon word açılmıyor ama formatı yani 1-2, 1-3 gibi doğru da yazsak input hatası veriyor. senin array leri de denedim. o da aynı şekilde oldu. doğruyu da kabul etmiyor her ikisi de.