MS Excel

Prosím, jestli někdo tuší, poraďte ...

Píši excel na nějaké hodnocení zaměstnanců. Ten excel má typově dva duhy listů (byť technicky jde stále o běžný list):
1) hodnocení zaměstnance - tento list si hodnotitel nakopíruje tolikrát, kolik hodnotí zaměstnanců
2) sumární list - na tom by měl excel automaticky dělat výpočty napříč všemi listy s hodnocením zaměstnanců.
Trik je v tom, že nevím, jak se odkázat na listy o kterých ani netuším, jak se jmenují.
Jsem úplný začátečník a potřeboval bych nakopnout. Kdybyste někdo mohl napsat následující makro, byl bych moc rád:
1) klikne se na čudl
2) otevře se okno s text area
3) do té text area uživatel zadá pod sebe seznam lidí (jméno+příjmení)
4) excel pro každý řádek udělá kopií mustr-listu nový list, který pojmenuje jméno+příjmení a zároveň do sumárního listu přidá řádek s odkazem na některé buňky každého přidaného listu (to už si vymazlím).
Můžete mi někdo prosím dát základ tohoto makra, já už to pak doladím?
Děkuji moc!

Zaslat odpověď >

petr.stepanek(3.9.2012 19:25)#009398

Ještě doplním, že jde o excel 2003citovat

Pavlus(4.9.2012 8:14)#009402

Myslím, že mnohem jednodušší bude vytvořit samostatný list pro zadávání jmen a z něho pak data čerpat.

Šlo by to např. nějak takto. Jinak odkazování na "neznámá" jména listů bude samozřejmě pomocí proměnné :)...
P.

Viz příloha:

Příloha: zip

9402_tvorba_listu.zip (15kB, staženo 22x)

citovat

petr.stepanek(4.9.2012 8:55)#009403

Tohle je super, díky moc!
Jen dotaz ... jak mám naložit s tou proměnnou? Na konec cyklu jsem si přidal:

Sheets("SUMA").Range("F" & konec).Value = "=!" & jmeno_listu & "!G1"
... tohle nic neudělá, ani neřekne chybu

Sheets("SUMA").Range("G" & konec).Value = "444"
... tento pokusný statement funguje

Diky!
Petrcitovat

Jeza.m(4.9.2012 10:12)#009405

Sheets("SUMA").Range("F" & konec).Formula = "='" & jmeno_listu & "'!G1"citovat

Téma: rozparsovat string a udělat listy podle něj

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje