VBA Filtreleme de 0'dan büyüktür komutu

[sebastianmbl]

s1.Range("$A$1:$C$100").AutoFilter Field:=2, Criteria1:=0

Arkadaşlar merhaba,
1. soru: yukarıda ki kriterde 0 dan büyüktür nasıl komut yazılmalıdır?

2. soru: aşağıda ki kod da aşağıda ki bölümde hata alıyorum nasıl düzeltmeliyim?
Selection.PasteSpecial xlPasteValuesAndNumberFormats

Yardımlarınız için şimdiden teşekkürler

>>Tüm kod aşağıda ki gibidir;<<

Sub InsertMacro()

Set s1 = Sheets("x")
Set s2 = Sheets("y")

Range("A1:C100").Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Range("A1:C100").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

s1.Range("$A$1:$C$100").AutoFilter Field:=3, Criteria1:=Format(Now, "dd.mm.yyyy")
s1.Range("$A$1:$C$100").AutoFilter Field:=2, Criteria1:
s2.Select
s2.Range("A65535").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial xlPasteValuesAndNumberFormats
s1.Range("$A$1:$C$100").AutoFilter

End Sub

 

[Korhan Ayhan]

Merhaba,

1. sorunuz için makro kaydet yöntemini kullanarak kolaylıkla çözüme ulaşabilirdiniz.

Criteria1:=">0"

2. sorunuz içinse "PasteSpecial" işlevini yapabilmek için önce "Copy" komutunu vermeniz gerekiyor. Sizin kodunuzda böyle bir satır göremedim.

 

[sebastianmbl]

Korhan Hocam çok teşekkür ediyorum faydalı yardımlarınız için,

Dediğiniz düzeltmeler yapılınca olay çözüldü!