Listboxta seçilen verinin sayfadada seçilmesi

[Korhan Ayhan]

Selam arkadaşlar,

A,B,C,D,E,F sütunlarına veri girişi yapıyorum ve bu verileri form üzerindeki listboxta listeliyorum. Benim yapmak istediğim listboxta seçtiğim satırın sayfadada seçilmesi yalnız bir farkla satırda B sütunundaki hücre aktif olacak şekilde kayıt seçilecek. Böyle birşey mümkün müdür?

Yardımlarınızı bekliyorum.

 

[Levent Menteşoğlu]

Listboxa veri aldığınız satırı yazarmısınız.

 

[Korhan Ayhan]

Sn. leventm,

Kodlar;

Private Sub Userform_initialize()
TextBox1.SetFocus
ListBox1.ColumnCount = 5
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "40;60;60;170;60"
ListBox1.RowSource = "VERİ!A2:E" & Sheets("VERİ").Range("A10002").End(3).Row
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu listboxa yazarak deneyin.

[vb:1:3936a1fc07]Private Sub ListBox1_Click()
Cells(ListBox1.ListIndex + 2, 2).Select
End Sub
[/vb:1:3936a1fc07]

Açıklama: Listboxa rowsource ile alına veri sayfadaki verilerin konumu ile aynı düzende olduğundan, listboxun listindex özelliği satır nosu yerine kullanılabilir. listindex değeri listboxtan seçilen satırın index değeridir. Ve bu değer 0 (sıfır) dan başlar, yani ilk satırı seçerseniz, bunun index değeri sıfır olacaktır. Bu sebeple kod içinde index değerine +2 ilave edilmiştir. Böylece listboxta seçilen satırın indexine eklene +2 değeri bize sayfa üzerindeki veri alınan tablonun satır değerini verecektir.

 

[Korhan Ayhan]

Teşekkür ederim. :arkadas: