ListView de seçilen satırın altındaki satır.

[kelkitli]

Değerli Dostlar Selamlar,
ListView ile seçilen satırdan veriyi TextBoxlara alıyorum.

If UserForm2.ListView1.ListItems.Count > 0 Then
x = UserForm2.ListView1.SelectedItem.Index
UserForm2.TextBox1.Text = UserForm2.ListView1.ListItems(x).ListSubItems(2).Text
UserForm2.TextBox2.Text = UserForm2.ListView1.ListItems(x).ListSubItems(3).Text
UserForm2.TextBox3.Text = UserForm2.ListView1.ListItems(x).ListSubItems(4).Text
UserForm2.TextBox4.Text = UserForm2.ListView1.ListItems(x).ListSubItems(5).Text
End If

Ancak seçilen satırın bir altındaki satırı da aynı seçme işlemine bağlı olarak
TextBox 5,6,7,8 e aktarmak istiyorum. Nasıl yapılabilir.
Saygılar.

 

[Orion1]

Aşağıdaki gibi deneyiniz.

[B][COLOR="Red"]on error resume next[/COLOR][/B]
If UserForm2.ListView1.ListItems.Count > 0 Then
x = UserForm2.ListView1.SelectedItem.Index 
UserForm2.TextBox1.Text = UserForm2.ListView1.ListItems(x).ListSubItems(2).T ext 
UserForm2.TextBox2.Text = UserForm2.ListView1.ListItems(x).ListSubItems(3).T ext
UserForm2.TextBox3.Text = UserForm2.ListView1.ListItems(x).ListSubItems(4).T ext
UserForm2.TextBox4.Text = UserForm2.ListView1.ListItems(x).ListSubItems(5).T ext
[B][COLOR="red"]UserForm2.TextBox5.Text = UserForm2.ListView1.ListItems(x+1).ListSubItems(2).T ext 
UserForm2.TextBox6.Text = UserForm2.ListView1.ListItems(x+1).ListSubItems(3).T ext
UserForm2.TextBox7.Text = UserForm2.ListView1.ListItems(x+1).ListSubItems(4).T ext
UserForm2.TextBox8.Text = UserForm2.ListView1.ListItems(x+1).ListSubItems(5).T ext[/COLOR][/B]
End If

 

[kelkitli]

Selamlar,
Sayın Evren Hocam,
Çok teşekkür ederim. Emekleriniz ödenmez. Sağolun, Varolun.

 

[Orion1]

Selamlar,
Sayın Evren Hocam,
Çok teşekkür ederim. Emekleriniz ödenmez. Sağolun, Varolun.

Rica ederim.
İyi çalışmalar.