Filtre durumunda data çekememek

[magnet2014]

Arkadaşlar merhaba,

Özet Rapor sayfasına diğer sayfalardan veri çekmek için aşağıdaki kodu kullanıyorum. Ancak rapor çekilen sayfalarda filtre olduğu zaman o sayfada filtre sebebiyle görünmeyen dataları özet rapor sayfasında göstermiyor. Bu durumu nasıl aşabilirim?

Sub Dugme1_Tiklat()
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 = "TEKNIK YATIRIM ÖZET RAPORU"
myarr = Array("", "Ch1-1 transfer", "Ch1-1 tr. c.over", "Ch1-2", "Ch1-2 c.over")
For k = 1 To 4
    sonsat = Sheets(myarr(k)).Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To sonsat
        If Sheets(myarr(k)).Cells(i, "A").Value = 1 And Sheets(myarr(k)).Cells(i, "D").Value <> "C" 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

 

[Ömer BARAN]

Merhaba.

Örnek belge yüklememişsiniz. Bu nedenle cevap biraz afaki olacak ama;
For k = 1 To 4 satırından sonra aşağıdaki satırı ekleyerek dener misiniz?
.

    If Sheets(myarr(k)).FilterMode Then Sheets(myarr(k)).ShowAllData

 

[Erdem Akdemir]

Merhaba,

Örnek dosyanızı eklerseniz farklı veri sorgulama yöntemleri ile kod yazılabilir.

 

[magnet2014]

Merhaba.

Örnek belge yüklememişsiniz. Bu nedenle cevap biraz afaki olacak ama;
For k = 1 To 4 satırından sonra aşağıdaki satırı ekleyerek dener misiniz?
.

    If Sheets(myarr(k)).FilterMode Then Sheets(myarr(k)).ShowAllData

Ömer Bey,

Desteğiniz için teşekkür ederim. Sayenizde sorunum çözüldü.

İyi çalışmalar,