Excel - souhrnný report z listů Vyřešeno
Napsal: 04 bře 2013 12:29
od petra6666
Dobrý den, velice se omlouvám, ale jsem zde poprvé a nemohu najít, zda již toto nebylo někdy zodpovězeno. Mám excel skládájící se z cca 50 listů. Na každém listu je stejná strukutra řádků a sloupců. Našla jsem zda naprogramování tvorby seznamu listů na prvním listu,to jsem si překpírovala, a funguje krásně. Nicméně VBA je pro mě zatím španělskou vesnicí, takže vůbec netuším, jak doprogramovat, aby k tomuto seznamu listů byly uvedeny i hodnoty z těchto listů vždy ze stejné buňky. V souboru řádek 24 z každého listu dostat na první stranu VBA kódem k danému odkazu na list, a to za každý měsíc. Soubor uvádím v příloze. Moc děkuji za případnou pomoc, Petra
Re: Excel - souhrnný report z listů
Napsal: 04 bře 2013 13:39
od cmuch
Vítej na PC-Help
Trochu jsem to makro poupravil.
Kód: Vybrat vše
Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim i As Long
i = 1
With Me
.Range(Range("A2"), Range("A2").SpecialCells(xlLastCell)).ClearContents
.Columns(1).ClearContents
.Cells(1, 1) = "CC"
.Cells(1, 1).Name = "GP"
End With
For Each wSheet In Worksheets
If wSheet.Name <> Me.Name Then
i = i + 1
With wSheet
.Hyperlinks.Add Anchor:=wSheet.Range("A1"), Address:="", SubAddress:="GP", TextToDisplay:="Zpìt na úvod"
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(i, 1), Address:="", SubAddress:="'" & wSheet.Name & "'!A1", TextToDisplay:=wSheet.Name
Range("B" & i & ":M" & i).Value = Sheets(wSheet.Index).Range("B24:M24").Value
End If
Next wSheet
End Sub
[code][/code]
Re: Excel - souhrnný report z listů
Napsal: 04 bře 2013 14:30
od petra6666
Děkuji moc za zaslání řešení, skvělé, mám strašnou radost, jste fakt machr. Doufám, že také budu moct někomu třeba s VBA pomoct.
Jiank jsem si všimla, že tam vypadl jeden řádek, bez kterého mi to nechtělo šlapat, je to tento řádek za with wSheet:
.Range("A1").Name = "Start_" & wSheet.Index
kdyby se to náhodou někomu hodilo..... :-)
ještě jednou moc děkuji, Petra
Re: Excel - souhrnný report z listů
Napsal: 04 bře 2013 14:42
od cmuch
To jsem tam nedal schválně, je zbytečné.
Pokud sis zkopírovala celé makro tak to musí chodit.
Re: Excel - souhrnný report z listů
Napsal: 06 bře 2013 16:51
od petra6666
tak jsem asi udělala něco blbě. Ale děkuji ještě jednou. P.