MS Excel

Ahoj, asi už jste se s něčím určitě setkali. Řeším teď problém, že na Listu "soupis" mám dlouhý seznam s názvy. Potřebuji vytvořit makro, aby vždy vytvořilo nový list, nazvalo ho vždy podle názvu definovaného na listu "soupis". A poté ještě v základním listu "soupis" vytvořilo interaktivní odkaz na konkrétní list. Tak abych z listu "soupis" se mohl lehce dostat na konkrétní list, který hledám.
Je to trošku kostrbaté, ale přikládám excel, kde je vše ukázáno na ukázkovém listu.
Budu Vám moc vděčný za pomoc! :)

Zaslat odpověď >

Jeza.m(10.1.2013 17:25)#010953

Ale jo, tak s něčím už jsme se setkali, ale s přílohou to nebylo :-).

Public Sub vytvor()
For i = 1 To List1.UsedRange.Rows.Count
Sheets.Add.Name = List1.Cells(i, 1)
List1.Hyperlinks.Add Anchor:=List1.Cells(i, 1), Address:="", SubAddress:="'" & List1.Cells(i, 1) & "'!A1", TextToDisplay:=List1.Cells(i, 1).Value
With List1.Cells(i, 1).Font
.Name = "Arial"
.Size = 8
.Bold = True
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
Next
List1.Activate
End Sub

M@citovat

Petacchi(10.1.2013 17:44)#010954

Děkuju moc, to je ono! :) Haha, říkal jsem si, že s přílohou to bude srozumitelnější.
ještě akorát poprosím o radu, jak udělám případ, aby se mi listy řadily za "soupis" pěkně jeden po druhém? Myslím tím, že bude list "soupis" a poté "list č.1", "list č.2" atd. :)
Díky!citovat

Petacchi(10.1.2013 18:41)#010955

Tak už není potřeba. Zmáknul jsem to :) stejně díky!citovat

marjankaj(10.1.2013 18:47)#010956

Namiesto
Sheets.Add.Name = List1.Cells(i, 1)

daj
Sheets.Add after:=ActiveSheet
ActiveSheet.Name = List1.Cells(i, 1)citovat

Téma: Klasický kancelářský problém

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje