Şarta bağlı makro

[magnet2014]

Arkadaşlar merhaba,

Üzerinde çalıştığım excel çalışma kitabının özet sayfasına diğer sayfaların I kolonunda "Fatura" yazan satırları kopyalamak istiyorum. Aşağıdaki kodu kullanmak istedim ancak çalışmadı. Yardımcı olabilirseniz çok sevinirim.

Teşekkürler

Sub Dugme4_akaryakitteknik()
Range("A6:Q" & Rows.Count).Clear
Range("a3").Select
    Selection.ClearContents
Dim i As Long, sonsat As Long, sat As Long, k As Integer
Dim myarr()
sat = 6
Sheets("ÖZET RAPOR").Select
Range("a3").Select
    ActiveCell.Value = "FATURASI BEKLEYEN iSLER"
myarr = Array("", "Ch1-1 transfer", "Ch1-1 tr. c.over", "Ch1-2", "Ch1-2 c.over")
For k = 1 To 4
If Sheets(myarr(k)).FilterMode Then Sheets(myarr(k)).ShowAllData
    sonsat = Sheets(myarr(k)).Cells(Rows.Count, "C").End(xlUp).Row
    For i = 2 To sonsat
        If Sheets(myarr(k)).Cells(i, "I").Value = "Fatura" Then
            Sheets(myarr(k)).Range("A" & i & ":Q" & i).Copy
            Range("A" & sat).PasteSpecial xlPasteValuesAndNumberFormats
            sat = sat + 1
        End If
    Next i
    sat = sat + 1
    Application.CutCopyMode = False
Next k
MsgBox "ISLEM TAMAM"
End Sub

 

[PLİNT]

Merhaba
Kodlarda sıkıntı görünmüyor.
https://www.dosyaupload.com/5055
Sayfa adlarına dikkat edin sonunda veya başlarında boşluk olmasın "Ch1-1 transfer "