zmena nazvu listu

[ironm]

zdravim,

chci se zeptat, jde zmenit nazev listu v souboru excel podle nazvu v bunce?

napr. do bunky A1 napisu nazev a ten mi automaticky zmeni nazev listu.

Dekuji

[cmuch]

Ano lze.

Buď toto makro vložit do modulu příslušného listu

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

    ActiveSheet.Name = Range("A1").Text
End Sub

nebo aby to platilo pro celý sešit tak toto vložit do modulu ThisWorkbook

Kód: Vybrat vše

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  
  ActiveSheet.Name = Range("A1").Text
End Sub

[mmmartin]

http://www.pc-help.cz/viewtopic.php?f=35&t=38818

[ironm]

diky moc