Excel - souhrnný report z listů Vyřešeno

[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

Příklad Excel.xlsm

(24.04 KiB) Staženo 53 x

[Reklama]

[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]

[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

[cmuch]

To jsem tam nedal schválně, je zbytečné.

Pokud sis zkopírovala celé makro tak to musí chodit.

[petra6666]

tak jsem asi udělala něco blbě. Ale děkuji ještě jednou. P.