[ÇÖZÜLDÜ] Buton ile Filtre

Salyangoz

Altın Üye
Katılım
27 Eylül 2007
Mesajlar
107
Excel Vers. ve Dili
Office 2007 English
Office 2010 English
Buton ile farklı sayfada filtreleme yapmak istiyorum. Bir kaç denemem oldu macro kayıt ettiğimde butonun bulunduğu sayfada bu filtreleme işlemi gerçekleşiyor... Ancak ben farklı bir sheet içerisinde filtrelemeyi yapmak istiyorum, ne önerirsiniz ?

Buton birinci sheet'te, listeler ikinci sheet'te, liste içerisinde istediğim bir bilgiyi filtrelemek istiyorum.

Kod:
Sub Ahmet_L()
'
' Ahmet_L Macro
'

'
    ActiveSheet.Range("$A$1:$Z$6000").AutoFilter Field:=2, Criteria1:="Ahmet"
End Sub
Bu kodda ilgili aralıkta Ahmet olanları getir diyorum ancak butonun bulunduğu sheet'te bu işlemi yapmaya çalışıyor.

UserForm ve Kodları ile ilgili PDF dosyasına baktım, ayrıca elimden geldiğince aradım ancak bulamadım.
 
Katılım
20 Aralık 2006
Mesajlar
939
Excel Vers. ve Dili
türkçe
Range("sayfa1!A1:Z6000").AutoFilter Field:=2, Criteria1:="Ahmet"

sayfa1 yazan yere sayfa adını yazarsanız hangi sheetteyse onu filtre yapar
 

Salyangoz

Altın Üye
Katılım
27 Eylül 2007
Mesajlar
107
Excel Vers. ve Dili
Office 2007 English
Office 2010 English
Teşekkür ederim. Evet, ben ActiveSheet'i kaldırmadan bunu deniyordum, doğru artık kafa birdolu olunca o şekilde denemek akla gelmiyor. Ancak filtreleme gerçekleştikten sonra ilgili sheet'e geçiş olmuyor, aynı buton ile bunu nasıl yaptırabilirim, kodun altına Select ile ilgili bir kaç şey ekleyip denemeler yaptım ancak olmadı.
Kısacası hem filtreleme yaptırıp hemde görmek için A1 hücresine gitmek istiyorum listenin olduğu sheet'e
 
Katılım
20 Aralık 2006
Mesajlar
939
Excel Vers. ve Dili
türkçe
Sheets("Sayfa2").Select
Range("A1").Select


ilgili sayfa ismini yazarsanız herhalde işinizi görür
bunu o kodun altına yazın
yanlış anlamadıysam böle bişeydi
 

Salyangoz

Altın Üye
Katılım
27 Eylül 2007
Mesajlar
107
Excel Vers. ve Dili
Office 2007 English
Office 2010 English
Gayet iyi anlamışsınız, çok teşekkürler, hayırlı günler dilerim.
 
Katılım
20 Aralık 2006
Mesajlar
939
Excel Vers. ve Dili
türkçe
Saolun Sizede "Sorunum Çözüldü" olarak İşaretlerseniz
Konu Araçlarından Arkadaşlar Gereksiz Yere Vakit Kaybetmesinler

Hayırlı Geceler...
 

Salyangoz

Altın Üye
Katılım
27 Eylül 2007
Mesajlar
107
Excel Vers. ve Dili
Office 2007 English
Office 2010 English
Aslında bu olaya birde "A1'e gittiğin sheet üzerinde print önizlemeyi otomatik aç" diyebiliyor muyuz aynı komutlar içerisinde onu soracaktım ?
 
Katılım
20 Aralık 2006
Mesajlar
939
Excel Vers. ve Dili
türkçe
baskı ön izleme ise istediğiniz
kodun sonuna bunu eklerseniz
a1 e geldikten sonra ön izlemeyi çalıştırır

ActiveWindow.SelectedSheets.PrintPreview
 

schlecht

Altın Üye
Katılım
13 Kasım 2009
Mesajlar
337
Excel Vers. ve Dili
Ofis 2016 TR 64 Bit
Merhaba, çok eski bir konu ama

Sub Ahmet_L()
'
' Ahmet_L Macro
'

'
ActiveSheet.Range("$A$1:$Z$6000").AutoFilter Field:=2, Criteria1:="Ahmet"
End Sub

filtreyi kaldırmak için ne yapmak gerekir.

.AutoFilter Mode = false yazdım ama olmadı.
 
Üst