Veri Süzmeden Sonra Değerleri Yapıştırmak

[mustafa1205]

Herkese günaydın. İçinden çıkamadığım konu veri sayfamdaki verileri süzdükten sonra diğer sayfaya süzülmüş olan verileri kopyalama yapıyorum. Ancak bir süre sonra anladım ki kopyaladığı sayfadaki tüm biçimlendirmeler dahil hepsini kopyalayıp yapıştırdığı için excel dosyamda gereksiz şişme oldu ve dosya yavaşladı. Aşağıdaki kodda nasıl bir düzeltme yapmalıyım ki sadece değerleri kopyalama yapsın. Normal şartlarda makro yöntemi ile basit birşey ama "currentRegion.Copy" kısmı kafamı karıştırdı.Teşekkürler.

ActiveSheet.Range("$A$1:$AZ$20000").AutoFilter Field:=8, Criteria1:= _
">=1"
Sheets("ÇARŞAF LİSTE").Select
Range("A6").CurrentRegion.Copy Sheets("ÇARŞAF LİSTE ÇIKTI").Range("A1")

 

[asi_kral]

Merhaba

Range("A6").Copy 
Sheets("ÇARŞAF LİSTE ÇIKTI").Range("A1").PasteSpecial(xlPasteValues)

Olarak değiştirin.

 

[mustafa1205]

Hızlı, güzel ve temiz bir cevap. Sayın asi kral çok teşekkür ediyorum. Şimdi halloldu. İyi çalışmalar dilerim.

 

[asi_kral]

Hızlı, güzel ve temiz bir cevap. Sayın asi kral çok teşekkür ediyorum. Şimdi halloldu. İyi çalışmalar dilerim.

Kolay Gelsin.