[Techinfo] Excel munkalapok összefűzése Makróval

Veres Sándor veresh at kossuthzs-szeged.sulinet.hu
2017. Jún. 6., K, 12:27:37 CEST


Sziasztok!

Adott egy Excel fájl (tantárgyfelosztás), kb. 49 Munkalappal, amelyek 
közül 46 felépítése megegyezik (osztályonkénti TTF), továbbá egy 
munkalap a sablon, amelyekből másolva lett a többi, egy munkalap pedig 
az adatokat tartalmazza, továbbá egy statisztikai adatokat tartalmazó 
munkalap.

A 46 azonos felépítésű munkalapot kellene egymás után másolni egy új 
munkalapra ( a neve legyen: TTF).
Mivel folyamatosan változik a 46 munkalap tartalma, az egyenkénti 
másolgatást kihagynám. Ezért jó lenne egy VBA szkript (makró), ami 
automatikusan, létrehozza a TTF munkalapot, vagy a létező TTF munkalap 
tartalmát törli és elvégezné a szükséges munkalapok egyesítését.

Az azonos munkalapokon az első sor a fejlécsor 
(Osztály;Csoport;Tantárgy;Heti óraszám;Tanár neve; stb)
A 46 munkalap elnevezésében nincs logika, de a munkalapok neve nem 
változik, ezért a másolandó munkalapok nevei is elhelyezhetők az adatok 
munkalap egy tartományában pl ('adatok'!K2:K47).

Kb az alábbi "kódot" kellene VBA szkriptben megcsinálnom, de életemben 
nem programoztam Visual Basic-ben.

munkalapok = Array( 'adatok'!K2:K47 );

A TTF munkalap létrehozása, ha nem létezik
A TTF munkalap tartalmának törlése, ha létezik, de nem üres

for (i = 0; i < count(munkalapok); i++ ) {
   A munkalapok[i] munkalap (a 2. sortól) hozzáfűzése a TTF munkalaphoz.
   (természetesen csak azok a sorok, amelyek tartalmaznak adatot)
}

Kiindulásnak találtam is egy VBA szkriptet, ami majdnem azt csinálja, 
ami nekem kell, de mivel egyáltalán nem ismerem a Visula Basic-et, ezért 
nagyon nem boldogulok vele.

https://prog.hu/tudastar/181718/excel-munkalapok-osszemasolasa

Ha valaki tudna segíteni átalakítani a linken elérhető valamelyik VBA 
szkriptet, hogy azt csinálja, amire szükségem van, azt nagyon megköszönném.

Veres Sándor


További információk a(z) Techinfo levelezőlistáról