Gelişmiş Filtre

[1Al2Ver]

Merhaba,

Ek'li dosyada, "SÜZ_GENEL" sayfasında, U4:U19 aralığından seçim yaparak "VERİLER" sayfasından veri almak istiyorum,

Bu işlem için, Makrp Kaydet yöntemi ile, Modül1'e bir makro kayıt ettim,

Makro işlevini yapmıyor ancak hata da bildirmiyor,

Çözüm rica ediyorum,

Teşekkür ederim.

 

[çıtır]

Deneyiniz.

Sub GFİLİTRE()
Dim s1 As Worksheet: Dim s2 As Worksheet
Set s1 = Sheets("VERİLER")
Set s2 = Sheets("SÜZ_GENEL")
Application.ScreenUpdating = False
son = s1.Cells(65355, "A").End(3).Row
 s2.Range("A4:R" & Rows.Count).Cells.Clear
   s1.Range("A1:R" & son).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=s2.Range("A1:R2"), CopyToRange:=s2.Range("A4"), Unique:=False
         Application.CutCopyMode = False
         Application.ScreenUpdating = True
MsgBox "İşlem tamam"
End Sub

 

[1Al2Ver]

Sayın çıtır merhaba,

Öncelikle duyarlığınız için teşekkür ederim,

Kodu Modül1'e kopyaladım, çalıştırdım, ancak "işlem tamam" demesine rağmen veriler tabloya yazılmadı,

Dosya ek'tedir.

 

[1Al2Ver]

..

 

[Ziynettin]

Ekli dosyayı deneyiniz.

 

[çıtır]

Dosyanız.Formülle U sütunudan aldığınızda Doğum tarihi boş veya ayı boş olanları aradığı için veri gelmemekdedir.Koşulları Yukarıda belirledipiniz satıra yazmanızı öneririm.

 

[1Al2Ver]

Sayın çıtır tekrar merhaba,

Tamam, öyle yapacağım,

Önerileriniz ve çözüm için teşekkür ederim,

Saygılarımla.

 

[çıtır]

Sayın çıtır tekrar merhaba,

Tamam, öyle yapacağım,

Önerileriniz ve çözüm için teşekkür ederim,

Saygılarımla.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.Bilmukabele

 

[1Al2Ver]

Sayın Ziynettin merhaba,

İlginiz için teşekkür ederim, tek seçim için güzel bir örnek dosya, sağ olun,

Ben birden fazla seçim kullanarak bir tablo oluşturmak istiyorum, olabiliyor ise bir çözüm de sizden beklerim,

Teşekkür ederim,

Saygılarımla.

 

[Ziynettin]

Sayın Ziynettin merhaba,

İlginiz için teşekkür ederim, tek seçim için güzel bir örnek dosya, sağ olun,

Ben birden fazla seçim kullanarak bir tablo oluşturmak istiyorum, olabiliyor ise bir çözüm de sizden beklerim,

Teşekkür ederim,

Saygılarımla.

 

[1Al2Ver]

Sayın Ziynettin merhaba,

Çok çok teşekkür ederim, sağ olun,

Birkaç deneme yaptım, sorun çıkmadı,

Saygılarımla.