listboxta bulunan verileri bir sayfaya atabilirmiyiz

[ahmet79]

listboxta bulunan verileri bir sayfaya atabilirmiyiz
bunu neden listboxa yazdığınız kodla yapmıyorsunuz diyebilirsiniz
ama listbox combobox taki seçime göre verileri süzüyor


For i = 1 To [B65535].End(xlUp).Row
If Cells(i, 2) = ComboBox1.Value Then
ListBox1.AddItem (Cells(i, 11).Value)
End If

benim istediğim o anda listboxta görülen verilerin bir excel sayfasının a2 hücresinden başlayarak aşağıya doğru sıralamak

acaba bu mümkün mü?

 

[metinozlu]

sub aktar()
for i =0 to 100
on error resume next
istbox1.listinedx=i
cells(i,1).value=listbox1.value
next i
end sub

 

[ahmet79]

verdiğiniz kodu denediğimde listboxta bulunan sadece 2.sıradaki veriyi 100 defa a1 den başlayarak yazdırıyor

 

[metinozlu]

textbox a 100 adet veri geldiği varsayımına göre kod:arttırıp azaltmak sizin elinizde ,
Private Sub CommandButton1_Click()
On Error GoTo hata:

For i = 0 To 99
'On Error Resume Next
ListBox1.ListIndex = i
Cells(i + 2, 1).Value = ListBox1.Value
Next i
hata:

 

[ahmet79]

arkadaşım galiba anlatamadım listbox ta bulunan sadece tek bir veriyi 100 defa yazıyor benim istemiş olduğum listboxta görüntülenen tüm verilerin aktarılması idi
ilgilendiğin için teşekkür ederim bu mümkün mü acaba?

 

[metinozlu]

Sevgili arkadaşım ben kodu denedim ve size gönderdim kod ile sıra ile listboxdaki veriler seçiliyor ve sayfaya aktarılıyor. ben kodu çalıştıdıgımda 100 kere aynı veri yazılmıyor.kodunu gönderirmisiniz.

benim kodlarımın tamamı
Private Sub CommandButton1_Click()
On Error GoTo hata:

For i = 0 To 99
ListBox1.ListIndex = i
Cells(i + 2, 1).Value = ListBox1.Value
Next i
hata:
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 100
ListBox1.AddItem i & "ankara"
Next i
End Sub

 

[ahmet79]

arkadaşım pardon ben bir yerde hata yapıyormuşum ilgin teşekkürler kolay gelsin