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. Pystyisitkö pitämään

      Näppejä erossa jos tulisi siihen tilaisuus
      Ikävä
      45
      3513

    2. Riikka on siis suomalaisille velkaa 84 mrd

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

    3. Luotathan siihen tunteeseen, joka välillämme on?

      Uskothan myös, että se kestää tämän? Kaipaan sinua valtavasti. Vielä tehdään yhdessä tästä jotain ihmeellistä ja kaunist
      Ikävä
      30
      2985

    4. Sanna on suomalaisille siis velkaa 24 mrd euroa

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

    5. En saa sua mielestäni vaikka tekisin mitä

      Mikä tähän auttaa.. ei mikään. Edes aika. Kaivan sut kohta vaikka kivenkolosta että saan kysyä haluatko sinäkin💛
      Ikävä
      12
      2273

    6. Tuntuuko ettet tiedä

      Enää miten toimia mun suhteen. Kun en taida tietää itsekään
      Ikävä
      25
      2269

    7. Kirjotan ikävää ulos

      Haluaisin kuulla mitä ajattelet minusta. ihan mitä vaan mitä mietit. Voisit kertoa minulle, tai sitten kirjoittaisit run
      Ikävä
      14
      1698

    8. Sinä se vaan jaksat

      Suosittelen lopettamaan hyvissä ajoin, tuo toimintas ei auta unohtamiseen. Jossain vaiheessa asia julkistuu enkä usko et
      Ikävä
      23
      1557

    9. Onnettomuus

      Hukkajärventiellä kolaroi lavetti ja henkilöauto. Uutista ei missään! Hys hys ollaanko hiljaa tästäkin?
      Kuhmo
      3
      1537

    10. iltalehden uutinen poistettiin?

      Jämsässä koulussa rikosepäily avustaja juu
      Jämsä
      15
      1346
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt