MS Excel

Ahoj. Rád bych se zeptal opět na jednu věc, se kterou si nevím rady.

Mám sešit s cca 30 listy. V každém listu bude tlačítko s makrem, které zkopíruje část dat z jiného definovaného listu "SPOLEČNÁ DATA", vloží ho zpátky do listu, kde uživatel "zmáčknul" ono tlačítko, a poté ho vytiskne.

Otázka je: Musí být vždy definovaný konkrétní název listu, kam kopíruji data? Lze to udělat nějak jinak, než abych ho v každém listu přepisoval?

Například, že bych pojmenoval ActiveSheet například "karel" a na ten se potom při vkládání dat odkazoval?

Doufám, že jsem se vyjádřil pochopitelně. Díky za pomoc!

Uzamčeno - nelze přidávat nové příspěvky.

Poki(18.9.2012 13:44)#009525

Pokud budete ouzivat tlacitko ActiveX, tak je jeho kod umisten vzdy v modulu listu, kde je tlacitko umisteno - v tomto kodu lze tedy pouzivat odkaz na tento list takto:
Worksheets(Me.Name)

Pokud budete pouzivat tlacitko Formulare, musite mu priradit makro (napr. Klik) - pak se na list, kde je tlacitko umistenot da odkazovat takto:
Sub klik()
Dim List As String
List = ActiveSheet.Name
MsgBox Worksheets(List).Name
End Subcitovat

Petacchi(18.9.2012 14:22)#009526

Zafungovalo to díky :) jenom se ještě zeptám, jsem ve VBA úplný začátečník, takže jsem to možná nezadal úplně dobře, protože mi před tiskem skáče okno, kde musím potvrdit jméno listu. Dá se to ještě nějak odstranit?

Sub klik()

Dim List As String

List = ActiveSheet.Name

MsgBox Worksheets(List).Name

Sheets("Hlavička NÁKUP").Select
Rows("1:7").Select
Selection.Copy
Worksheets(List).Select
Rows("1:7").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
ActiveSheet.Pictures.Delete
End Subcitovat

Poki(18.9.2012 14:27)#009527

to okno skace kvuli tomuto radku:
MsgBox Worksheets(List).Name
staci ho smazatcitovat

Petacchi(18.9.2012 14:30)#009528

To mi mohlo docvaknout

Díky moc!citovat

Téma: Pracovní označení listu v VBA

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje