AutoFilter özelliği ve Aktif sayfayı kopyalama

[denizfatihi]

Merhaba,

2 ayrı sorum olacak.

1. aşağıdaki kod ile sıfırdan '0' büyük değerleri AutoFilter ile süzüyorum yalnız bazı farklı bilgisayarlarda hata veriyor, bunu daha randımanlı bir şekilde yapma imkanı var mı ? hata kodu yok sadece sarı ile boyuyor.

Sub filtrelenen_ilk_deger()
'Private Sub filtrelenen_ilk_deger()
Sayfa2.Range("a1").Value = _
    Range("k15", Cells(Rows.Count, "k").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1, 1)
   
    ActiveSheet.Range("$A$14:$T$1048000").AutoFilter Field:=4, Criteria1:=">0", Operator:=xlFilterValues
   
End Sub

2. Sorum ise bu sayfada sadece süzülen değerleri birde üst tarafta yer alan özet tabloyu (Sarı ile boyalı kısım) ilgili firma ismi ve tarih ile başka bir kitaba taşıyıp kaydetme imkanı olur mu ?
örnek : A Firması - 161120 gibi

Yardımınız ve desteğiniz için şimdiden teşekkür ederim.

 

[muysun35]

Sub filtrelenen_ilk_deger()
Dim Syf2 As Worksheet
Set Syf2 = Sheets("Sayfa2")
Syf2.Select
Sayfa2.Range("a1").Value = _
Range("k15", Cells(Rows.Count, "k").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1, 1)
ActiveSheet.Range("$A$14:$T$65536").AutoFilter Field:=4, Criteria1:=">0", Operator:=xlFilterValues
End Sub

dener misiniz?

 

[denizfatihi]

öncelikle teşekkür ederim, ama yine aynı satırda hata verdi.

 

[muysun35]

Dim Syf2 As Worksheet
Set Syf2 = Sheets("Sayfa2")
Syf2.Select
With ActiveSheet
.Range("a1").Value = " "
.Range("k15", Cells(Rows.Count, "k").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1, 1)
.Range("A14:T65536").AutoFilter Field:=4, Criteria1:=">0", Operator:=xlFilterValues
End Sub

 

[denizfatihi]