» Poradna » Programy

Kdo zvládne Excel - makro ???

 |   |   |  [160.218.229.---]

Potřeboval bych jen poradit s makrem které vloží názvy všech listů do sloupce pod sebe. (MS Excel)

Díky Jakub


Odpovědi na otázku

 |   |   |  [195.146.138.---]

Sub Nazvy_Listov()
    mojRiadok = ActiveCell.Row - 1
    mojStlpec = ActiveCell.Column
    For Each mojeNazvy In Worksheets
        Cells(mojRiadok + 1, mojStlpec) = mojeNazvy.Name
        mojRiadok = mojRiadok + 1
    Next
End Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |   |  [195.146.138.---]

alebo takto
Sub Nazvy_Listov()
    mojRiadok = ActiveCell.Row 
    mojStlpec = ActiveCell.Column
    For Each mojeNazvy In Worksheets
        Cells(mojRiadok , mojStlpec) = mojeNazvy.Name
        mojRiadok = mojRiadok + 1
    Next
End Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Makro



Určitě si přečtěte


Aktuální číslo časopisu Computer

Test 6 odolných telefonů a 22 powerbank

Srovnání technologií QLED a OLED

Měřte své sportovní výkony

Sady pro chytrou domácnost