DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Hocam Günaydın aşağıdaki yazdığınız kodların ne anlama geldiğini açıklayabilirmisiniz.Dosyanız ekte.
Private Sub Worksheet_Change(ByVal Target As Range) [COLOR=royalblue]'Sayfa1 değiştikçe makro çalışacak (Makro, change olayına bağlı)[/COLOR]
If Intersect(Target, [D3]) Is Nothing Then Exit Sub [COLOR=royalblue]'Sadece D3 hücresine bağlı kal, yani D3 teki değer değiştikçe makro çalışsın.[/COLOR]
If [D3] = "" Then [COLOR=royalblue]'Eğer D3 boş ise[/COLOR]
Selection.AutoFilter Field:=16
Selection.AutoFilter [COLOR=royalblue]'Sayfadaki süzme işlemini kaldır (Bunun daha basit bir kodu olabilirdi.[/COLOR])[COLOR=royalblue] D3 boşaltılırsa listenin tamamı görülüyor.[/COLOR]
Else [COLOR=royalblue]'Yoksa[/COLOR]
Range("B5:Q17").Select [COLOR=royalblue]'B5:Q17 alanını seç[/COLOR]
Selection.AutoFilter Field:=16, Criteria1:=[D3] [COLOR=royalblue]'Seçilen alanı D3'teki değeri kriter alarak süz[/COLOR]
Range("B5").Select [COLOR=royalblue]'B5 hücresine git[/COLOR]
End If
End Sub
"Merge Cells" komutunun veri ve formül alanlarına uygulanması zorluk çıkarır...Ektekİ Dosyada Anlattim. Fİltreleme YaptiĞimda Sadece Fİltrede GÖrÜnenlere Sira Numarasi Verİlmesİ Ve Fİltrelenen BÖlÜmÜn Adinin BaŞliĞa Yazilmasini Nasil Yapabİlİrİz... Örnek Dosya Ektedİr. Yardimlariniz İÇİn TeŞekkÜrler...
Hocam çok teşekkürlerSn komutan63
Modüle içine yazılanı boşverin. Önce modül içinde yazdım makroyu sonra Sayfa1'e kopyaladım. Modüldekini silmeyi unutmuşum.
Sayfa1'deki kodların anlamları ise kısaca şöyle;
Kod:Private Sub Worksheet_Change(ByVal Target As Range) [COLOR=royalblue]'Sayfa1 değiştikçe makro çalışacak (Makro, change olayına bağlı)[/COLOR] If Intersect(Target, [D3]) Is Nothing Then Exit Sub [COLOR=royalblue]'Sadece D3 hücresine bağlı kal, yani D3 teki değer değiştikçe makro çalışsın.[/COLOR] If [D3] = "" Then [COLOR=royalblue]'Eğer D3 boş ise[/COLOR] Selection.AutoFilter Field:=16 Selection.AutoFilter [COLOR=royalblue]'Sayfadaki süzme işlemini kaldır (Bunun daha basit bir kodu olabilirdi.[/COLOR])[COLOR=royalblue] D3 boşaltılırsa listenin tamamı görülüyor.[/COLOR] Else [COLOR=royalblue]'Yoksa[/COLOR] Range("B5:Q17").Select [COLOR=royalblue]'B5:Q17 alanını seç[/COLOR] Selection.AutoFilter Field:=16, Criteria1:=[D3] [COLOR=royalblue]'Seçilen alanı D3'teki değeri kriter alarak süz[/COLOR] Range("B5").Select [COLOR=royalblue]'B5 hücresine git[/COLOR] End If End Sub
Ali hocam teşekkürler elinize sağlıkUfak bir fonksiyon ve makro ile halledilebilir. Örneğiniz ektedir.
Not: Süzme için Levent Bey'in daha önce önerdiği makrodur.