VBA Excel - Kopiowanie komórek z różnych skoroszytów do skoroszytu zbiorczego

Dzień dobry,
korzystam z kodu, który kopiuje mi wybrane komórki ze skoroszytu (o zmiennej nazwie) i konkretnego arkusza w tym skoroszycie (nazwa arkusza jest zawsze stała) do skoroszytu "zbiorczego" o stałej nazwie (w tym wypadku ZEST_ZAM.xlsx). W kodzie mam wpisaną "na sztywno" nazwę skoroszytu, z którego komórki są kopiowane i nie umiem tego zastąpić poleceniem (nie wiem czy tak to się nazywa), które powodowałoby, że kod działałby niezależnie od tego jaka to byłaby nazwa. Skoroszyt, z którego kopiowane są komórki jest zawsze otwarty (aktywny) i z niego uruchamiane jest makro. Gdy jego nazwa to KALKULATOR_1 wszystko działa, ale gdy ma inną nazwę to "klops".
Fragment kodu, który sprawia mi problem to:

.Cells(ostWs, i + 2) = Workbooks("KALKULATOR_1.xlsm").Sheets("ZAM_PODŁOGI").Range(lista(i))

Gdy wpisuję "ThisWorkbook" lub ActiveWorkbook" to albo polecenie się nie wykonuje, albo skoroszyt zbiorczy nagle dostaje rozmiar ponad 11MB (z kilkunastu kB) i nie mogę go otworzyć.

Cały kod wygląda następująco:


Próbowałem już szukać na forum rozwiązania, ale go nie znalazłem, choć przejrzałem mnóstwo wątków - przyczyną jest pewnie brak umiejętności programowania .
Z góry dziękuję za pomoc, Krzysztof.

Na początek zmień nazwę pliku i zmień tak samo nazwę w kodzie. Powinno działać, cudów nie ma.
W następnym kroku możesz wybrać plik za pomocą Application.FileDialog, zapamiętać, otworzyć plik i dalej robić to co chcesz. Parametry i sposób użycia Application.FileDialog znajdziesz łatwo na stronach MS albo pytaj.

Radziłbym zmienić kolejność tych wierszy

krzysztof_01 napisał:

Workbooks("ZEST_ZAM.xlsx").Close savechanges:=True
End With

Dziękuje za szybka podpowiedź. Jednak chodzi o co innego - pewnie nieprecyzyjnie się wysłowiłem na początku. Otóż nazwa źródłowego pliku (w kodzie KALKULATOR_1) zmienia się automatycznie (niezależnie od operatora) podczas zapisu pliku źródłowego.
Przykład operacji:
- otwieram skoroszyt KALKULATOR_1 (jest to kalkulacja zamówienia dla Klienta);
- wprowadzam w nim zmiany i zapisuję - do tej operacji mam kod zapisujący skoroszyt jako xlsm, ale już z nową nazwą (Klient jeszcze nic nie zamówił, ale ja zapisuję go już w bazie, gdyby się jednak zdecydował); skoroszyt z nową nazwą jest dokładną kopią skoroszytu źródłowego (KALKULATOR_1) tyle, że z inną nazwą (nazwisko Klienta_data);
- Klient do mnie wraca - otwieram więc skoroszyt, który ma już nową nazwę (nazwisko Klienta_data) - Klient decyduje się na zamówienie więc daję wydruk - w kodzie do wydruku jest też zawarty kod, który załączyłem w pierwszym post-cie.
- efektem wykonania kodu ma być wydruk zamówienia dla Klienta oraz zapis w skoroszycie ZEST_ZAM.xlsx określonych parametrów zamówienia po to, żebym mógł odnotowywać tam sobie status tegoż zamówienia (wysłano zamówienie do dostawcy, zamówienie zrealizowane, itp.)
Raz jeszcze z góry dziekuję, Krzysztof.

Sprobuj

Serdeczne podziękowania dla Pana JRV.
Bardzo, bardzo pięknie dziękuję!!! Działa wspaniale.
Wczoraj pół niedzieli szukałem rozwiązania - a to takie proste.
No cóż - "nie chciało się nosić teczki, trzeba nosić woreczki" .
Pozdrawiam, Krzysztof