22. november 2011 - 16:21Der er
9 kommentarer og 1 løsning
VBA: Pivot dobbeltklik omdøbe ark
Jeg forsøger at få excel til (med VBA) at, omdøbe de ark som bliver oprettet ved dobbeltklik på en sum i en pivottabel.
Jeg kan dog ikke rigtig, få det hele til at spille sammen.
Jeg har denne kode til at få værdien, jeg vil omdøbe arket til: ActiveWorkbook.Sheets("MAIN").Cells.Range("A" & ActiveCell.Row)
Den returnere godt nok værdien, men jeg har nu prøvet utallige måder at få den til at omdøbe de nye ark. Jeg er da også kommet frem til at det for mig, virker nemmest at gøre det er vha. newsheet event, men der vil den ikke hente værdien vha. ovenstående formel.
Jeg håber der er en der forstår, udfordringen og kan hjælpe med en løsning.
Det ser meget fint ud, dog falder ideen lidt fra hinanden da jeg ikke får de data der udgør summen i pivot'en.
Jeg formoder næsten at du kender til pivot, når du roder med VBA etc? men her kommer lidt forklaring :-)
Når man dobbeltklikker på en sum i en pivot, så oprettes der et nyt ark som indeholder de data der udgør summen (kaldes pivot drill down, kender ikke noget dansk ord for det), det er dette ark jeg vil have omdøbt, kan du klare den?
Altså skal koden ikke oprette det nye ark, men blot "registrere" det og omdøbe det.
Opret et modul i VBA editoren. I modulet skriver du følgende linier: 'erklær c som en offentlig variabel Public c As Integer
I MAIN sidens Før Dobbelklik hændelse: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'tildel den offentlige variabel c, rækkenummeret med den aktive celle c = ActiveCell.Row End Sub
Og i Workbook´ens NewSheet hændelse: Private Sub Workbook_NewSheet(ByVal sh As Object)
'tildel den ny side navnet på værdien fra kolonne A i den aktive række sh.Name = Sheets("MAIN").Range("A" & c).Text
Lukket, har lige haft lidt travlt de sidste par dage....
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
