Favicon Svetmobilne.cz  Svět mobilně Favicon Svetaudia.cz  Svět audia Favicon TVFreak.cz  TV Freak   Fórum Favicon Digimanie.cz  Digimanie   Fórum   Galerie Společnost oXy Online s.r.o.
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,779

    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í



Podobná témata

  1. LCD napíše NO SIGNAL ale PC hučí dál, nejde vypnout
    Od esetik v sekci Problémy s PC (HW/SW) a řešení
    Reakcí: 18
    Poslední příspěvek: 02-08-2010, 00:20
  2. Microsoft Office: makro v excelu 2003
    Od pepeko v sekci Kancelářské balíky
    Reakcí: 2
    Poslední příspěvek: 16-07-2010, 00:40
  3. Excel, makro - import údajov
    Od kanec1111 v sekci Kancelářské balíky
    Reakcí: 2
    Poslední příspěvek: 04-06-2010, 20:44
  4. Monitor napíše není žádný signál
    Od Kedar183 v sekci Problémy s PC (HW/SW) a řešení
    Reakcí: 6
    Poslední příspěvek: 01-05-2010, 13:35
  5. Makro v Exceli
    Od MaxMan v sekci Programování
    Reakcí: 3
    Poslední příspěvek: 15-05-2008, 13:15