[Rozwiązano] Makro do zapisu i drukowania w PDF - automatyczny zapis dla każdego numeru rej. z kolumny 'B' i 'H'

Witam,
Ze względu że nie mogę znaleść podobnego tematu a zarazem nie mogę zrobić zadania jakie mnie interesuję prosze o pomoc.
Mianowicie w załączniku jest plik który posiada makro do zapisu i drukowania w PDF-ie.To jest zrozumiałe i działa jak należy.
Wybierając w kolumnie "B" dany numer rej. poprzez sortowanie/filtrowanie i naciśnięciu przycisku Drukuj,otwiera się dokument w PDF-ie i można drukować.
Chciałbym aby za jednym przyciskiem zapisało mi w ten sam sposób wszystkie wpisy z kolumny "B" ale oddzielnie dla każdego numeru rej. najlepiej biorąc dane z listy z kolumny"H" która aktualizuje się po dodaniu w kolumnie "B" nowego numeru rej.
Czy jest to do zrealizowania?
Z góry dziękuję za wszelką pomoc .

Sprawdź: .

Jak zawsze dziękuję za pomoc.
Sprawdziłem lecz musiałem to przenieść do pliku roboczego i troche trwało.
Jest mały problem bo po zapisaniu wszystkich danych do PDF-a,co robi bardzo dobrze,wyrzuca błąd
"Run-time error '13'
Type mismatch"
i wskazuje na linijkę ,podświetlając na żółto

Cały mój kod teraz wygląda tak

Chociaż do końca nie mogę rozgryść tego "x" do czego on się odnosi.(x=3 i x=x+1)???

Nie wiem co masz w kolumnie T ?
w pliku, który wrzuciłeś pętla działa gdy ma wszystko różne od 0 (Cells(x, 8) <> 0), bo w kolumnie H ostatnie było 0, więc przerywa działanie pętli.

jasuchy napisał:

Chociaż do końca nie mogę rozgryść tego "x" do czego on się odnosi.(x=3 i x=x+1)???

zmienna x to numer wiersza od którego rusza pętla.

Kolumnie T jest właśnie ta lista co w pliku testowym była w H

jasuchy napisał:

Kolumnie T jest właśnie ta lista co w pliku testowym była w H

A kończy się zerem?

Pod ostatnim numerem rej. w "T" jest #N/D
A w testowym jest pod ostatnim zero

podmień na:

Teraz zapisuje bez błędu na końcu.
Działo się tak ponieważ był wskazany inny zakres do tej listy,nie z kolumny "B" tylko z innego spisu pojazdów.
Dziękuję jeszcze raz za pomoc.

@clubs
Jeszcze jedno pytanie.Chcąc zapisać nowe i tylko dane z tego roku(2022) lub od konkretnej daty,jak to dopisać.
Samo filtrowanie i sortowanie w kolumnie z datą nic nie daje gdyż makro czyta z kolumny,w tym przypadku,"T"
Dodanie zarejestrowanego makra również nie pomaga,mimo że widoczne są tylko wpisy z tego roku ,zapisuje wszystkie wpisy na podstawie podanej kolumny.
ActiveSheet.ListObjects("Tabela2").Range.AutoFilter Field:=1, Criteria1:= _
Array("="), Operator:=xlFilterValues, Criteria2:=Array(0, "1/2/2022")
Tak myślę-Czy może dodatkowa lista z uwzględnieniem w formule danego roku i wskazanie jej w kodzie?
Czy może coś innego?

pod tym dopisz

Po dodaniu tak jak napisałeś powstaje błąd linijkę niżej-na załączonym obrazku
Tak samo w tym pliku testowym od Ciebie jak i w moim roboczym zapisuje wszystkie pliki ale brak danych,puste wpisy-drugi zrzut ekranu
Podczas prób robiło to samo jeżeli zarejestrowane makro wkleiłem na początek kodu

jasuchy napisał:

o dodaniu tak jak napisałeś powstaje błąd linijkę niżej-na załączonym obrazku

ustaw inna datę np: (bo np. WS0003 nie miało daty powyżej 20)

Data datą ,to już wcześniej zmieniłem,ale zapisuje puste karty PDF z ostatnim numerem rej.
Jeżeli jest wpis robiony w 2022 roku to zapisuje normalnie czyli wpisy tylko z tego roku.-zrzut ekranu
Jeżeli w następnym numerze nie ma wpisu to zapisuje czyste PDF z nagłoówkiem poprzedniego numeru.-zrzut ekranu

jasuchy napisał:

Jeżeli w następnym numerze nie ma wpisu to zapisuje czyste PDF z nagłoówkiem poprzedniego numeru

Trzeba dodać instrukcje 'if" pewnie są w bazie daty niespełniające kryteria i niektóre mniejsze niż 2022-01-01.

@clubs
Tak tylko informacyjnie,
Wszelkie próby z VBA spełzły na niczym.Efekt cały czas taki sam,zapisuje puste karty,lub wszystko od początku.
Póki co wspomogłem się dodatkową kolumną "Zakres2",gdzie za pomocą formuły

Wybiera mi z kolumny "A" wpisy z rokiem wskazanym w komórce "M2"
Dopiero wtedy wskazana kolumna "T" gdzie zmienione odwołanie na "Zakres2" pokazuje tylko numery ze wskazanego roku.
I tak samo zapisuje w PDF-e(nawet numery zgadzają się z tymi z kolumny B.(Efekt w załączniku)
Do tego tylko linijkę w vba musiałem dodać ,którą przysłałeś.

Może i Makrem byłoby łatwiej ale.....poległem.
Cały kod wygląda następująco:

Dzięki jeszcze raz za pomoc.

jasuchy napisał:

Może i Makrem byłoby łatwiej ale.....poległem.

No to masz z instrukcją "if" (dodane do twojego kodu)

clubs napisał:

No to masz z instrukcją "if" (dodane do twojego kodu)

Dziś dopiero sprawdziłem.
Instrukcja super,nie może być inaczej.
Działa jak powinno.
Dziękuję.

Porady @clubs pomogły i rozwiązały problem.