List Box'la Veri Alma

[|Reallove]

Bir Kaç Kez Denememe Rağmen Başarılı Olduğum Söylenemez. Yardımcı Olabilir misiniz?

 

[İhsan Tank]

Bir Kaç Kez Denememe Rağmen Başarılı Olduğum Söylenemez. Yardımcı Olabilir misiniz?

merhaba
Lütfen sorularınızı konunun içinde açıklamaya özen gösteriniz
Sayfanın kod bölümüne kopyalayın ve deneyin

Option Explicit
Private Sub ListBox1_Click()
Dim ts
ts = ListBox1.Text
Range("A5") = WorksheetFunction.Index(Sheets("Sayfa2").Range("A2:Q65536"), _
WorksheetFunction.Match(ts, Sheets("Sayfa2").Range("B2:B65536"), 0), 1)
Range("C5") = WorksheetFunction.Index(Sheets("Sayfa2").Range("A2:Q65536"), _
WorksheetFunction.Match(ts, Sheets("Sayfa2").Range("B2:B65536"), 0), 3)
Range("E5") = WorksheetFunction.Index(Sheets("Sayfa2").Range("A2:Q65536"), _
WorksheetFunction.Match(ts, Sheets("Sayfa2").Range("B2:B65536"), 0), 6)
Range("G5") = WorksheetFunction.Index(Sheets("Sayfa2").Range("A2:Q65536"), _
WorksheetFunction.Match(ts, Sheets("Sayfa2").Range("B2:B65536"), 0), 9)
Range("I5") = WorksheetFunction.Index(Sheets("Sayfa2").Range("A2:Q65536"), _
WorksheetFunction.Match(ts, Sheets("Sayfa2").Range("B2:B65536"), 0), 12)
Range("K5") = WorksheetFunction.Index(Sheets("Sayfa2").Range("A2:Q65536"), _
WorksheetFunction.Match(ts, Sheets("Sayfa2").Range("B2:B65536"), 0), 14)
Range("M5") = WorksheetFunction.Index(Sheets("Sayfa2").Range("A2:Q65536"), _
WorksheetFunction.Match(ts, Sheets("Sayfa2").Range("B2:B65536"), 0), 16)
End Sub

 

[|Reallove]

Kusura Bakmayın Acele İle Yazmış Olduğum İçin Ve Çok Teşekkür Ederim Elinize Sağlık.

 

[İhsan Tank]

Kusura Bakmayın Acele İle Yazmış Olduğum İçin Ve Çok Teşekkür Ederim Elinize Sağlık.

rica ederim
:yazici: