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