Combobax taki Şarta Göre Başka Bir Sayfaya Listeleme

[ahmed_ummu]

İyi akşamlar arkadaşlar.

Veri sayfasındaki bazı verileri "rapor" sayfasına yazdırmak istiyorum.
Aşağıdaki kod ile sadece ikinci satıra yazıyor tüm verileri alt alta yazdıramadım. Bir sonraki veriyi bir alt satıra yazması gerekiyor. Combobox 1,2,3 deki şartlara göre liste yapacak rapor sayfasına. Combolardaki şart sağlanıyosa Veri sayfasındaki "b" sütununu "rapor" sayfasının "b" sütununa, veri sayfasındaki "c" sütununu rapor sayfasındaki "c" sütununa, veri sayfasındaki "15" sütunu rapor sayfasındaki "d" sütununa yazdırmak istiyorum. Yarımcı olursanız sevinirim.

On Error Resume Next
Set sh1 = Sheets("veri")
Set sh2 = Sheets("rapor")
For i = 2 To sh1.Cells(Rows.Count, 2).End(xlUp).Row
If sh1.Cells(i, 7).Value = ComboBox1.Value And sh1.Cells(i, 8).Value = CmboBox2.Value And sh1.Cells(i, 11).Value = ComboBox3.Value Then
sh2.Range("b2").Value = sh1.Cells(i, 2).Value
sh2.Range("c2").Value = sh1.Cells(i, 3).Value
sh2.Range("d2").Value = sh1.Cells(i, 15).Value
End If
Next i

 

[ÖmerBey]

Merhaba,
Eğer paylaştığınız kodlar doğru çalışıyorsa aşağıdaki şekilde alt alta yazdırabilirsiniz.

Set sh1 = Sheets("veri")
Set sh2 = Sheets("rapor")
s = 2
For i = 2 To sh1.Cells(Rows.Count, 2).End(xlUp).Row
If sh1.Cells(i, 7).Value = ComboBox1.Value And sh1.Cells(i, 8).Value = CmboBox2.Value And sh1.Cells(i, 11).Value = ComboBox3.Value Then
sh2.Range("b" & s).Value = sh1.Cells(i, 2).Value
sh2.Range("c" & s).Value = sh1.Cells(i, 3).Value
sh2.Range("d" & s).Value = sh1.Cells(i, 15).Value
s = s + 1
End If
Next i

 

[ahmed_ummu]

Merhaba,
Eğer paylaştığınız kodlar doğru çalışıyorsa aşağıdaki şekilde alt alta yazdırabilirsiniz.

Set sh1 = Sheets("veri")
Set sh2 = Sheets("rapor")
s = 2
For i = 2 To sh1.Cells(Rows.Count, 2).End(xlUp).Row
If sh1.Cells(i, 7).Value = ComboBox1.Value And sh1.Cells(i, 8).Value = CmboBox2.Value And sh1.Cells(i, 11).Value = ComboBox3.Value Then
sh2.Range("b" & s).Value = sh1.Cells(i, 2).Value
sh2.Range("c" & s).Value = sh1.Cells(i, 3).Value
sh2.Range("d" & s).Value = sh1.Cells(i, 15).Value
s = s + 1
End If
Next i

Çok teşekkürler Ömer bey çözüldü.

 

[ÖmerBey]

Rica ederim Ahmed Bey,
İyi çalışmalar...