Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64065 Skopiuj do schowka Autofiltr
Autor Wiadomość
pi3cho 
Exceloholic


Posty: 226
Wysłany: 07-02-2019, 15:06   Autofiltr

Witam
Chciałbym wykorzystać Autoflitr na kolumnie.
Nie ma problemu jeżeli filtruję w ten sposób

Kod:
Criteria1:="<=3"


natomiast jeżeli zmienię na

Kod:
Criteria1:=">3"


wówczas filtr nie zwraca żadnych rekordów chociaż powinien.
W załączniku przykład.
Będę wdzięczny za pomoc.
Pozdrawiam

AutoFiltr.xlsm
Pobierz Plik ściągnięto 15 raz(y) 347.89 KB

ID posta: 362137 Skopiuj do schowka
 
 
apollo
ExcelSpec


Pomógł: 1230 razy
Posty: 4264
Wysłany: 07-02-2019, 15:34   

Działa prawidłowo w obu przypadkach.

To
Kod:

Range(Range("G3").Offset(1, 0), Range("G3").End(xlDown).End(xlToRight)).ClearContents

skasuje wyniki.

Uruchom kod bez powyższej linii to zobaczysz.
ID posta: 362139 Skopiuj do schowka
 
 
kuma 
Excel Expert


Pomógł: 1178 razy
Posty: 3518
Wysłany: 07-02-2019, 15:34   

Nie wiem jak to robisz. Kod działa poprawnie!!!
Najpierw filtrujesz po "<=3",potem kasujesz odfiltrowane.
Następnie filtrujesz po '>3', również kasujesz odfiltrowane więc nie masz nic w arkuszu, bo wszystko skasowałeś!!! ;-)
Skomentuj ostatnią linię kodu (z ClearContents) i zobaczysz, że działa poprawnie.
Pozdrawiam.
ID posta: 362140 Skopiuj do schowka
 
 
Maciej Gonet 
Excel Expert


Wersja: Win Office 2016
Pomógł: 1248 razy
Posty: 4291
Wysłany: 07-02-2019, 15:38   

U mnie filtr działa normalnie, tylko nie rozumiem, dlaczego po użyciu filtra wszystko kasujesz.

AutoFiltr1.xlsm
Pobierz Plik ściągnięto 11 raz(y) 363.45 KB

ID posta: 362142 Skopiuj do schowka
 
 
Tajan


Pomógł: 4309 razy
Posty: 9583
Wysłany: 07-02-2019, 15:55   

A tak, w ogóle, to masz jakiś dziwny kod do ustalania obszaru filtrowania. Ja proponowałbym jakoś tak:
Kod:
With Range("G3", Range("G3").End(xlToRight))
  .AutoFilter field:=.Find(What:="G").Column - .Column + 1, Criteria1:=">3"
End With
ID posta: 362143 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe