ďťż

Mefisto...diabeł czy anioł?

Mam następujący problem

Posiadam katalog Dane z 100 skoroszytów. Z każdego z tych skoroszytów chcę skopiować wybrane komórki z arkusza Zlecenie, do Skoroszytu Zbiorczy leżącego powyżej katalogu Dane

Założenia:

1. Arkusz w którym ma być osadzone makro otwierany jest zarówno w Excelu 2003 jak i 2007 (tu brak jest w VBA Application.FileSearch trzeba więc zamienić ją innym rozwiązaniem)

2. Skoroszyt zbierający dane ma nazwę Zbiorczy.xls

3. Skoroszyty z danymi są w podkatalogu Dane - podkatalog względem katalogu w którym jest plik Zbiorczy.xls ilość skoroszytów może przekraczać 100

4. Nazwy skoroszytów z danymi są nazwami działów

5. Zakres kopiowania to kilka komórek ($J$3;$C$7;$E$8;$I$27;$B$31;$C$12;$C$13;$E$15;$J$17; $E$53- te same w poszcz. skoroszytach z arkusza o nazwie Zlecenie) są to komórki których zawartość ma format: tekst lub liczby

6. Komórki mają być kopiowane w następujący sposób:

* od 5 wiersza - w nim będą nazwy kolumn i przycisk makra

* w jednym wierszu: w 1 kolumnie nazwa skoroszytu z podkatalogu Dane (bez rozszerzenia) w następnych kolumnach komórki z zakresu jw.,

* następny wiersz: nazwa kolejnego skoroszytu i komórki z zakresu i tak do wyczerpania skoroszytów z zasobnika.

Pozdrawiam i proszę o pomoc
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • katkaras.opx.pl