anoniem Geplaatst: 1 juli 2002 Delen Geplaatst: 1 juli 2002 het is vast heel simpel maar ik weet niet hoe het moet: ik wil graag automatisch met een macro een grafiek maken van enkele reeksen getallen. Probleem is dat de hoeveelheid waarden kan verschillen. Hoe kan ik er nu voor zorgen dat hij van een bepaalde kolom alleen de niet-lege cellen neemt? De grafiek ziet er erg lelijk uit met lege cellen aan het eind van de grafiek Iemand die het wel weet? het moet ws. hier ergens geplaatst worden: <knip> ActiveChart.SetSourceData Source:=Sheets("SpeedAndTack").Range("A1:C4463"), _ PlotBy:=xlColumns ActiveChart.SeriesCollection(1).Delete ActiveChart.SeriesCollection(1).XValues = "=SpeedAndTack!C1" ActiveChart.Location Where:=xlLocationAsObject, Name:="SpeedAndTack" </knip> m vr gr muesli Quote Link naar reactie
anoniem Geplaatst: 2 juli 2002 Auteur Delen Geplaatst: 2 juli 2002 Je zult inderdaad eerst een aftest moeten doen voordat je de grafiek opbouwt. Dus zoiets als : [code:1:dd31647901]Dim rij As Integer rij = 1 ' zoek de laatste lege rij Do While Worksheets("SpeedAndTack").Range("C" & rij).Value <> "" rij = rij + 1 Loop[/code:1:dd31647901] Quote Link naar reactie
anoniem Geplaatst: 2 juli 2002 Auteur Delen Geplaatst: 2 juli 2002 bedankt, zo wordt de rij dus gedefineerd. Maar hoe implementeer ik dit nu in ActiveChart.SetSourceData Source:=Sheets("SpeedAndTack").Range("A1:C4463"), _ PlotBy:=xlColumns ? die 4463 moet dus vervangen worden door "rij", hoe regel ik dit? Quote Link naar reactie
anoniem Geplaatst: 2 juli 2002 Auteur Delen Geplaatst: 2 juli 2002 Range("A1:C4463") wordt Range("A1:" & rij) Quote Link naar reactie
anoniem Geplaatst: 2 juli 2002 Auteur Delen Geplaatst: 2 juli 2002 Sorry, Range("A1:C4463") wordt Range("A1:C" & rij) Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen