Döngüler

[BYSERTTAS]

Selamlar..
Alttaki Kodla Fatura Sorgulayıp,Listbox a almak istiyorum. Döngü işlemini beceremedim. Örnek 120 numaralı faturayı çağırdığımda faturada 10 tane alt alta kayıt var. bu kayıtların list bax a gelmesini istiyorum. yazmaya çalıştığım kod sadece ilk kaydı getiriyor. Kısacası döngü işlemini yapamıyorum yardımcı olurmusunuz.
kodlarım şu şekilde: (hatalı olabilir. çok detaylı bilgim yok sizlerin yaptıklarınıza bakarak bir şeyler öğrenmeye çalışıyorum. Kusuruma bakmayın.)

Aranan = InputBox("Fatura Numarsını Giriniz.", "ARAMA İŞLEMİ")
On Error Resume Next
KayıtSatırı = WorksheetFunction.Match(Aranan, WsFaturaDetay.Range("D"), 0)
If Err.Number > 0 Then
Err.Number = 0
BilgiMesajı ("Kayıt Bulunamadı...")
Else
Devam = 1
Tb4_FirmaAdı = WsFaturaDetay.Cells(KayıtSatırı, 2)
Tb4_FaturaTip = WsFaturaDetay.Cells(KayıtSatırı, 5)
Tb4_TeklifNo = WsFaturaDetay.Cells(KayıtSatırı, 4)
Devam = 0



LB4_TeklifDetayListesi.ColumnHeads = True
LB4_TeklifDetayListesi.ColumnCount = 5
LB4_TeklifDetayListesi.ColumnWidths = "75;150;50;50;50;1"
LB4_TeklifDetayListesi.AddItem Tb4_SutKodu
LBoxSatırı = LB4_TeklifDetayListesi.ListCount - 1
Tb4_sonsatır = WsFaturaDetay.Cells(Aranan, 4).End(xlDown).Row
SonSatır = WsFaturaDetay.Cells(1, 4).End(xlDown).Row
İlkSatır = WorksheetFunction.Match(Aranan, WsFaturaDetay.Range("D"), 0)

LB4_TeklifDetayListesi.List(LBoxSatırı, 0) = WsFaturaDetay.Cells(İlkSatır, 7)
LB4_TeklifDetayListesi.List(LBoxSatırı, 1) = WsFaturaDetay.Cells(İlkSatır, 8)
LB4_TeklifDetayListesi.List(LBoxSatırı, 2) = WsFaturaDetay.Cells(İlkSatır, 9)
LB4_TeklifDetayListesi.List(LBoxSatırı, 3) = WsFaturaDetay.Cells(İlkSatır, 10)
LB4_TeklifDetayListesi.List(LBoxSatırı, 4) = WsFaturaDetay.Cells(İlkSatır, 11)
End If
End Sub

 

[Korhan Ayhan]

Merhaba,

Birden çok satırı bulmak için aşağıdaki konuda paylaşılan kodlar işinize yarayabilir. İnceleyip kendinize uyarlamayı deneyiniz.

Birinci değeri es gec

İyi günler. Aşağıdaki kodlar ile veri sayfasından arama yapıyorum fakat bir işlemi çözemedim. C sütununda aynı değerlere sahip olan veriler var ilk veriyi C3 hücresine yazacak, aynı değerden ikinciyi C8 hücresine yazacak. Aynı değerin birincisi C3 hücresinde yazılı iken ikinci aynı değer C8...

www.excel.web.tr