Listview Index out of bounds hatası

[kemal turan]

merhaba,
Ek dosyada listview Index out of bounds hatası verdi.gerekli açıklamayı yaptım.
Teşekkür ederim.

 

[Orion1]

Hangi userformu çalıştırılacak?
Cari seç butonu yok userformlarda!

 

[kemal turan]

Sn.Orion merhaba
Sutunu genişlettiğim için userform butonu k sutununda
anasayfayı active ettiğimizde de userform açılıyor.
Cari no nun yanın da seç butonu ile cariyı seçiyoruz
teşekkür ederim

 

[Orion1]

Cari nu textboxına veri girince hata veriyordu.
Onu düzelttim.
Dosyanız ektedir.

[B][COLOR="Red"]x = 1[/COLOR][/B]
For i = 1 To sat
    If TextBox1.Text = "" Then deg = UCase(Replace(Replace(sh.Cells(i, "G").Value, "ı", "I"), "i", "İ"))
    If UCase(Replace(Replace(sh.Cells(i, "G").Value, "ı", "I"), "i", "İ")) Like deg Then
        ListView2.ListItems.Add , , sh.Cells(i, "A").Value
        ListView2.ListItems(x).SubItems(1) = sh.Cells(i, "F").Value
        ListView2.ListItems(x).SubItems(2) = sh.Cells(i, "I").Value
        ListView2.ListItems(x).SubItems(3) = sh.Cells(i, "J").Value
        ListView2.ListItems(x).SubItems(4) = sh.Cells(i, "K").Value
        ListView2.ListItems(x).SubItems(5) = sh.Cells(i, "N").Value
        ListView2.ListItems(x).SubItems(6) = sh.Cells(i, "L").Value
        ListView2.ListItems(x).SubItems(7) = sh.Cells(i, "M").Value
        [B][COLOR="red"]x = x + 1[/COLOR][/B]
    End If
Next i

 

[kemal turan]

Sn.Evren bey,
Çok teşekkür ederim.
Selametle kalınız

 

[Orion1]

Sn.Evren bey,
Çok teşekkür ederim.
Selametle kalınız

Rica ederim.
İyi çalışmalar.