Avatar billede akilleuz Nybegynder
28. oktober 2010 - 19:10 Der er 2 kommentarer og
1 løsning

DataRange

Jeg har lavet en macro der ser således ud:

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 28-10-2010 by Thomas Schmidt Grau
'
' Keyboard Shortcut: Ctrl+Shift+Z
'
    ActiveChart.SetSourceData Source:=Sheets("Plot").Range("A1:E9999"), PlotBy _
        :=xlColumns
End Sub

Det jeg så gerne vil er at ændre i følgende linje: ......Range("A1:E9999")

Jeg vil gerne sætte værdiet fra G2 ind på ...("A1:E(G2)").. Altså hvis G2 = 576, så kommer der til at stå: ...("A1:E576").

Jeg kender ikke meget til VBA macro programmering, eller excel :)

Med venlig hilsen

Thomas
Avatar billede kabbak Professor
28. oktober 2010 - 20:13 #1
ActiveChart.SetSourceData Source:=Sheets("Plot").Range("A1:E" &[G2]), PlotBy _
        :=xlColumns
Avatar billede akilleuz Nybegynder
28. oktober 2010 - 21:26 #2
Hmm kan godt se ideen med det, men det virker ikke for en error, når jeg prøver at køre scriptet.
Avatar billede kabbak Professor
28. oktober 2010 - 22:35 #3
Ok så udpensler vi det.

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 28-10-2010 by Thomas Schmidt Grau
'
' Keyboard Shortcut: Ctrl+Shift+Z
Dim Antal as long
Antal = Worksheets("Ark1").Range("G2")' ret til dit arknavn og celle
ActiveChart.SetSourceData Source:=Sheets("Plot").Range("A1:E" & Antal), PlotBy _
        :=xlColumns
End Sub
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

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.

Du kan også logge ind via nedenstående tjenester