• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

oto filtrelemedeki özel filtreyi makroya bağlama

  • Konbuyu başlatan Konbuyu başlatan mitix
  • Başlangıç tarihi Başlangıç tarihi
M

mitix

Katılım
14 Temmuz 2009
Mesajlar
57
Excel Vers. ve Dili
2003
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.
 
range("a1:e1").select'şeklinde bir aralık belirleyin.
Selection.AutoFilter Field:=28, Criteria1:=">0", Operator:=xlAnd
 
hamitcan' Alıntı:
range("a1:e1").select'şeklinde bir aralık belirleyin.
Selection.AutoFilter Field:=28, Criteria1:=">0", Operator:=xlAnd
Genişletmek için tıkla ...

ü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
 
Sütun başlıklarının olduğu aralığı yazmalısınız.
 
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.

Kod: 
Sub KALANLAR()
    ActiveSheet.Unprotect
    Range("A10:AC10").AutoFilter Field:=28, Criteria1:=">0"
    ActiveSheet.Protect
End Sub
 
Korhan Ayhan' Alıntı:
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.

Kod: 
Sub KALANLAR()
    ActiveSheet.Unprotect
    Range("A10:AC10").AutoFilter Field:=28, Criteria1:=">0"
    ActiveSheet.Protect
End Sub
Genişletmek için tıkla ...

ç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.
 
Son düzenleme:
Kod: 
Sub filtreuygula()
    If Not ActiveSheet.AutoFilterMode Then [a10:g10].AutoFilter
End Sub
Sub filtrekaldir()
    If ActiveSheet.AutoFilterMode Then [a10:c10].AutoFilter
End Sub
 
hamitcan' Alıntı:
Kod: 
Sub filtreuygula()
    If Not ActiveSheet.AutoFilterMode Then [a10:g10].AutoFilter
End Sub
Sub filtrekaldir()
    If ActiveSheet.AutoFilterMode Then [a10:c10].AutoFilter
End Sub
Genişletmek için tıkla ...

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 ?
 
Selamlar,

Aşağıdaki kodu denermisiniz.

Kod: 
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
 
Korhan Ayhan' Alıntı:
Selamlar,

Aşağıdaki kodu denermisiniz.

Kod: 
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
Genişletmek için tıkla ...

ç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.:).
 
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.

Kod: 
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
 
Korhan Ayhan' Alıntı:
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.

Kod: 
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
Genişletmek için tıkla ...

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.
 
Selamlar,

#15 nolu mesajımdaki kodu güncelledim. İncelermisiniz.
 
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.
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst