Excel2007'de Filtreli Alandan Cut - Paste İşlemi

[falcatas84]

Filtreli Alanda 1'den 9 a kadar sayılar mevcut. Ben, 1 sayısını filtreledikten sonra, 1 leri buradan kesip baska yere yapıstırmak ıstıyorum. Ama 1 leri filtreleyip kes dedikten sonra, diger tum satırlarda beraberınde gelıyor. Sadece 1 leri kesmek icin ne yapmalıyım?
Ekli dosyada örnek üzerinde de bakabilirsiniz?

Bu konuda bilgi sahibi bir arkadas var mı?

 

[1Al2Ver]

Merhaba, böyle bir kod işinizi görür mü ?

Aktarılacak sayfanın (sheets2) adını "süz" yaptığımızı varsayarak, kodu modül'e kopyalayıp, sheets1 de bir butona atayın, süzüleni "süz" sayfası A2 hücresinden itibaren kopyalar

Sub MakroA()
SonSatır = [A65536].End(3).Row
Range("A4:A" & SonSatır).SpecialCells(xlCellTypeVisible).Copy Sheets("süz").[A2]
MsgBox ("Veriler Süz Sayfasına Aktarıldı")
End Sub

Not ; Sayın Korhan Ayhan'ın yazdığı koddan alıntıdır.

 

[alaoglu]

arkadaşım önce 1 leri filtreden seç daha sonra tara kopyala istediğin yere yapıştır.
sonra taradığın yeri tekrar tara ve del tuşu ile sil

 

[sunkid]

arkadaşım önce 1 leri filtreden seç daha sonra tara kopyala istediğin yere yapıştır.
sonra taradığın yeri tekrar tara ve del tuşu ile sil

dostum,
evet buda bir çözüm fakat filitreleme yaptıktan sonra değişik satırlardaki 1'leri kes dediğimizde satır aralarındaki diğer verileride kesiyor filitreleme yaptıktan sonra kes'i kullanmak mümkünmü acaba?

 

[falcatas84]

??????????????