Makro wstawianie danych, kopiowanie z innego pliku exela, wolne miejsce

Najpierw opis, potem problem.
Przykładowy Excel 2013 o nazwie "POMOC" w nim są komórki scalone i nie scalone, niestety tak musi być.
Przykładowo z folderze o nazwie "AAA" mam 2000 plików Excela o różnie zapisanych nazwach (imie i nazwisko, data itp.)a wyglądzie w środku jak plik o nazwie "POMOC"..
W folderze "AAB" jest plik Excela o "BAZA". W "Bazie" są dane od kolumny A do kolumny G. wiersze od 1 do 2000.

Makro które ma za zadanie z pliku "BAZA" wstawić dane z komórek A1: G1 do wszystkich plików zapisanych w folderze "AAA" do pierwszej wolnej komórki w kolumnie B. Jak kolumna B jest wolna wstawia tak jak przykładzie.

W przykładowym pliku kolor czerowny to dane wypełnione, kolor żółty to dane do wstawienia danych z pliku "BAZA".

Jedynie ja określam z jakiego wiersza z BAZY należy pobrać dane., np. A1:G1.

Makro w oddzielnom skoroszycie

A jak by wyglądały makra, w których dane trzeba wstawić miedzy isntniejące już dane.
Makro które umożliwia wstawienie danych nie we wszystkie pliki, tylko w część plików, powiedzmy nazwa jest podobna

zalezy jak podobna
jesli od poczatku, to wystarczy
plik = Dir(path_A & "Poczatek_nazwy*.xlsx")
inaczej np.
While plik <> "" AND plik Like "*2017-10*"

Tworząc nazwy pod zapis plików, musze mieć na uwadze, że maja cechę wspólna ale czymś różnią dla ich rozróżnienia.
Powiedzmy następujące nazwy;
---- "Plan_marek_zdunek"(słowo plan jest wspólne a różnie je imię i nazwisko);
---- "0111-600-1:" cechą wspólna jest 0111-600-" a różnią cyfra kolejna "1", bo następna była by 2 i tak dalej.

JRV napisał:

While plik <> "" AND plik Like "*2017-10*"

cechą wspólna jest 2017-10 w środku nazwy

JRV napisał:

plik = Dir(path_A & "Poczatek_nazwy*.xlsx")

cechą wspólna jest Poczatek_nazwy na początku nazwy pliku
dokonać analogii..

Domyślam że kolega pyta o te dane:
2017-10-20 19-10-2017 18-10-2017 (dane z pliku BAZA),

, to są daty które należy wstawić w odpowiednie miejsca w arkuszu Excela.

Pliki exela są już utworzone, tylko trzeba w nie wstawić dane.


Kolegi wypowiedz "cechą wspólna jest Poczatek_nazwy na początku nazwy pliku
dokonać analogii.." myśle że tak.

rbt.RBT napisał:

(dane z pliku BAZA),

Nie

JRV napisał:

While plik <> "" AND plik Like "*2017-10*"

To myslalem jesli w srudku nazwy jest np. 0111-600 wtedy
While plik <> "" AND plik Like "*0111-600*"

Dodano po 26 [minuty]:

rbt.RBT napisał:

6400

myslim 4-ka tu zbedna

rbt.RBT napisał:

pliki których nazwy mają od " 0111-600-5" do "0111-600-50

zalezy jaka jest pelna nazwa,raczej co idzie po ..-5 i po ..-50 lub po -100

Przepraszam za swoje błędne myślenie.

od 11 do 50 z pominięciem 1 do 49 ?????

zle napisałem, teraz też chciałem usunąc, ale się nie dało. Tak 6400 jest zbedna, za szybko pisze a wolniej myśle. nazwy sa od 0111-600-1 do 0111-600-2000. Kwestia jak wstawić dane w określone nazwy plików. Na liczbowym zapisie pliku łatwiej niż na zapisie z imieniem i nazwiskiem, chyba że żle myśle. Ten post wcześniejszy jest nie potrzebny, myślałem że tamten usunołem.

Dodano po 1 [minuty]:

JRV napisał:

od 11 do 50 z pominięciem 1 do 49 ?????

tak

Hmm.. od 11 do 50 z pominięciem 1 do 49 to bedzie tylko jeden plik 50

nie potrzebnie usunąłem post i wprowadziłem nie potrzebnie zamieszanie. wstawia dane od 11 do 50, a pomija dane od 1 do 10 i od 51 do 2000. teraz tak będzie może jaśniej i lepiej

plena nazwa 0111-600-2000.xlsx ??

pełna nazwa wygłada tak: 0111-600-2000.xlsx

Dodano po 7 [minuty]:

problem większy będzie z nazwami plików z imieniem i nazwiskiem. myślę że to nie jest do ogarniecia

While plik <> "" AND Val(Mid(plik,10))>10 AND Val(Mid(plik,10))<51

W całości makro będzie tak wyglądalo:


Z imieniem i nazwiskiem makro będzie może tak wyglądało?:
Pewnie jak żle wstawie dane to kolega będzie miał ubaw że nie umiem modyfikować makr.

Funkcja Val zwraca wartosc liczbowa z ciagu cyfer(ma zaczynac z cyfry)
Marek_zdun bez cudzyslowow jest zmienna(=0)
To tylko do porownania z listow nazwisk

rozumiem, że dla nazwisk makro będzie wyglądało inaczej