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

209

Ää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. Kumpi vetoaa enemmän sinuun

      Kaivatun ulkonäkö vai persoonallisuus? Ulkonäössä kasvot vai vartalo? Mikä luonteessa viehättää eniten? Mikä ulkonäössä?
      Ikävä
      84
      1679

    2. Ei se mene ohi ajan kanssa

      Näin se vaan on.
      Ikävä
      85
      1212

    3. Tavoitteeni onkin ärsyttää

      Sua niin turhaudut ja unohdat koko homman
      Ikävä
      110
      1113

    4. Tunnistebiisi

      Laita joku tunnistebiisi, niin tiedän ett oot täällä ja kaipaat ehkä mua
      Ikävä
      66
      880

    5. Taidat tykätä linnuista paljon

      Mikä on sun lemppari ☺️😉🥹🦢🐦‍⬛🦉🦜🦚
      Ikävä
      102
      861

    6. Okei nyt mä ymmärrän

      Olet siis noin rakastunut, se selittää. Onneksesi tunne on molemminpuolinen 😘
      Ikävä
      56
      808

    7. Miks käyttäydyt noin?

      Välttelet kaikkia kohtaamisia...
      Ikävä
      47
      721

    8. Ei sun tarvi jännittää enää

      en yritä enää mitään. Tiedän että olin mauton ja sössin kaiken.
      Ikävä
      36
      712

    9. Olen huolissani

      Että joku päivä ihastut/rakastut siskooni. Ja itseasiassa haluaisin, ettei hän olisi mitenkään sinun tyyppiäsi ja pitäis
      Ikävä
      47
      661

    10. Minkälainen ääni mulla on mies

      Sinun mielestä?
      Ikävä
      33
      643
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt