Søg
Avatar billede kabbak Professor
19. januar 2015 - 15:17 Der er 5 kommentarer og
1 løsning

Skift af dataområde på mange diagrammer

Hej
Jeg har en Excel mappe med mange diagrammer på flere ark.
De får alle data fra forskellige kolonner i et stort data ark, eneste kolonne som går igen, det er kolonne A.
Da diagrammerne blev lavet, var der kun data til række 433, nu vil brugerne gerne se flere data, så nu skal de gå til række 865.

Jeg ville gerne kunne bruge en makro, som gik ind og rette tallet 433 til 865.

så f.eks.
ActiveChart.SetSourceData Source:=Sheets("Import data").Range( _
        "A1:A433,K1:N433")
blev til

ActiveChart.SetSourceData Source:=Sheets("Import data").Range( _
        "A1:A865,K1:N865")
Avatar billede supertekst Ekspert
19. januar 2015 - 15:30 #1
Hej Kabbak

Vil det sige, at det er et antal formler, der skal rettes i - eller?
Avatar billede kabbak Professor
19. januar 2015 - 15:36 #2
Ja, den skal rette i hvert diagram, på der range, der står i ActiveChart.SetSourceData Source.

Jeg ved nemmelig ikke om man kan søge og erstatte deri, jeg kan sagtens programmere loopet igennem chars
Avatar billede supertekst Ekspert
19. januar 2015 - 16:17 #3
Ja - udfordringen ligger i at kunne aflæse datasource pr. diagram
Avatar billede supertekst Ekspert
19. januar 2015 - 18:23 #4
Måske via Chart.SeriesCollection.Count & Chart.SeriesCollection(x).Formula, der opsplittes iflg. "!"

kan der opbygges en Datasource, der kan tilpasses med det nye rækkenr og derved tildeles.
Avatar billede kabbak Professor
20. januar 2015 - 10:30 #5
Løsningen blev


Public Sub test2()
For Each ch In ActiveSheet.ChartObjects
ActiveSheet.ChartObjects(ch.Name).Activate
ch.Activate
For X = 1 To 10
On Error Resume Next
ActiveChart.SeriesCollection(X).Formula = Replace(ActiveChart.SeriesCollection(X).Formula, 433, 865)
Next
Next
End Sub


Læg et svar
Avatar billede supertekst Ekspert
20. januar 2015 - 12:17 #6
Fint og et svar
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel 4 04/03/202617:11 06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel 3 19/02/202614:23 20/02/202608:26
Fjern tekst efter mellemrum Af ABE15 i Excel 2 18/02/202620:41 19/02/202611:30
Udskrift af ark Af boro23 i Excel 4 17/02/202608:38 18/02/202607:46
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:12 Outlook fejler: 0x80070057 + 0x800CCC0E Af TTA i Office & Kontorpakker
14/0320:13 PIHOLE Af dcedata1977 i Linux
13/0312:06 SDKORT / SSD Af dcedata1977 i Linux
13/0309:12 Kan min telefon høre en samtale og lave annonce tilbud efter det Af Niels Ebbe Schmidt Huus i Mobiltelefoner
11/0307:12 Fastnettelefon Af nu_igen i Andet hardware
White papers
Flere white papers »