oto filtrelemedeki özel filtreyi makroya bağlama

[mitix]

Sub kalanlar()
'
' kalanlar Makro
' Makro umit tarafından 15.07.2009 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+k
'
Selection.AutoFilter Field:=28, Criteria1:=">0", Operator:=xlAnd
End Sub



yaptığımım oto filtrede özel filtreleme olayınımı makro olarak kaydetmeye çalıştım ama debug verdi. nasıl düzeltebilirim.

 

[hamitcan]

range("a1:e1").select'şeklinde bir aralık belirleyin.
Selection.AutoFilter Field:=28, Criteria1:=">0", Operator:=xlAnd

 

[mitix]

range("a1:e1").select'şeklinde bir aralık belirleyin.
Selection.AutoFilter Field:=28, Criteria1:=">0", Operator:=xlAnd

üstad aşağıdakini denedim olmadı yine hata verdi.

Sub kalanlar()
'
' kalanlar Makro
' Makro umit tarafından 15.07.2009 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+k
'
Range("ab11:ab1510").Select
Selection.AutoFilter Field:=28, Criteria1:=">0", Operator:=xlAnd
End Sub

 

[hamitcan]

Sütun başlıklarının olduğu aralığı yazmalısınız.

 

[mitix]

Sütun başlıklarının olduğu aralığı yazmalısınız.

ben kod yazmasını bilmemki nasıl yani sütün başlığının olduğu aralık neresidir.

 

[hamitcan]

En iyisi, siz, dosyanızı ekleyin.

 

[mitix]

En iyisi, siz, dosyanızı ekleyin.

dosya ekdedir. tşkler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullananilirsiniz. Sayfanız korumalı olduğu için hata oluşmaktadır. Filtreleme işleminden önce koruma kaldırılırsa bir problem yaşamazsınız.

Sub KALANLAR()
    ActiveSheet.Unprotect
    Range("A10:AC10").AutoFilter Field:=28, Criteria1:=">0"
    ActiveSheet.Protect
End Sub

 

[mitix]

Selamlar,

Aşağıdaki kodu kullananilirsiniz. Sayfanız korumalı olduğu için hata oluşmaktadır. Filtreleme işleminden önce koruma kaldırılırsa bir problem yaşamazsınız.

Sub KALANLAR()
    ActiveSheet.Unprotect
    Range("A10:AC10").AutoFilter Field:=28, Criteria1:=">0"
    ActiveSheet.Protect
End Sub

çok saol tam istediğim kod..koruma açıkken bile çalışıyor. bide buna benzer kod. tüm filtreleri kapat tümünü göster tarzında bişey yapmak istiyorum. yani veri / filtre uygula / tümünü göster işlevi. bunu makro olarakkaydettim fakat. yine koruma açıkken ve zaten hepsi göster vaziyetteyken makro hataya geçiyor. yani iht. olan Criteria1:=">0" Criteria1:="<=0" ve tümünü göster. son olarakta acitvesheet.protect komutu ile biterdiğimizde korumaya alıyor fakat defaut olarak bunu birçok şeye izin vermiyor. default da kilitli hücreleri seç ve kilidi açılmış hücreleri seç var fakat ben tüm izinlerin tikili olmasını istiyorum.


bu forum sayesinde çok şey öğreniyorum. çok tşkler.

 

[hamitcan]

Sub filtreuygula()
    If Not ActiveSheet.AutoFilterMode Then [a10:g10].AutoFilter
End Sub
Sub filtrekaldir()
    If ActiveSheet.AutoFilterMode Then [a10:c10].AutoFilter
End Sub

 

[mitix]

Sub filtreuygula()
    If Not ActiveSheet.AutoFilterMode Then [a10:g10].AutoFilter
End Sub
Sub filtrekaldir()
    If ActiveSheet.AutoFilterMode Then [a10:c10].AutoFilter
End Sub

