Filtreli HÜcreler Üzerinden İşlem yapma

[asilacar]

Merhabalar forumu arattıramadım nedense arama hata veriyor iş yerinden kusura bakmayınız eğer daha evvel sorulmuşsa...

Sorum şu ki ben belirli bir kolondaki değerlerden sıfır olmayanları filter yöntemi ile seçmek istiyorum. Yani ekrandaki verilerden mesela A kolonundaki sıfır olmayan değerleri göstersin ve ben görünürdeki tablo üzerinde çalışayım save etmeden örneğin B kolonundaki verileri seçip sheet 1 e kopyalayayı istiyorum ama sadece filter kriterine uyan hücreleri nasıl seçerim bilmiyorum yardımcı olabilir misiniz?


Not: Dosyayı göndermem pek mümkün değil ne yazık ki. =(

 

[omerceri]

Otomatik Filitre uygula dedikten sonra Açılan kutudan özeli seçin,
Filitre ölçütünde Eşit Değili belirtin,
Kriter olarak 0 yazın,
Görünen satırlardan istediğiniz bilgileri, seçip kopyalayın,
başka safaya yapıştırdığınızda, sadece görünen satırlardaki bilgiler gelecektir.

 

[asilacar]

Ben bunu makroyla yapmaya çalışıyorum yazmam gereken kodu bilmiyorum esas sormak istediğim oydu =)

 

[omerceri]

Aşağıdaki kodları kendinize uyarlayıp, kullanabilirsiniz.
Say = Range("a1").CurrentRegion.Rows.Count + 1
Sheets("Sayfa1").Range("a1").AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
Sheets("Sayfa1").Range("A2:F" & Say).Copy
Sheets("Sayfa2").Range("a1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[omerceri]

Örnek Ekte

 

[asilacar]

Hocam eline sa&#287;l&#305;k g&#252;zel olmu&#351; ama benim akl&#305;mda &#351;u var

Mesela Filtreli h&#252;crelerin say&#305;s&#305;n&#305; belirleyip ona g&#246;re range belirleyeyim &#231;&#252;nk&#252; &#231;al&#305;&#351;t&#305;g&#305;m dosya devasa boyutlarda 65000i &#231;ok ge&#231;mesin diye bu yola ba&#351;vurdum zaten.

Verdi&#287;in kod &#252;zerinden biraz gideyim olmad&#305; tekrar sorar&#305;m hocam sa&#287;olas&#305;n