Makro ile çoklu ara bul kopyala

[buyocan]

iyi günler forumda bu kodu buldum ama tam işimi görmüyor yardım edebilir misiniz
Sub Bul_240()
Dim s1 As Worksheet, s2 As Worksheet
Dim BUL As Range, satır As Long
Set s1 = Sheets("Çay")
Set s2 = Sheets("Çay")
Application.ScreenUpdating = False
For Each BUL In s1.Range("A2:Y5")
If BUL.Value = "Kaç Adet" Then
satır = satır + 7
BUL.EntireRow.Copy
s2.Select
Cells(satır, 1).PasteSpecial
End If
Next BUL
[A8].Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

benim ise sayfamda A2:Y5 arasında 4 adet arama yapıp bulduğum satırı kompke kopyalayıp sırayla A6-A7-A8-A9 yapıştırmak istiyorum
Yardım eden herkese şimdiden teşekkürler

 

[Ömer BARAN]

Merhaba.
Sorunuzu, cevabımın altındaki notları okuyarak,
gerçek belgenizle aynı yapıda bir örnek belge
üzerinden sorarsanız daha net cevap alırsınız diye düşünüyorum.

Aşağıdaki konu sayfasında bulunan 5 numaralı cevap işinize yarayabilir.

Sütunlardaki bilgilerden her hangi birisini sorguladığımda bilgileri getirsin
.