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

201

Ää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. Mies vinkkinä sulle

      Jos pyytäisit kahville tai ihan mihin vaan, niin lähtisin varmasti välittämättä muista
      Ikävä
      99
      7823

    2. Oletko katkera kun

      Et saanut kaivattuasi
      Ikävä
      107
      5607

    3. Mitä haluat sanoa tällä hetkellä

      Hänelle 🫶 ⬇️
      Ikävä
      275
      4861

    4. Haluun sua niin paljon

      ❤️🥰🥹 Miehelle
      Ikävä
      49
      4823

    5. Vietetään yö yhdessä

      Rakastellaan koko yö
      Ikävä
      75
      3584

    6. Mitä palveluita mies..

      Haluaisit tilata minulta? -N
      Ikävä
      50
      2838

    7. Oletko tyytyväinen viime tapaamiseemme?

      Vai toivoitko sen menevän toisella tavalla? Miten?
      Ikävä
      62
      2564

    8. Olet oikeasti ollut

      Niin tärkeä mulle ja kaikki meidän väliltä on pilattu ei yksistään sinun toiminnalla vaan minun myös.
      Ikävä
      22
      2458

    9. Kuuluu raksutus tänne asti kun mietit

      Pelkäätkö että särjen sydämesi vai mikä on? En mä niin tekisi mies koskaan 😘
      Ikävä
      29
      2402

    10. Nyt se sit loppuu

      Et ei enää nähdä ja yhteyttä pidetä.
      Ikävä
      41
      2284
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt