< návrat zpět

MS Excel

Téma: Hypertextový odkaz na list makrem rss

Zaslal/a fakan 24.8.2015 13:36

Zdravím,

potřeboval bych poradit jak makrem doplnit hypertextový odkaz na nově vytvořený list ze šablony. Mám následující makro:

Sub CopyRename()
Dim sName As String
Dim wks As Worksheet
Worksheets("Template").Copy after:=Sheets(Worksheets.Count)
Set wks = ActiveSheet
Do While sName <> wks.Name
sName = Application.InputBox _
(Prompt:="Zadej název nového listu (Jméno zákazníka):")
On Error Resume Next
wks.Name = sName
On Error GoTo 0
Loop
Set wks = Nothing
ActiveSheet.Select
Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Přehled").Select
Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

To mi vytvoří nový list ze šablony a jeho název se vloží na první volný řádek listu "Přehled" a já bych ještě potřeboval aby se stal tento záznam zároveň hypertextovým odkazem na tento nově vytvořený list a aby zůstal tento nový list aktivní po ukončení makra. Případně zda-li by šlo aby se nový list vytvářel jako odkrytý, když list "Template" dám skrýt.

Předem děkuji za rady.

Roman

Zaslat odpověď >
elninoslov(26.8.2015 9:48)#026422
elninoslov
Takto ?
Příloha: rar26422_hl-na-list.rar (19kB, staženo 17x)
citovat
fakan(29.8.2015 23:49)#026510
avatar
Ano, to je přesně ono. Díky moc.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje