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

371

Äänestä

    Vastaukset 4

    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. Yli 3 Vuotta sinä jaksoit

      ja yrititit ottaa selvää minusta. Aika hämmästyttävää. Naiselle.
      Ikävä
      91
      1457

    2. Mikä on viimeinen

      este joka vielä pitää sinut ja kaivattusi erillään?
      Ikävä
      83
      1012

    3. Näin kaivattuni viimeksi...

      ...? Se tuntui kuin... ?
      Ikävä
      67
      897

    4. Miksi kumppaniehdokkaan oma elämä on teille ongelma?

      Täällä monesti kuulee vaatimuksia siitä, että kumppaniehdokkaalla ei saisi olla lemmikkejä, lapsia, kavereita, eksiä, su
      Sinkut
      361
      861

    5. Oikea nainen

      On äärimmäisen naisellinen, pienikokoinen, kapeaharteinen, pienet kapeat kasvot, paksut huulet, kauniit hiukset, upeat t
      Sinkut
      170
      825

    6. Harmi että välimme

      Menivät niin solmuun.
      Ikävä
      92
      753

    7. Olen pahoillani mies ihan kaikesta

      Et sinä ole edes tehnyt mitään väärää. Eihän kenestäkään ole pakko tykätä. Pyydän anteeksi kaikkea häiriköintiä, joka on
      Ikävä
      61
      585

    8. Se ei silloin ollut sattumaa

      vaan tarkkaan suunniteltu juttu. 🪤
      Ikävä
      46
      490

    9. Minä olen käyttänyt mustan magian riittejä ja taikoja aiheuttaakseni epäonnea ja pahaa joillekin

      Ne jutut on toimineet. Olen harjoittanut tätä parisenkymmentä vuotta
      Ikävä
      126
      483

    10. Hei sinä rakas mies.

      Milloinkaan kohdataan? Toivottavasti pian....❤️
      Ikävä
      32
      445
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt