Zobrazené výsledky: 1 až 2 z 2

Téma: excel - napiše mi někdo makro?

  1. #1
    Nováček
    Registrace
    Jul 2007
    Příspěvků
    4

    Ahoj.
    Pomozte prosím.
    Potřebuji aby se mi listy sešitu jmenovali stejně jako hodnota v buňce A3.
    Napíše mi někdo makro?

    Díky předem tomu dobrákovi. :-)
    Odpovídat lze po přihlášení

  2. #2
    Čestný člen Avatar uživatele mech13
    Registrace
    May 2006
    Příspěvků
    5,596

    Kód:
    Public Sub jmeno_listu_A3()
    
    Dim i As Integer
    iCnt = Application.Sheets.Count
    For i = 1 To iCnt
      Application.Sheets(i).Activate
      Application.Sheets(i).Name = Cells(3, 1).Value
    Next
    
    End Sub
    Odpovídat lze po přihlášení