USERFORM ÇALIŞMA HATASI

[taneryuksell]

Sevgili arkadaşlar; Bir tablom var ve bu tablo üzerinde 5 tane userform var ve hepsinide çalıştıran bir Commandbutton var. Nerede hata yapıyorum bilmiyorum ama 3 nolu userform açılmıyor ve hata veriyor. Userform içinde bulunan bir ayar ile oynamış olabilirim sehven diyecem ama tespit edemedim.

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Private Sub CommandButton2_Click()
UserForm2.Show
End Sub

Private Sub CommandButton3_Click()
UserForm3.Show
End Sub

Private Sub CommandButton4_Click()
UserForm4.Show
End Sub

Private Sub CommandButton5_Click()
UserForm5.Show
End Sub

 

[Muzaffer Ali]

Hata verdikten sonra "Debug basın ve kodları F8 tuşuna basarak manuel çalıştırın.
Bir sonraki hata veren kod satırını bulunca hem satırı hem de hata mesajını söyleyin. Anlamaya çalışalım

Eğer mümkünse dosyanızı ekleyin daha kolay çözüm bulabiliriz.

 

[Vahap5244]

Merhaba Ali Bey. Bende de aynı hatayı verdi. Dediğiniz yaptım. En son aşağıdaki kodda hata verdi. Nerde hatam var?
For i = 3 To son
If sh.Cells(i, 1) <> "" Then
Set L = ListView1.ListItems.Add

L.Text = i
L.SubItems(1) = sh.Cells(i, 1) 'Sıra No
L.SubItems(2) = sh.Cells(i, 2) 'adı soyadı
L.SubItems(3) = sh.Cells(i, 3) 'kimlik no
L.SubItems(4) = sh.Cells(i, 4) 'öğrenim durumu
L.SubItems(5) = sh.Cells(i, 5) 'doğum tarihi
L.SubItems(6) = sh.Cells(i, 6) 'cinsiyeti
L.SubItems(7) = sh.Cells(i, 7) 'medeni hali
L.SubItems(8) = sh.Cells(i, 8) 'telefon no
L.SubItems(9) = sh.Cells(i, 9) 'ünvanı
L.SubItems(10) = sh.Cells(i, 10) 'görevli olduğu yer


End If
Next i

 

[Muzaffer Ali]

Merhaba.

1- Hangi satırda hata veriyor?
2- Hata mesajı nedir?