Soru ListBox2' ye veriyi 10. Sütundan itibaren aldırma

[sirkülasyon]

Private Sub ListBox1_Click()
Set S1 = Sheets("VERİLER")
Tasıma = WorksheetFunction.Match(ListBox1.Value, S1.[J2:V2], 0)
Son = S1.Cells(Rows.Count, Tasıma).End(3).Row
ListBox2.Clear
ListBox2.List = Application.Transpose(S1.Range(S1.Cells(2, Tasıma), S1.Cells(Son, Tasıma)))
End Sub

J2:V2 arasında veriler, her verinin altında da alt verilerim var.
J sütunu olan 10.Sütundan itibaren 2. satırdan başlayacak V sütununa kadar olacak şekilde nasıl düzelte bilirim?

 

[Korhan Ayhan]

Verdiğiniz koda göre Listbox1'deki veriyi ilgili aralıkta arayıp satır ve sütun numarasına göre ListBox2'ye yüklemeye çalışmışsınız.

Örnek dosya eklerseniz ne yapmaya çalıştığınızı daha net anlayabiliriz ve ona göre kod önerisinde bulunabiliriz.

 

[sirkülasyon]

Korhan abi dosya ekte
Yapmak istediğim şu:
Listbox1 ' e
VERİLER sayfasında N2 : AA2 aralığında ki veriyi almak.
ListBox2' ye de seçilen okula ait alt bilgileri almak.
AKTAR butonu ile de Sayfa2' de B sütununda aktif satıra ListBox1, C sütununu da satıra da ListBox2 değerini aktarmak

Rice etsem yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Deneyiniz.

 

[sirkülasyon]

Korhan abi sağ olasın. Ellerine sağlık.