tanıma göre değer getirme

[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

 

[Necdet]

Merhaba,

Dosya yok mu?

 

[magnet2014]

Merhaba,

Dosya yok mu?

Necdet Bey merhaba,

Dosya boyutu büyük olduğu ve şirket bilgilerini içerdiği için paylaşamadım. Bu sebeple sadece kodu paylaşabildim. Gönderdiğim kodun "If Sheets(myarr(k)).Cells(i, "I").Value = "Fatura" Then" kısmında tanımına "fatura" yerine bir rakam yazdığım zaman diğer sayfalardan I kolonunda o rakam yazılı satırları kopyalarak özet sayfaya getiriyor yani kod çalışıyor ancak "Fatura" gibi bir text yazdığım zaman kod çalışmıyor.