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

378

Ää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. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      149
      2209

    2. Miltä ne katseet tuntui?

      😇
      Ikävä
      121
      1495

    3. Atte Harjanne usuttaa eläkeläisvihaan

      Karmeeta kuultavaa aamun uutislähetyksessä, kun Atte Harjanne, tunnettu eläkeläisvihaaja, suitsii sukupolvien välistä v
      Maailman menoa
      337
      1309

    4. Keitä oli kunnanjohtajan erottajat?

      Kouluja ei ole varaa ylläpitää mutta johtajasopimukseen palaa 100000 euroa ja uuden johtajan hakuprosessi maksaa kymmeni
      Ilmajoki
      67
      1224

    5. IS: Väitöstutkimus - Pyöräilybuumi oli pelkkä kupla!

      Pyöräilybuumista paljastui karu totuus Väitöstutkimuksen mukaan suuri suomalainen pyöräilyrenessanssi olikin vain pelkk
      Maailman menoa
      3
      1201

    6. Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!

      https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro
      Maailman menoa
      140
      1200

    7. Miten pääsee ujon naisen pään sisään?

      Siis tosi tosi tosi ujon...
      Ikävä
      142
      1192

    8. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      49
      1129

    9. Turussa Varissuolla bussikuski ajoi lapsen yli lapsi kuoli

      Poliisi " Epäilee " kuskia törkeästä liikenneturvallisuuden vaarantamisesta ja törkeästä kuolemantuottamuksesta.
      Maailman menoa
      161
      1086

    10. Onko hän samannäköinen kuin silloin?!

      Kun tutustuitte!
      Ikävä
      70
      1024
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt