Miten viitata makrossa kuvaajaan kun kohteen nimi muuttuu +1?

Krändinen

Heiparallaa, osasisikohan joku auttaa. Taulukkoon syötetään 10 lukua ja viereen olen tehnyt makron, jonka avulla tehdään XY-kuvaaja. Haluaisin makron tekevän vielä trendiviivan tuohon kuvaajaan pisteistä, mutta kuvaajan nimihän muuttuu aina 1. kaavio 1, kaavio 2.. ja tämän takia makron viittaus menee ohi, eikä homma toimi.
SUURI kiitos jos joku viitsii auttaa.

4

368

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      mahdotonta neuvoa noilla tiedoilla...
      aluksi nyt tarkennusta ja koodia peliin...

      • Krändinen taas

        Ja tarkennuksia tiskiin:
        Range("A1:A10").Select
        ActiveSheet.Shapes.AddChart.Select
        ActiveChart.SetSourceData Source:=Range("'Sheet1'!$A$1:$A$10")
        ActiveChart.ChartType = xlXYScatter
        ActiveChart.SeriesCollection(1).Select
        ActiveSheet.ChartObjects("Chart 1").Activate
        ActiveChart.SeriesCollection(1).Trendlines.Add
        ActiveSheet.ChartObjects("Chart 1").Activate
        ActiveChart.SeriesCollection(1).Trendlines(1).Select
        Selection.DisplayEquation = True
        Selection.DisplayRSquared = True
        Range("L14").Select
        End Sub
        ActiveSheet.ChartObjects("Chart 1").Activate -kohta mättää kun uuden kuvaajan nimi on chart 2 jne.
        Tarvisi siis saada jonkinmoinen 1 jutska tuohon viittauskohtaan.

        Kiitos aktiivisuudesta!

      • kunde
        Krändinen taas kirjoitti:

        Ja tarkennuksia tiskiin:
        Range("A1:A10").Select
        ActiveSheet.Shapes.AddChart.Select
        ActiveChart.SetSourceData Source:=Range("'Sheet1'!$A$1:$A$10")
        ActiveChart.ChartType = xlXYScatter
        ActiveChart.SeriesCollection(1).Select
        ActiveSheet.ChartObjects("Chart 1").Activate
        ActiveChart.SeriesCollection(1).Trendlines.Add
        ActiveSheet.ChartObjects("Chart 1").Activate
        ActiveChart.SeriesCollection(1).Trendlines(1).Select
        Selection.DisplayEquation = True
        Selection.DisplayRSquared = True
        Range("L14").Select
        End Sub
        ActiveSheet.ChartObjects("Chart 1").Activate -kohta mättää kun uuden kuvaajan nimi on chart 2 jne.
        Tarvisi siis saada jonkinmoinen 1 jutska tuohon viittauskohtaan.

        Kiitos aktiivisuudesta!

        toi koodin pätkä.
        Mutta jos siis haluat tehdä kaavion ja lisätä siihen trendiviivan, niin miksi et lisää sitä heti kun teet kaavion?
        Jotain tämöstä siis, eli ei ole viitausongelmia...

        Sub LisääKaavio()
        With ActiveSheet.ChartObjects.Add(Left:=300, Width:=400, Top:=50, Height:=300)
        .Chart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A10")
        .Chart.ChartType = xlXYScatter
        .Chart.SeriesCollection(1).Trendlines.Add
        .Chart.SeriesCollection(1).Trendlines(1).DisplayEquation = True
        .Chart.SeriesCollection(1).Trendlines(1).DisplayRSquared = True
        End With
        End Sub

      • Krändinen
        kunde kirjoitti:

        toi koodin pätkä.
        Mutta jos siis haluat tehdä kaavion ja lisätä siihen trendiviivan, niin miksi et lisää sitä heti kun teet kaavion?
        Jotain tämöstä siis, eli ei ole viitausongelmia...

        Sub LisääKaavio()
        With ActiveSheet.ChartObjects.Add(Left:=300, Width:=400, Top:=50, Height:=300)
        .Chart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A10")
        .Chart.ChartType = xlXYScatter
        .Chart.SeriesCollection(1).Trendlines.Add
        .Chart.SeriesCollection(1).Trendlines(1).DisplayEquation = True
        .Chart.SeriesCollection(1).Trendlines(1).DisplayRSquared = True
        End With
        End Sub

        tuo toimii kuin juna, vaikka en ymmärrä miksi. Suuri kiitos - projekti jatkuu.

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Maatalous- ja yritystuet pois, työeläkevaroilla valtion velka pois

      Suomi saadaan eheytettyä kädenkäänteessä, kun uskalletaan tehdä rohkeita ratkaisuja. Maatalous- ja yritystuet ovat hait
      Maailman menoa
      130
      3867

    2. Hei! Halusin vain kertoa.

      En tiedä luetko näitä, mutta näimme n.4vk sitten, vaihdoimme muutaman sanan ja tunsin edelleen kipinän välillämme. Katso
      Tunteet
      8
      3179

    3. Riikka on siis suomalaisille velkaa 84 mrd

      Jos kauhukabinetti istuu vaalikauden loppuun. Keskimäärin yli 20 miljardia uutta velkaa rikkaiden veronalennuksiin jokai
      Maailman menoa
      33
      2867

    4. Miksi ikävä ei helpotu vuosien jälkeenkään?

      Tänään olin ensimmäistä kertaa sinun lähtösi jälkeen tilassa, jossa vuosia sitten nähtiin ensimmäistä kerta. Ollessani
      Rakkaus ja rakastaminen
      12
      2742

    5. Sanna on suomalaisille siis velkaa 24 mrd euroa

      Muistanette vielä kuinka Italian remonttirahoja perusteltiin sillä, että italialaiset ostaa suomalaisilta paidatkin pääl
      Maailman menoa
      133
      2441

    6. Teboili alasajo on alkanut

      Niinhän siinä kävi että teebboili loppuu...
      Suomussalmi
      48
      2010

    7. "Sanna Marinin kirja floppasi", kertoo eräs median otsikko

      "Miljardien tappio - Sanna Marin vaikenee", kertoo toinen otsikko. Marin ei siis siinä kirjassaan kerro sanallakaan For
      Maailman menoa
      90
      1225

    8. Tiesitkö? Suomessa lääkäri voi toimia ammatissaan, vaikka hän olisi seksuaalirikollinen

      Järkyttävää… Motin mukaan Suomessa lääkäri voi toimia ammatissaan, vaikka hän olisi yksityiselämässään syyllistynyt es
      Maailman menoa
      61
      1225

    9. Oot kyl rakas

      Et tiiäkkään miten suuri vaikutus sulla on mun jaksamiseen niin töissä, kun vapaallakin❤️. Oot täysin korvaamaton. En t
      Ikävä
      36
      1129

    10. Kirjoittaisit edes jotain josta tiedän

      Varmasti oletko se oikeasti sinä. Tänään tälläinen olo. 🫩
      Ikävä
      78
      1119
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt