O zaman ozan hoca yanlış yaptı kodları.
Berduş hocanın önceki mesajdaki kodu deneyin birde inputbox için.

Benim array için yazdığım kod belki hatalı olmuştur kafadan ve denemeden yazdığım için.mantıken öyle olur sanıyordum.Size akşama doğru bitiririm unutmazsam eğer inputbox ve textbox olarak inşAllah.Tabii yardım gelirse daha iyi olur.

onu da denedim. bu sefer formatı doğru yazınca hata vermiyor ama verileri word e aktarmıyor. boş word şablonu çıkıyor.

Dosyanızı çalışan son halini atarmısınız.Ona göre yapalım kodlarda en sonki olsun hani satır atlamayı düzelttiğiniz şekilde

Aslında ozan hocanının kodlarını deneyemedim lakin düzgün çalışıyor gibi.
İnput boş çıkmaması için ya orayı sileceksiniz yada başına tek tırnak koyup çalıştıracaksınız kodu.Dosyanın son halini yüklerseniz diğer şartlar için yardımcı olunmaya çalışılır.

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

Kodu 

Dim GVeri As String

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

    If StrPtr(GVeri) = 0 Then

        MsgBox ("İptal")

Exit Sub

    ElseIf GVeri = vbNullString Then

        MsgBox ("İnput boş")

Exit Sub

    Else

        

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





End If

şeklinde deneyiniz. Kod içerisine exit sub yazılmasına gerek yok.

Exit sub yazmışınız ve bir önceki mesaj ile aradaki fark nedir?

Ayrıca harf vs.. girince hata kontrolu yapılmasıda isteniyordu.
Onlarıda yaparsanız bana gerek kalmaz akşama uğraşmama