Sayfa1 Den 2 kritere göre Sayfaya 2 deki ilk boşsatrıdan itibaren veri aktarımı

[hsayar]

2 SATIRDAN SON SATIRA KADAR KONTROL EDECEK
6 SATIRDAN 75. SÜTUNA KADAR ÜÇ ARTARAK KONTROL EDECEK (6,9,12,15 GB.)

kontrol edilen satır sütun boş değilse [ Cells (str, stn) <> "" ]

Sayfa ikideki ilk boş satıra Range((Cells(str,1),Cells(str,5)) (kontrol edilen satırın 1 ve 5 nolu sütun aralığını ) ve
(kontrol edilen sütun, kontrol edilen satır ) : (kontrol edilen sütun + 2 , kontrol edilen satır ) aralığın kopyalayacak kod nasıl olmalıdır.

 

[hsayar]

arkada&#351;alar herhalde g&#246;zden ka&#231;t&#305; o kadar zor de&#287;il ama ben beceremedim
yard&#305;mlar&#305;n&#305;z i&#231;in te&#351;ekk&#252;rler

 

[exes]

Sub sorgula()
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
S2.[a2:h65536].ClearContents
c = 1
For a = 2 To S1.[B65536].End(3).Row
For y = 6 To 75 Step 3
If S1.Range("A" & a) <> "" And S1.Cells(a, y) = "" Then GoTo 20
c = c + 1
S2.Range("A" & c & ":E" & c) = S1.Range("A" & a & ":E" & a).Value
S2.Range("F" & c & ":H" & c) = S1.Range(Cells(a, y), Cells(a, y + 3)).Value

20 Next
Next
End Sub

 

[hsayar]

te&#351;ekk&#252;r ederim