Listboxa veri alma

[fehdur]

Aşağıdaki kod ile sayfa 5 deki koşula uyan veriler Sayfa 3 e kopyalanıyor.Yapmak istediğim sayfa 3 e değilde Listbox1 e kopyalanması veya aktarılması.Yardım için teşekkürler.


For i = 2 To Sheets("Sayfa5").Range("a65536").End(3).Row
If Sheets("Sayfa5").Range("A" & i).Value = Range("e13") Then
Sheets("Sayfa5").Range("A" & i & ":K" & i).Copy Sheets("Sayfa3").Range("a65536").End(3)(2, 1)
End if
Next i
End sub

 

[Mdemir63]

Selamlar
Örnek dosya ekleseniz daha çabuk yanıt alırsınız.
iyi çalışmalar

 

[fehdur]

Dosyayı ekliyorum.Veriler açılan userformdaki listboxa aktarılacak

 

[muysun35]

Dener misiniz?

For I = 2 To Sheets("Sayfa5").Range("a65536").End(3).Row
If Sheets("Sayfa5").Range("A" & I) Like Sheets("Sayfa5").Range("E13") Then
ListBox1.AddItem
ListBox1.List(Userform1.ListBox1.ListCount - 1, 0) = Sheets("Sayfa5").Range("B" & I)
ListBox1.List(Userform1.ListBox1.ListCount - 1, 1) = Sheets("Sayfa5").Range("C" & I)
ListBox1.List(Userform1.ListBox1.ListCount - 1, 2) = Sheets("Sayfa5").Range("D" & I)
ListBox1.List(Userform1.ListBox1.ListCount - 1, 3) = Sheets("Sayfa5").Range("E" & I)
ListBox1.List(Userform1.ListBox1.ListCount - 1, 4) = Sheets("Sayfa5").Range("F" & I)
ListBox1.List(Userform1.ListBox1.ListCount - 1, 5) = Sheets("Sayfa5").Range("G" & I)
ListBox1.List(Userform1.ListBox1.ListCount - 1, 6) = Sheets("Sayfa5").Range("H" & i)
ListBox1.List(Userform1.ListBox1.ListCount - 1, 7) = Sheets("Sayfa5").Range("I" & i)
ListBox1.List(Userform1.ListBox1.ListCount - 1, 8) = Sheets("Sayfa5").Range("J" & i)
ListBox1.List(Userform1.ListBox1.ListCount - 1, 9) = Sheets("Sayfa5").Range("K" & i)
End If
Next I

 

[muysun35]

Bu arada Adan k ya 11 sütun olur.. Listbox sınırı 10 Sütundur. B den K ya 10 sütun olarak ekledim kodu.

 

[fehdur]

Kod için teşekkürler.Sorun yok çalışıyor.Bir sütunu iptal ettim

 

[muysun35]

Kod için teşekkürler.Sorun yok çalışıyor.Bir sütunu iptal ettim

Rica ederim. İyi çalışmalar