Sadece seçilenleri kopyalamak

[holifera]

Merhaba :hey:
Otomatik Süz ile belli kriterlere göre süzdüğüm verileri kopyalamak istiyorum. Tamamını kopyalayamıyorum. Menüde bunun için bir yol vardı ama bulamadım. Yardımcı olursanız sevinirim.

 

[karakıþ]

Anladığım kadarıyla Böyle bir şey
Sub kriterlaere_göre_süzerek_ayrı_sayfalara_kopyalar()

Application.ScreenUpdating = False
With Range("a1")
.AutoFilter Field:=3, Criteria1:="<10"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("sayfa4").Range("a1")
.AutoFilter Field:=3, Criteria1:="<30"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("sayfa5").Range("a1")
.AutoFilter Field:=3, Criteria1:=">50"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("sayfa6").Range("a1")
End With
End Sub

 

[karakıþ]

Veya böyle bir şeyde olabilir

Sub ınputa_girilrn_değeri_süzerek_kopyalar()
Dim rng As Range
Dim s As String
Application.ScreenUpdating = False
s = InputBox("süzülecek veri")
If s = "" Then Exit Sub
Range("a1").AutoFilter Field:=1, Criteria1:=s
Set rng = Range("a1").CurrentRegion.SpecialCells(xlCellTypeVisible)
Worksheets.Add.Move After:=Worksheets(Worksheets.Count)
rng.Copy Range("a1")
Columns("a:b").AutoFit
ActiveSheet.Name = s
rng.Parent.Select
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub

 

[holifera]

Aslında istediğim tam olarak bu değildi. Otomatik Süz için geçerli olup olmadığını bilmiyorum ama "gizle" seçeneği ile gizlenen hücreleri atlayarak sadece görünenlerin kopyalanmasının bir yolu vardı. Ben bu şekilde otomatik süz ile bulunan satırların da kopyalanıp kopyalanamayacağını öğrenmek istemiştim. Yine de ilginiz için çok teşekkürler. Kodlar üzerinde çalışıp deneyeceğim.

 

[ALPEN]

ctrl+c ?

 

[Haluk]

Süzme işleminden sonra, sadece görünen hücreleri kopyalamak için gerekli menüyü bulup, araç çubuklarından birine yerleştireceksiniz.

Aşağıdaki resimlerde sırasıyla bu iş için yapılacak işlemler görülmektedir.

 

[jale]

Merhaba,

İlk okuduğumdada bu soru çok garibime gitmişti.Halada aynı fikirdeyim.Mouse'la seçip (copy, paste) sonrada kopyalıyorsunuz sadece filtrelenmişler kopyalanıyor.

2003 ve 2000 de denedim oldu.Yada ben soruyu anlayamadım. :?

 

[Haluk]

...................bilmiyorum ama "gizle" seçeneği ile gizlenen hücreleri atlayarak sadece görünenlerin kopyalanmasının bir yolu vardı.

Yukarıdaki resimlerde, sadece "görünen" hücrelerin "seçilmesi" için kısa yol yöntemi belirtilmiştir.

Yukarıdaki alıntıda bahsedildiği gibi bazı satırlar "gizlendiği" ("hide") edildiği zaman, klasik kopyala-yapıştır kullandığınız zaman, gizli satırlar da yapıştırılır. Bunu engellemek için de yukarıdaki yöntem kullanılabilir. Ya da Edit>> Go to >> Special >> Visible cells only aktive edildikten sonra klasik kopyala - yapıştır yapılabilir.

 

[bybenj]

Merhaba Haluk bey,

Soylediginiz gibi yapiyorum ancak hata veriyor ve benim sectigim satirlari almiyor,bunun icin acaba belli bir sinir mi var?