Filtre Hatası

tolga78

Altın Üye
Katılım
15 Şubat 2021
Mesajlar
13
Excel Vers. ve Dili
Microsoft Office 2021
Altın Üyelik Bitiş Tarihi
25-02-2028
Ekli exe dosyasında tüm işlemler butonuna bastığımızda firma ünvanı yazan yere otamatik filtre koyuyor. ilaveten firmanın yazılı olduğu sütüna 2.filtre koyuyor. Yapılacak işlem Tüm işlemler butonuna basılınca firma ünvanın yazılan sütüna filtre konulmaması olacak bu konuda yardımlarınız bekliyorum
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,367
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

C++:
Sub XL_Filter_And_Sort()
    With Worksheets("FATURA")
        On Error Resume Next
        If ActiveSheet.AutoFilterMode Then
           ActiveSheet.AutoFilterMode = False
        End If
        .ListObjects("Tablo1").ShowAllData
        If Not .ListObjects("Tablo1").ShowAutoFilter Then
            .ListObjects("Tablo1").ShowAutoFilter = True
        End If
        On Error GoTo 0
        With .ListObjects("Tablo1").Sort
            .SortFields.Clear
            .SortFields.Add Key:=Range("Tablo1[FİRMA ÜNVANI]"), SortOn:=xlSortOnValues, Order:=xlDescending
            .SortFields.Add Key:=Range("Tablo1[İŞLEM TÜRÜ]"), SortOn:=xlSortOnValues, Order:=xlDescending
            .Header = xlYes
            .Apply
        End With
    End With
End Sub
 

tolga78

Altın Üye
Katılım
15 Şubat 2021
Mesajlar
13
Excel Vers. ve Dili
Microsoft Office 2021
Altın Üyelik Bitiş Tarihi
25-02-2028
Korhan bey mesajda yazdığınız kodları excel uygulamasında fatura kısmına yapıştırdım ama maalesef gene aynı filtre hatasoı alıyorum
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,367
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Önerdiğim kodu dosyanıza ekledim. Ekli dosya bende sorunsuz çalışıyor.
 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,655
Excel Vers. ve Dili
Pro Plus 2021
Kod:
    With Worksheets("FATURA").ListObjects("Tablo1")
        If .Range.AutoFilter Then .Range.AutoFilter
        With .Sort
            .SortFields.Clear
            .SortFields.Add Key:=Range("Tablo1[FİRMA ÜNVANI]"), SortOn:=xlSortOnValues, Order:=xlDescending
            .SortFields.Add Key:=Range("Tablo1[İŞLEM TÜRÜ]"), SortOn:=xlSortOnValues, Order:=xlDescending
            .Header = xlYes
            .Apply
        End With
    End With
 

tolga78

Altın Üye
Katılım
15 Şubat 2021
Mesajlar
13
Excel Vers. ve Dili
Microsoft Office 2021
Altın Üyelik Bitiş Tarihi
25-02-2028
korhan bey size dosyayı gönderiyorum tüm işlemlere bastığımda yukarıda firma unvanı yazan yere otomatik filtre koyuyor bazen de ara sıra aşağıda yaza adres veya vergi no yere de filtre koyuyor sizin yaptığınız kodlamayı da ekledim ama gene de aynısını yapıyor. Dosyada ok işareti ile gösterdim.
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,367
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Önerdiğim kodu dosyanızda göremedim...
 

tolga78

Altın Üye
Katılım
15 Şubat 2021
Mesajlar
13
Excel Vers. ve Dili
Microsoft Office 2021
Altın Üyelik Bitiş Tarihi
25-02-2028
kopya olan dosyayı göndermişim kusura bakmayın orjinali gönderiyorum
 

Ekli dosyalar

tolga78

Altın Üye
Katılım
15 Şubat 2021
Mesajlar
13
Excel Vers. ve Dili
Microsoft Office 2021
Altın Üyelik Bitiş Tarihi
25-02-2028
Tüm işlemler butonuna tıklayınca 2 kere işlem yapıyor. Yalnız bu butona birkez basınca yapılan tüm işlemler gelecek. ayrıca yukarıda yazan firma ünvanı kısmına filtre koymayacak
 
Katılım
5 Ocak 2019
Mesajlar
572
Excel Vers. ve Dili
Ofis 365 Tr
Altın Üyelik Bitiş Tarihi
05-01-2025
Sorunu doğru mu anladım bilmiyorum ama, ben size şöyle birşey yaptım, C2 de ne seçerseniz filtreleme yapacak.
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,367
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Önerdiğim kodu dosyanıza eklemişsiniz fakat butona bu kodu tanımlamamışsınız. Butona tıklayınca halâ sizin eski kodunuz devreye giriyor.
 

tolga78

Altın Üye
Katılım
15 Şubat 2021
Mesajlar
13
Excel Vers. ve Dili
Microsoft Office 2021
Altın Üyelik Bitiş Tarihi
25-02-2028
Korhan bey tum işlemler butonuna tıklayınca tum yapılan işlemlerin gelmesi gerekiyor.Sizin kodu ekledim hatta butona sizin kodları olan makroyuda atadım.Ama tıklayınca komple yapılan işlemler gelmiyor.Tum işlemlere tıklayınca yapılan komple işlemlerin geliyor fakat yukarıda firmayı seçince firma ünvanı yazılan yere filtre koyuyor.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,367
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Bu kodu deneyiniz.

C++:
Sub XL_Filter_And_Sort()
    Application.ScreenUpdating = False
    With Worksheets("FATURA")
        On Error Resume Next
        If ActiveSheet.AutoFilterMode Then
           ActiveSheet.AutoFilterMode = False
        End If
        With .ListObjects("Tablo1")
            If Not .AutoFilter Is Nothing Then .AutoFilter.ShowAllData
        End With
        On Error GoTo 0
        With .ListObjects("Tablo1").Sort
            .SortFields.Clear
            .SortFields.Add Key:=Range("Tablo1[FİRMA ÜNVANI]"), SortOn:=xlSortOnValues, Order:=xlDescending
            .SortFields.Add Key:=Range("Tablo1[İŞLEM TÜRÜ]"), SortOn:=xlSortOnValues, Order:=xlDescending
            .Header = xlYes
            .Apply
        End With
    End With
    Application.ScreenUpdating = True
End Sub
 

tolga78

Altın Üye
Katılım
15 Şubat 2021
Mesajlar
13
Excel Vers. ve Dili
Microsoft Office 2021
Altın Üyelik Bitiş Tarihi
25-02-2028
Teşekkür ederim. şimdi oldu. herşey düzeldi. Elinize emeğinize sağlık . sıkıntı nereden kaynaklanıyormuş.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,367
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Filtreyi temizleyen kod satırını hatalı kurgulamışım. Ondan kaynaklı sorun olmuş.
 

tolga78

Altın Üye
Katılım
15 Şubat 2021
Mesajlar
13
Excel Vers. ve Dili
Microsoft Office 2021
Altın Üyelik Bitiş Tarihi
25-02-2028
Korhan bey benim yaptığım excelde tum işlemler makrosunda hata nerede onu demiştim.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,367
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Aşağıdaki satırdan önce hücre seçimi belirtmemişsiniz.

Selection.AutoFilter ....

Doğal olarak sayfada hangi hücre seçili ise o hücreye göre kod çalışacaktır. Eğer sayfada hatalı bir hücre seçili ise kod istediğiniz gibi çalışmayacaktır.

Ayrıca kodun devamındaki sıralama işleminde Range("B8:J65536").Select alanını seçerek işlem yapmışsınız. Fakat tablonuz "O" sütununa kadar devam ediyor.
 
Üst