;Nie działające makra office 2016 (filtrowanie tabeli wg daty) z poziomu VBA

Anonimowe

Od połowy lipca zaobserwowałem problem z kodem VBA wykorzystującym makro filtrowania tabeli wg daty. Pojawia mi się błąd:

"Metoda Autofilter z klasy Range nie powiodła się" Próbowałem naprawić office 2016, wykorzystałem podpowiedzi z pomocy online. Mam wszystkie poprawki windows jak i office które zostały wydane przez Was do dnia dzisiejszego.

Makro nie działa. Oparłem na tym rozwiązaniu poważny fragment swojego programu i to musi działać.

Proszę o sugestie co mógłbym jeszcze zrobić lub jak naprawić błąd.

Dodam że do wspomnianej wyżej daty program działał bez zarzutu, nie miałem takiego monitu o błędzie.

Pytanie zablokowane. To pytanie zostało zmigrowane ze społeczności pomocy technicznej firmy Microsoft. Możesz zagłosować, czy pytanie jest pomocne, ale nie możesz dodawać komentarzy ani odpowiedzi, ani też śledzić pytania.

Komentarze: 0

Odpowiedzi: 17

Oskar Shon 49,336 Punkty reputacji Moderator wolontariuszy

2020-09-21T17:40:01+00:00

A do czego ten filtr wykorzystujesz. Widzę że kopiujesz tam dane po filtrze.

Jakieś konkretne dane chcesz przefiltrować, dla jednej pozycji?

Może zbuduj pętle FOR na swoich danych i kopiuj te dane bez filtra, eliminując pozycje, które spełniają warunek.

W swoim kodzie masz mnóstwo śmieci z nagrywarki. Prawdopodobnie dochodziłeś do niektórych rzeczy sam, ale to nie jest kod doskonały.

Źle deklarujesz zmienne, brak zmiennych obiektowych itp.

Kod trzeba by prze-debugować i krokowo przejść przez jego linie aby zobaczyć co jest nie tak.

Bez pliku z danymi (mogą być zmyślone, choć faktyczne w typach i położeniu) aby coś więcej powiedzieć.
Czy ta odpowiedź była pomocna?

Komentarze: 0 Brak komentarzy
Anonimowe

2020-09-21T19:04:16+00:00

Jak zauważyłeś filtruję dane w innym pliku aby na tej podstawie wg filtrowanych danych uzyskać wartość którą kopiuję do pliku źródłowego. Filtr jest mi potrzebny aby funckja SUMYPOSREDNIE podała sumę w wartości filtrowanych. Liczę wg tego potzrebne mi dane i kopiuję.

Jak widzisz nie bardzo mam możliwość wykonywać to w pętli. Łatwiej jest mi wykorzystać właśnie takie rozwiązanie, które niestety przestało działać.

Domowy komputer który ma identyczną konfigurację, ale nie ma tych właśnie poprawek pozwala mi na wykonanie tych funkcji. Komputer służbowy wyświetla mi błąd.
Czy ta odpowiedź była pomocna?

Komentarze: 0 Brak komentarzy
Anonimowe

2020-09-21T19:23:27+00:00

Przed chwilą sprawdziłem działanie tej funkcji na komputerze domowym i wszystko działa. Różnica między tymi dwoma systemami to wymienione wcześniej aktalizacje. Chciałbym je odinstalować i zablokować ich ponowną instalację.
Czy ta odpowiedź była pomocna?

Komentarze: 0 Brak komentarzy
Oskar Shon 49,336 Punkty reputacji Moderator wolontariuszy

2020-09-21T20:16:54+00:00

Tak sobie sprawdzam co w tym poprawkach miało by być.

KB4569309

KB4560959

KB4565554

Niestety pierwszy numerek się nie znajduje, ale następne to: Aktualizacja stosu obsługi Windows 10 Version 1909

czyli nie Office. Wiec to może jakiś zły trop

Co do SUMYPOSREDNIE to po prostu suma wybranych pozycji.

Co za problem sobie je obliczyć wyłączając z obliczenia rekordy które cię nie interesują?

W kodzie masz

ActiveSheet.Range("$A$11:$JZ$8011").AutoFilter Field:=2, Operator:= xlFilterValues, Criteria2:=Array(1, Arkusz4.Cells(3, 7).Text)

ActiveSheet.Range("$A$11:$JZ$8011").AutoFilter Field:=3, Criteria1:= "Farba biała A 300"

Zatem w kol B masz farbę, a w C masz jakiś okres - załóżmy że 2020/03, wiec :

dim x&, ile as currency

for x = 11 to 8011 'lub oblicz ostatni wiersz

if cells("B" & x) = "Farba biała A 300" and _

cells("C" & x) = "2020/03" then ile = ile + cells("jakas_kol", x)

next

msgbox "i masz swoje SUMYPOSREDNIE: " & ile
Czy ta odpowiedź była pomocna?

Komentarze: 0 Brak komentarzy
Anonimowe

2020-09-22T07:08:46+00:00

Dobrze, ale dlaczego mam teraz siedzieć tydzień czasu i przepisywać kod skoro korzystam z czegoś standardowego co powinno zawsze działać. Rozumiem że jest inne rozwiązanie, jak widzę nawet niezbyt skomplikowane, tylko dlaczego obchodzimy problem zamiast go naprawić.

Nie jestem jedyny prawdopodobnie który boryka się z tym problemem, czy to oznacza że wszyscy teraz muszą zmieniać kod bo coś w poprawkach poszło nie tak?
Czy ta odpowiedź była pomocna?

Komentarze: 0 Brak komentarzy