MS Excel

Ahoj, mi funguje toto makro:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim listek As Worksheet, x As Integer
For x = 1 To 10
Me.Worksheets(x).Name = Range("a" & x)
Next x
End Sub

Tedy událostní procedura sešitu. Předpokládám požadované názvy v buňkách a1 ... a10. Pokud to máš jinde, tak si to makro upravíš. Nemá to chybovou rutinu, ale to už si doděláš.
Je to rychlovka, Petr možná přijde s něčím elegantnějším a "úplným". citovat

Myslím, že "kolokol" to udělal dobře. Jen jsem doplnil kontrolu chyb. Názvy listů budou v buňkách B2:B11 = udělal jsem malou tabulku jako menu.

První list slouží jako menu a makro s ním nepracuje. Kód jsem vložil do listu s menu.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer

On Error GoTo chyba
For x = 1 To 10
If Range("B" & x + 1) <> "" Then Worksheets(x + 1).Name = Range("B" & x + 1)
Next x
Exit Sub

chyba:
MsgBox "Název listu musí být jedinečný. Zadejte jiný název listu", vbCritical, "Chyba zadání"
End Sub
citovat

Ahoj všem doufám, že mi tohle léma pomůže ještě někdo doplnit o jdnu věc a to přeskakování prázdných buněk.
-----------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer

On Error GoTo chyba
For x = 1 To 10
If Range("B" & x + 1) <> "" Then Worksheets(x + 1).Name = Range("B" & x + 1)
Next x
Exit Sub

chyba:
MsgBox "Název listu musí být jedinečný. Zadejte jiný název listu", vbCritical, "Chyba zadání"
End Sub
-----------------------------------------------------
pomohl by mi prosím někdo s tím aby to při tom když to narazí na prázdnou buňku ve sloupci tak aby ji to přeskočilo a vzalo to až další Název listu. Dám příklad budui mít ve sloupci B jména například B1, B2, B3 budou jména a B4 bude prázdné tak aby tu prázdnou buňku přeskočilo a nebo pokud by například v B4 byla vepsána hodnota nepřiřazeno tak aby to Přeskočilo jen buňky s vyplněným nepřiřazeno.

Všem ještě jednou moc díky.citovat

Ahoj já bych potřebovala, aby to prázdné buňky přeskočilo nebo ještě lépe aby to uvedlo název neobsazeno + (kolikáté neobsazeno) tak, aby byla dodržena podmínka, že každý list musí mít jedinečný název.citovat

Myslíš něco takového?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
On Error GoTo chyba
For x = 1 To 10
Sheets(x + 1).Visible = True
If Range("B" & x + 1) = "" Then
Sheets(x + 1).Name = "List" & x + 1
Sheets(x + 1).Visible = False
Else
Sheets(x + 1).Name = Range("B" & x + 1)
End If
Next x
Exit Sub
chyba:
MsgBox "Název listu musí být jedineèný. Zadejte jiný název listu", vbCritical, "Chyba zadání"
End Sub


Pokud je buňka prázdná tak se list skryje a přejmenuje se na listX.citovat