kaavion piirtäminen makrolla

Mulla on taulukko johon kirjataan erimäärä tietoa 1-100 riviä, miten olisi parasta rakentaa että makro osaisi tehdä vain niistä arvoista kaavion joissa on tietoja.

Kannaattko se rakentaa siten että johonkin soluun kirjaan halutut rivinumerot?

5

62

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • jos esim. A-sarakkeessa tietoja, niin hakee vikan solun alhaalta ylöspäin, eli voi olla välissä tyhjiäkin arvoja
      vika=Range("A65536").End(xlUp).Row
      ja tietoalue silloin esim. Range("A100:A" & vika)

      vastaavasti ylhäältä päin (stoppaa ekaan tyhjään ruutuun, eli ei voi olla tyhjiä välissä...)

      vika=Range("A1").End(xlDown).Row
      ja tietoalue silloin esim. Range("A100:A" & vika)

      Keep EXCELing
      @Kunde

    • Mites saisin sen upotettua tähän makro koodiin

      ActiveChart.SeriesCollection(1).Values = "='Raportti_APU'!$O$6:$O$105"

      Eli toi 105 muuttuisi vikaksi?

      • vika=Range("A65536").End(xlUp).Row

        ActiveChart.SeriesCollection(1).Values =Worksheets("Raportti_APU'").Range("O6:O"& vika)
        `
        Keep EXCELing
        @Kunde


      • kunde kirjoitti:

        vika=Range("A65536").End(xlUp).Row

        ActiveChart.SeriesCollection(1).Values =Worksheets("Raportti_APU'").Range("O6:O"& vika)
        `
        Keep EXCELing
        @Kunde

        piti olla
        vika=Range("O65536").End(xlUp).Row


    • Nyt tuli vaan sillanen ongelma kun haen tuohon tauluun phaulla tietoja ja toi vika luulee nyt että niissä kaikissa soluissa on jotain arvoja.

      Millä saisin että se etsisi sen rivin jossa ei ole tekstiä?

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

    Luetuimmat keskustelut

    1. Mikä on kaivattusi etunimi?

      Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.
      Ikävä
      153
      3010
    2. En kestä katsoa

      Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois
      Ikävä
      95
      1614
    3. Anna minulle anteeksi

      Anna minulle anteeksi. Minä pyydän.
      Ikävä
      143
      1537
    4. Kun viimeksi kohtasitte/näitte

      Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...
      Ikävä
      124
      1435
    5. Peräti 95 % persujen kannattajista rasisteja

      Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää
      Maailman menoa
      374
      1423
    6. Olet kyllä vaarallisen himokas

      Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.
      Ikävä
      99
      1225
    7. Anna vielä vähän vihreää valoa

      Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet
      Ikävä
      15
      941
    8. On minulla suunitelma

      Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s
      Ikävä
      48
      862
    9. Palstan ylivoimaisesti suosituin keskustelunaihe

      Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks
      Luterilaisuus
      259
      815
    10. 60
      805
    Aihe