Döngüde bulunan veriler farklı sayfaya alt alta yerleştirilsin

[mücahitayan]

merhaba arkadaşlar;

işlem isimli sayfamda bir döngü oluşturdum,

B SÜTUNUNU 3 TEN BAŞLAYARAK 65536'NCI SATIRA KADAR SAYIYOR.

COMBOBOX20'DE ADI YAZILI OLAN FİRMALARIMI BU DÖGÜDE ARIYOR.

BULDUKLARINI LİSTBOX'A EKLİYOR.

BURAYA KADAR HERŞEY NORMAL

ŞİMDİ BEN BU DÖNGÜ İÇERİSİNDE AYNI BULDUKLARINI, MUAVİN İSİMLİ SAYFAMA ALT ALTA KOPYALAMASINI İSTİYORUM. FAKAT ŞU AŞAĞIDAKİ MAKRODA DÖNGÜDEKİ SON BİLGİYİ KOPYALIYOR.

YANİ TAHMİN EDİYORUM. DÖNGÜDEKİ TÜM VERİLERİ, MUAVİN SAYFASININ AYNI SATIRI ÜZERİNE KOPYALIYOR. BUNU

LİTBOX'A ATTIĞI GİBİ MUAVİN SAYFAMA DA ATMASINI NASIL SAĞLAYABİLİRİM?

TEŞEKKÜR EDERİM.













For i = 3 To Sheets("İŞLEM").Cells(65536, "B").End(xlUp).Row
bos_satir = Sheets("MUAVIN").Range("B65536").End(xlUp).Row + 1

If Sheets("İŞLEM").Cells(i, "B").Value = ComboBox20.Value Then
ListBox1.AddItem
ListBox1.Column(0, X) = Sheets("İŞLEM").Cells(i, "A").Value
ListBox1.Column(1, X) = Sheets("İŞLEM").Cells(i, "B").Value
ListBox1.Column(2, X) = Sheets("İŞLEM").Cells(i, "C").Value
ListBox1.Column(3, X) = Sheets("İŞLEM").Cells(i, "D").Value
ListBox1.Column(4, X) = Sheets("İŞLEM").Cells(i, "E").Value
ListBox1.Column(5, X) = Format(Sheets("İŞLEM").Cells(i, "F").Value, "#,##0.00")
ListBox1.Column(6, X) = Format(Sheets("İŞLEM").Cells(i, "G").Value, "#,##0.00")
ListBox1.Column(7, X) = Sheets("İŞLEM").Cells(i, "H").Value
ListBox1.Column(8, X) = Sheets("İŞLEM").Cells(i, "I").Value
X = X + 1



Sheets("MUAVIN").Range("B" & bos_satir).Value = Sheets("İŞLEM").Cells(i, "C").Value
Sheets("MUAVIN").Range("A" & bos_satir).Value = Sheets("İŞLEM").Cells(i, "D").Value
Sheets("MUAVIN").Range("C" & bos_satir).Value = Sheets("İŞLEM").Cells(i, "E").Value
Sheets("MUAVIN").Range("D" & bos_satir).Value = Format(Sheets("İŞLEM").Cells(i, "F").Value, "#,##0.00")
Sheets("MUAVIN").Range("E" & bos_satir).Value = Format(Sheets("İŞLEM").Cells(i, "G").Value, "#,##0.00")

End If

 

[Orion1]

Önce sayfaya at sonra row source metodunu kullanarak listboxa al.Çok hızlanacaktır kodların.

 

[mücahitayan]

evren bey,

sayfayada atamıyorum sorunu anlayamadım, acaba sayfaya nasıl atabilirim

 

[mücahitayan]

yani sadece 1 satırını atıyor. bense tüm süzdüğü değerleri atsın istiyorum

 

[Orion1]

bos_satir = Sheets("MUAVIN").Range("B65536").End(xlUp).Row + 1
For i = 3 To Sheets("İŞLEM").Cells(65536, "B").End(xlUp).Row


If Sheets("İŞLEM").Cells(i, "B").Value = ComboBox20.Value Then
ListBox1.AddItem
ListBox1.Column(0, X) = Sheets("İŞLEM").Cells(i, "A").Value
ListBox1.Column(1, X) = Sheets("İŞLEM").Cells(i, "B").Value
ListBox1.Column(2, X) = Sheets("İŞLEM").Cells(i, "C").Value
ListBox1.Column(3, X) = Sheets("İŞLEM").Cells(i, "D").Value
ListBox1.Column(4, X) = Sheets("İŞLEM").Cells(i, "E").Value
ListBox1.Column(5, X) = Format(Sheets("İŞLEM").Cells(i, "F").Value, "#,##0.00")
ListBox1.Column(6, X) = Format(Sheets("İŞLEM").Cells(i, "G").Value, "#,##0.00")
ListBox1.Column(7, X) = Sheets("İŞLEM").Cells(i, "H").Value
ListBox1.Column(8, X) = Sheets("İŞLEM").Cells(i, "I").Value
X = X + 1



Sheets("MUAVIN").Range("B" & bos_satir).Value = Sheets("İŞLEM").Cells(i, "C").Value
Sheets("MUAVIN").Range("A" & bos_satir).Value = Sheets("İŞLEM").Cells(i, "D").Value
Sheets("MUAVIN").Range("C" & bos_satir).Value = Sheets("İŞLEM").Cells(i, "E").Value
Sheets("MUAVIN").Range("D" & bos_satir).Value = Format(Sheets("İŞLEM").Cells(i, "F").Value, "#,##0.00")
Sheets("MUAVIN").Range("E" & bos_satir).Value = Format(Sheets("İŞLEM").Cells(i, "G").Value, "#,##0.00")
bos_satir=bos_satir+1
End If

 

[Orion1]

Burada püf noktası İŞLEM Sayfasında C sütunundaki veriyi boş bırakmamanız .O satırda hangi hücreyi boş bırakırsanız bırakın ama C sütunundaki veriyi boş bırakmayın.İçine mutlaka bir veri girin.Yoksa hata verir.
Yada mutlaka bir başka sütuna veri girin ve onu sonsatır olarak alın,kullanın.

 

[mücahitayan]

Evren bey çooook teşekkür ederim.

 

[Orion1]

Evren bey çooook teşekkür ederim.

Rica ederim.