listeden sayfaya aktarma

[akd]

Merhaba arkadaşlar,
Aşağıda yazdığım makro ile bilgileri listbox2 alıyorum,
Bir onay kutusu koyarak hepsini seçip yaz sayfasına göndermek ve birde listeden istedigim satırlerı yaz sayfasına göndermek istiyorum.
Malesef bir türlü başaramadım.

birde bu listeye sayfadan veri almanın daha kısa bir kodu yokturmu...

Yardımcı olacak arkadaşlara şimdiden çok teşekkür ederim.
Sub listeye()
On Error Resume Next
ListBox2.RowSource = ""
Dim myArray3()
Dim say As Integer
say = WorksheetFunction.CountA(Range("b2:b6000"))
ReDim myArray3(say, 9)
ListBox2.ColumnCount = 9
ListBox2.ColumnWidths = "0;0;65;50;40;140;80;80;80"
Dim i As Range, ay As String
Dim a, B, satir As Integer
ay = msno.Value
For Each i In Sheets("cariler").Range("b2:b6000")
If LCase(i.Value) = LCase(ay) Then
satir = i.Row
For B = 0 To 8
myArray3(a, B) = Worksheets("cariler").Cells(satir, B + 1)
Next
a = a + 1
End If
Next
ListBox2.List = myArray3
End Sub

 

[Levent Menteşoğlu]

Sayın akd

Listbox'a veri almanın basit bir yolu properties penceresindeki "RowSource" özelliğine listeye alacağınız alanı yazın. örneğin sayfa1!A1:A50 gibi


selamlar

 

[akd]

sayın leventm "RowSource" ile bu benim yaptığım bilgi alma olayı nasıl olur .Yani kişi numarasına göre kayıtları alma olayı.
Ama şu anda önemli olan listedeki verileri yaz sayfasına aktarmak.
Saygılar...