Summan laskeminen ensimmäiseen vapaaseen soluun

Excelhakusessa

Hei,
osaisikohan joku auttaa? Pitäisi tehdä makro, joka laskee sarakkeen luvut ensimmäiseen tyhjään soluun. Eli lukuja on sarakkeessa x-määrä, ja kun nämä luvut loppuvat, pitäisi seuraavan rivin tyhjään soluun laskea nämä solut yhteen. Mitenhän onnistuisi?

5

174

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • moduuliin...
      muuta sarake ja aloitusrivi sopivaksi- nyt A sarake ja etsii ekan tyhjän alkaen A1 solusta


      Sub Summa()
      Dim Vika As Long
      Vika = Range("A1").End(xlDown).Row
      Range("A" & Vika 1) = WorksheetFunction.Sum(Range("A1:A" & Vika))
      End Sub


      Keep EXCEling
      @Kunde

    • Vaihtoehtoinen_tapa

      Helpompaa on laittaa ne summat tietorivien yläpuolelle. Samalta riviltä ne olisi helpompi lukeakin.

    • Välillä ihmetyttää nää helpompi jutut, jos kysytään niin vastaan pyyntöön.
      Tottakai sen voi tehdä monella tapaa ja monestikin kysymyksestä ei edes selviä tarkoituskaan vaan pitää arvailla.
      Vaihtoehtoinen_tapa vaan olettaa, että helpompi... ;-)

      • Vaihtoehtoinen_tapa

        Ei ollu tarkoitus loukata. Toi ehdotus oli kysyjälle. Mun mielestä, jos tietoja tulee eri sarakkeisiin vaihteleva määrä, on ehdottomasti parempi laittaa ne summat yms. lasketut jutut tietojen yläpuolelle. Kun samat asiat on aina samallä rivillä, niitä ei tarvii etsiä sieltä täältä.


    • Excelhakusessa

      Kiitos!! tässä tapauksessa ei voi laittaa summaa yläpuolelle, joten Kunden apu oli juuri sitä mitä tarvitsin :)

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa

      En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod
      Ikävä
      33
      7034
    2. Huomenta ihana

      Kauniskasvoinen ihanuus 😘 saan sut vielä
      Ikävä
      38
      6444
    3. Hei rakas...

      Miten on työpäivä sujunut? Rakastan sinua 💗
      Ikävä
      29
      3524
    4. Ei tämä etene ikinä

      Kun kumpikaan ei enää ota yhteyttä. Mä en ainakaan uskalla.
      Ikävä
      45
      3060
    5. Edelleen sitä on vaikea uskoa

      Että olisit oikeasti rakastunut muhun
      Ikävä
      34
      2724
    6. Vitsi mihin menit. Heti takasin.

      Mä näin sut tuu takasin! Oli kiire, niin en ehtiny sin perään!
      Ikävä
      15
      2418
    7. Toiveikas vai toivoton

      torstai? Ajatuksia?
      Ikävä
      37
      2198
    8. Mukavaa päivää

      Mun rakkauden kohteelle ❤️ toivottavasti olet onnellinen
      Ikävä
      16
      2076
    9. Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...

      Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons
      Suomalaiset julkkikset
      48
      1957
    10. En ole koskaan kokenut

      Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka
      Ikävä
      19
      1807
    Aihe