Macro joka tekee pistekaavion

hyvis_85

Osaisikohan joku auttaa miten lähteä rakentamaan tälläistä makroa automaatiksi.

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "='Taul2'!$A$3"
ActiveChart.SeriesCollection(1).XValues = "='Taul2'!$C$3"
ActiveChart.SeriesCollection(1).Values = "='Taul2'!$B$3"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "='Taul2'!$A$4"
ActiveChart.SeriesCollection(2).XValues = "='Taul2'!$C$4"
ActiveChart.SeriesCollection(2).Values = "='Taul2'!$B$4"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Name = "='Taul2'!$A$5"
ActiveChart.SeriesCollection(3).XValues = "='Taul2'!$C$5"
ActiveChart.SeriesCollection(3).Values = "='Taul2'!$B$5"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(4).Name = "='Taul2'!$A$6"
ActiveChart.SeriesCollection(4).XValues = "='Taul2'!$C$6"
ActiveChart.SeriesCollection(4).Values = "='Taul2'!$B$6"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(5).Name = "='Taul2'!$A$7"
ActiveChart.SeriesCollection(5).XValues = "='Taul2'!$C$7"
ActiveChart.SeriesCollection(5).Values = "='Taul2'!$B$7"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(6).Name = "='Taul2'!$A$8"
ActiveChart.SeriesCollection(6).XValues = "='Taul2'!$C$8"
ActiveChart.SeriesCollection(6).Values = "='Taul2'!$B$8"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(7).Name = "='Taul2'!$A$9"
ActiveChart.SeriesCollection(7).XValues = "='Taul2'!$C$9"
ActiveChart.SeriesCollection(7).Values = "='Taul2'!$B$9"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(8).Name = "='Taul2'!$A$10"
ActiveChart.SeriesCollection(8).XValues = "='Taul2'!$C$10"
ActiveChart.SeriesCollection(8).Values = "='Taul2'!$B$10"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(9).Name = "='Taul2'!$A$11"
ActiveChart.SeriesCollection(9).XValues = "='Taul2'!$C$11"
ActiveChart.SeriesCollection(9).Values = "='Taul2'!$B$11"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(10).Name = "='Taul2'!$A$12"
ActiveChart.SeriesCollection(10).XValues = "='Taul2'!$C$12"
ActiveChart.SeriesCollection(10).Values = "='Taul2'!$B$12"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(11).Name = "='Taul2'!$A$13"
ActiveChart.SeriesCollection(11).XValues = "='Taul2'!$C$13"
ActiveChart.SeriesCollection(11).Values = "='Taul2'!$B$13"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(12).Name = "='Taul2'!$A$14"
ActiveChart.SeriesCollection(12).XValues = "='Taul2'!$B$14:$C$14"
ActiveChart.SeriesCollection(12).Values = "='Taul2'!$B$14"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(13).Name = "='Taul2'!$A$15"
ActiveChart.SeriesCollection(13).XValues = "='Taul2'!$C$15"
ActiveChart.SeriesCollection(13).Values = "='Taul2'!$B$15"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(14).Name = "='Taul2'!$A$16"
ActiveChart.SeriesCollection(14).XValues = "='Taul2'!$C$16"
ActiveChart.SeriesCollection(14).Values = "='Taul2'!$B$16"

Elikkä mulla on taulukko:

abc 1 5 alkaa solusta a3 alespäin
bcd 5 3
cde 3 7
....

Elikkä macro osaisi laittaa noi xy pistekaavioon, kaikki ne jotka alespäin on, loppuu vasta kun tulee tyhjä vastaan.

Olisin erittäin kiitollinen jos joku ymmärtää mitä kaipaan ja vielä osaisi auttaa?

4

127

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • muuan mies

      Ihmeellinen pistekaavio, kun joka sarjassa on vain yksi piste!
      Sopisiko paremmin sellainen, jossa olisi yksi sarja ja tuo teksti olisi sen pisteiden labelinä?

      • hyvis_85

        Kuinni vain yksi piste? Tuolla tavalla kun pistettä näyttää niin tulee esiin sarjan nimi.

    • ...

      Sub foo
      Dim rivi as integer
      ActiveSheet.Shapes.AddChart.Select
      ActiveChart.ChartType = xlXYScatter

      rivi=3
      Do While cells(rivi,1).value""
      ActiveChart.SeriesCollection.NewSeries
      ActiveChart.SeriesCollection(rivi-2).Name = "='Taul2'!$A$" & rivi
      ActiveChart.SeriesCollection(rivi-2).XValues = "='Taul2'!$C$" & rivi
      ActiveChart.SeriesCollection(rivi-2).Values = "='Taul2'!$B$" & rivi
      rivi=rivi 1
      Loop
      End sub

      • hyvis_85

        kiitos, tästä on jo apua :)

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Baaritappelu

      Hurjaksi käynyt meno Laffassa. Jotain jätkää kuristettu ja joutunu teholle...
      Kokkola
      69
      6826

    2. Tappo Kokkolassa

      Päivitetty tänään Iltalehti 17.04.2024 Klo: 15:23..Mikähän tämä tapaus nyt sitten taas on.? Henkirikos Kokkolassa on tap
      Kokkola
      28
      4430

    3. Miksi tytöt feikkavat saaneensa orgasmin, vaikka eivät ole saaneet?

      Eräs ideologia itsepintaisesti väittää, että miehet haluavat työntää kikkelinsä vaikka oksanreikään, mutta tämä väite ei
      Sinkut
      272
      2863

    4. Poliisit vaikenee ja paikallinen lehti

      Poliisit vaikenee ja paikallinen lehti ei kerro taposta taaskaan mitään. Mitä hyötyä on koko paikallislehdestä kun ei
      Kokkola
      27
      2111

    5. MAKEN REMPAT

      Tietääkö kukaan missä tämmöisen firman pyörittäjä majailee? Jäi pojalla hommat pahasti kesken ja rahat muisti ottaa enna
      Suomussalmi
      31
      1673

    6. Mitä ihmettä

      Kaipaat hänessä
      Ikävä
      99
      1465

    7. Kuntoutus osasto Ähtärin tk vuode osasto suljetaan

      5 viikkoa ja mihin työntekijät, mihin potilaat. Mikon sairaalan lopetukset saivat nyt jatkoa. Alavudelle Liisalle tulee
      Ähtäri
      55
      1161

    8. Välillä käy mielessä

      olisiko sittenkin ollut parempi, että emme koskaan olisi edes tavanneet. Olisi säästynyt monilta kyyneleiltä.
      Ikävä
      78
      1144

    9. Itämaisesta filosofiasta kiinnostuneille

      Itämaisesta filosofiasta kiinnostuneille. Nämä linkit voivat auttaa pääsemään niin sanotusti alkuun. https://keskustel
      Hindulaisuus
      306
      1143

    10. Mulla on kyllä

      Järkyttävä ikävä sua. Enkä yhtään tykkää tästä olotilastani. Levoton olo. Ja vähän pelottaa..
      Ikävä
      39
      1101
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt