Hücre Değerine Göre Satır Kopyalama

**leonadies** · 14-03-2015, 20:58

Arkadaşlar A sütununda var olan karışık verilerden sadece "METAL" yazanları ve bu satırın tamamını başka bir sekmeye yazdırmanın yolu var mıdır? Gelişmiş filtreleme işimi görmüyor malesef.. çok denedim.

**Orion1** · 14-03-2015, 21:01

Otomatik filtre kullanmayı deneyin.

**leonadies** · 14-03-2015, 21:14

Hocam otomatik filtreden kastın Gelişmiş filtre ise şayet; onda şöyle bir problem yaşanıyor.1.Sekmedeki "METAL" içeren hücrelere yenisi eklenince 2.Sekmede yer alan bu filtreleme düzenide otomatikmen bozuluyor.Bunun olması engellenmiyor. Kullanıcıdan 1.sekmeyi gizlemeliyim. 2Sekmede sadece "metal" yazan filtrelenmiş olmalı araya boşluk vb hücreler girmemeli yani..

**leonadies** · 14-03-2015, 21:37

Yardımlarınızı beklemekteyim...

**mucit77** · 14-03-2015, 23:02

Aşağıdaki kodu kendinize göre uyarlayıp deneyiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

Sub KOD()
Set s1 = Sheets("Sayfa1") 'Verilerin olduğu sayfa
Set s2 = Sheets("Sayfa2") 'Aktarılacak sayfa
For a = 1 To s1.Range("A65500").End(3).Row
    If s1.Cells(a, "A") = "METAL" Then
        x = x + 1
        For b = 1 To s1.UsedRange.Columns.Count
            s2.Cells(x, b) = s1.Cells(a, b)
        Next
    End If
Next
End Sub

Not: Sorularınızı örnek dosya ile somutlaştırırsanız daha net yardımlar alırsınız.

**Orion1** · 14-03-2015, 23:49

Alıntı:

leonadies tarafından gönderildi

Hocam otomatik filtreden kastın Gelişmiş filtre ise şayet; onda şöyle bir problem yaşanıyor.1.Sekmedeki "METAL" içeren hücrelere yenisi eklenince 2.Sekmede yer alan bu filtreleme düzenide otomatikmen bozuluyor.Bunun olması engellenmiyor. Kullanıcıdan 1.sekmeyi gizlemeliyim. 2Sekmede sadece "metal" yazan filtrelenmiş olmalı araya boşluk vb hücreler girmemeli yani..

Gelişmiş filtre değil.
Otomatik filtre.

hturkavci03 · 29-12-2017, 20:30

Merhaba, aynı sorunun biraz gelişmiş haline çare arıyorum. Verdiğiniz kodu

Sub KOD()
Set s1 = Sheets("Sayfa1") 'Verilerin olduğu sayfa
Set s2 = Sheets("Sayfa2") 'Aktarılacak sayfa
Set s3 = Sheets("Sayfa3") 'Aktarılacak sayfa
For a = 1 To s1.Range("A65500").End(3).Row
If s1.Cells(a, "A") = "METAL" Then
x = x + 1
For b = 1 To s1.UsedRange.Columns.Count
s2.Cells(x, b) = s1.Cells(a, b)
Next
End If
If s1.Cells(a, "A") = "AĞAÇ" Then
x = x + 1
For b = 1 To s1.UsedRange.Columns.Count
s3.Cells(x, b) = s1.Cells(a, b)
Next
End If
Next

End Sub

şeklinde uyguladım ve sorunsuz kopyalama yapıyor ancak kopyalama sonuçlarında aralarda satır boşlukları oluşuyor. Bu boşlukları nasıl engelleriz.

14-03-2015, 20:58	#1
leonadies Altın Üye Giriş: 12/02/2015 Şehir: Ankara Mesaj: 161 Excel Vers. ve Dili: Excel 2016 TR	Hücre Değerine Göre Satır Kopyalama Arkadaşlar A sütununda var olan karışık verilerden sadece "METAL" yazanları ve bu satırın tamamını başka bir sekmeye yazdırmanın yolu var mıdır? Gelişmiş filtreleme işimi görmüyor malesef.. çok denedim.

Konu Araçları
Yazıcı Çıktısını Göster Sayfayı E-posta ile Yolla
Görünüm Modları
Düzenli Mod Karışık Moda Geç Konu Moduna Geç

14-03-2015, 21:01	#2
Orion1 Uzman Giriş: 01/03/2005 Mesaj: 19,983 Excel Vers. ve Dili: Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit	Otomatik filtre kullanmayı deneyin.

14-03-2015, 21:14	#3
leonadies Altın Üye Giriş: 12/02/2015 Şehir: Ankara Mesaj: 161 Excel Vers. ve Dili: Excel 2016 TR	Hocam otomatik filtreden kastın Gelişmiş filtre ise şayet; onda şöyle bir problem yaşanıyor.1.Sekmedeki "METAL" içeren hücrelere yenisi eklenince 2.Sekmede yer alan bu filtreleme düzenide otomatikmen bozuluyor.Bunun olması engellenmiyor. Kullanıcıdan 1.sekmeyi gizlemeliyim. 2Sekmede sadece "metal" yazan filtrelenmiş olmalı araya boşluk vb hücreler girmemeli yani..

14-03-2015, 21:37	#4
leonadies Altın Üye Giriş: 12/02/2015 Şehir: Ankara Mesaj: 161 Excel Vers. ve Dili: Excel 2016 TR	Yardımlarınızı beklemekteyim...

29-12-2017, 20:30	#7
hturkavci03 Giriş: 11/03/2011 Şehir: Kocaeli Mesaj: 12 Excel Vers. ve Dili: Excel 2003 Türkçe	Merhaba, aynı sorunun biraz gelişmiş haline çare arıyorum. Verdiğiniz kodu Sub KOD() Set s1 = Sheets("Sayfa1") 'Verilerin olduğu sayfa Set s2 = Sheets("Sayfa2") 'Aktarılacak sayfa Set s3 = Sheets("Sayfa3") 'Aktarılacak sayfa For a = 1 To s1.Range("A65500").End(3).Row If s1.Cells(a, "A") = "METAL" Then x = x + 1 For b = 1 To s1.UsedRange.Columns.Count s2.Cells(x, b) = s1.Cells(a, b) Next End If If s1.Cells(a, "A") = "AĞAÇ" Then x = x + 1 For b = 1 To s1.UsedRange.Columns.Count s3.Cells(x, b) = s1.Cells(a, b) Next End If Next End Sub şeklinde uyguladım ve sorunsuz kopyalama yapıyor ancak kopyalama sonuçlarında aralarda satır boşlukları oluşuyor. Bu boşlukları nasıl engelleriz.