IvetaH
30.08.10,09:55
Dobrý deň, trápim sa s makrom na názov listu v xls verzia 2003.
Mám pocit, že som to už niekde čítala, ale neviem to nájsť.
Mám dochádzku v xls, v B2 je uvedené meno zamestnanca. Potrebujem, aby sa názov listu zmenil na to meno uvedené v B2.
Prosím, pomôže mi niekto?
Ďakujem
Mám pocit, že som to už niekde čítala, ale neviem to nájsť.
Mám dochádzku v xls, v B2 je uvedené meno zamestnanca. Potrebujem, aby sa názov listu zmenil na to meno uvedené v B2.
Prosím, pomôže mi niekto?
Ďakujem
radioblaster
30.08.10,19:05
Ahoj,
skus toto:
Sub RenameTabs()
' Renames all worksheet tabs with each worksheet's cell A1 contents.
'If cell A1 has no content, then that tab is not renamed.
For i = 1 To Sheets.Count
If Worksheets(i).Range("A1").Value <> "" Then
Sheets(i).Name = Worksheets(i).Range("A1").Value
End If
Next
End Sub
skus toto:
Sub RenameTabs()
' Renames all worksheet tabs with each worksheet's cell A1 contents.
'If cell A1 has no content, then that tab is not renamed.
For i = 1 To Sheets.Count
If Worksheets(i).Range("A1").Value <> "" Then
Sheets(i).Name = Worksheets(i).Range("A1").Value
End If
Next
End Sub