bu kod ne için hangi soruma karşılık cvp. anladığım 2 kod var. belitilen hücre aralığında filtre yoksa filtre uygula varsa kaldır gibi bişeymidir acaba ?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub KALANLAR()
    ActiveSheet.Unprotect Password:="12345"
    
    Range("A10:AC10").AutoFilter
    Range("A10").AutoFilter Field:=28, Criteria1:=">0"
    ActiveSheet.Protect Password:="12345", DrawingObjects:=False, _
    Contents:=True, Scenarios:=False, AllowFormattingCells:=True, _
    AllowFormattingColumns:=True, AllowFormattingRows:=True, _
    AllowInsertingColumns:=True, AllowInsertingRows:=True, _
    AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
    AllowDeletingRows:=True, AllowSorting:=True, _
    AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub

 

[hamitcan]

bu kod ne için hangi soruma karşılık cvp. anladığım 2 kod var. belitilen hücre aralığında filtre yoksa filtre uygula varsa kaldır gibi bişeymidir acaba ?

Evet, dediğiniz gibi.

 

[mitix]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub KALANLAR()
    ActiveSheet.Unprotect Password:="12345"
    
    Range("A10:AC10").AutoFilter Field:=28, Criteria1:=">0"
    
    ActiveSheet.Protect Password:="12345", DrawingObjects:=False, _
    Contents:=True, Scenarios:=False, AllowFormattingCells:=True, _
    AllowFormattingColumns:=True, AllowFormattingRows:=True, _
    AllowInsertingColumns:=True, AllowInsertingRows:=True, _
    AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
    AllowDeletingRows:=True, AllowSorting:=True, _
    AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub

çok saol çok güzel oldu son birşey Range("A10:AC10").AutoFilter tümünü göster. diye bişey nasıl yazarım tabi yukarıdaki gibi korumaya takılmayacak..

 

[Korhan Ayhan]

Selamlar,

#12 nolu mesajımdaki koda küçük bir ekleme yaptım. İkinci kez çalıştırdığınızda hata vermemesi için.

Son sorunuz için aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub TÜMÜNÜ_GÖSTER()
    ActiveSheet.Unprotect Password:="12345"
 
    Range("A10:AC10").AutoFilter
 
    ActiveSheet.Protect Password:="12345", DrawingObjects:=False, _
    Contents:=True, Scenarios:=False, AllowFormattingCells:=True, _
    AllowFormattingColumns:=True, AllowFormattingRows:=True, _
    AllowInsertingColumns:=True, AllowInsertingRows:=True, _
    AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
    AllowDeletingRows:=True, AllowSorting:=True, _
    AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub

 

[mitix]

emeğine sağlık

 

[mitix]

Selamlar,

#12 nolu mesajımdaki koda küçük bir ekleme yaptım. İkinci kez çalıştırdığınızda hata vermemesi için.

Son sorunuz için aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub TÜMÜNÜ_GÖSTER()
    ActiveSheet.Unprotect Password:="12345"
    
    Range("A10:AC10").AutoFilter Field:=28
    
    ActiveSheet.Protect Password:="12345", DrawingObjects:=False, _
    Contents:=True, Scenarios:=False, AllowFormattingCells:=True, _
    AllowFormattingColumns:=True, AllowFormattingRows:=True, _
    AllowInsertingColumns:=True, AllowInsertingRows:=True, _
    AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
    AllowDeletingRows:=True, AllowSorting:=True, _
    AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub

autofilter field:=28 için ayarlı fakat ben tüm a10:ac10 arasındaki filtrelerin tümünü kontrol etmesini ve açmasını istiyorum. yani field 29 a kadar kontrol edip tümünü göster demesi lazım. tşkler.

 

[Korhan Ayhan]

Selamlar,

#15 nolu mesajımdaki kodu güncelledim. İncelermisiniz.

 

[dbicer83]

Süzdeki seçenklerin makro karşlıkları ve kullanımları konusunda bilgi edinmek istiyorum.
Örneğin değeri 0 dan büyük olanlar küçük olanlar gibisinden.
Combobox yardımıyla borcu olanlar olmayanlar gibi bir listeleme yaptırmak istiyorum.
http://www.excel.web.tr/showthread.php?p=391499#post391499 konuya istinaden.
Teşekkürler.