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

96

    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ä.

    Luetuimmat keskustelut

    1. Mitä ihmettä

      Kaipaat hänessä
      Ikävä
      105
      1776
    2. Välillä käy mielessä

      olisiko sittenkin ollut parempi, että emme koskaan olisi edes tavanneet. Olisi säästynyt monilta kyyneleiltä.
      Ikävä
      81
      1377
    3. Mika Muranen juttu tänään

      Jäi puuttumaan tarkennus syystä teolle. Useat naapurit olivat tehneet rikosilmoituksia tästä kaverista. Kaikki oli Muras
      Sananvapaus
      6
      1336
    4. Lopeta tuo mun kiusaaminen

      Ihan oikeasti. Lopeta tuo ja jätä mut rauhaan.
      Ikävä
      144
      1263
    5. Mitä oikein

      Näet minussa? Kerro.
      Ikävä
      92
      1250
    6. Oho! Farmi-tippuja Wallu Valpio ei säästele sanojaan Farmi-oloista "Se oli niin luotaantyöntävää..."

      Wallu oikein listaa epämiellyttävät asiat… Monessa realityssä ollut Wallu Valpio ei todellakaan säästele sanojaan tippum
      Tv-sarjat
      13
      1209
    7. Kotipissa loppuu

      Onneksi loppuu kotipizza, kivempi sotkamossa käydä pitzalla
      Kuhmo
      22
      1176
    8. Uskoontulo julistetun evankeliumin kautta

      Ja kun oli paljon väitelty, nousi Pietari ja sanoi heille: "Miehet, veljet, te tiedätte, että Jumala jo kauan aikaa sitt
      Raamattu
      615
      1138
    9. Hanna Kinnunen sai mieheltään tiukkaa noottia Tähdet, tähdet -kotikatsomosta: "Hän ei kestä, jos..."

      Hanna Kinnunen on mukana Tähdet, tähdet -kisassa. Ja upeasti Salkkarit-tähti ja radiojuontaja onkin vetänyt. Popedan Lih
      Tv-sarjat
      9
      1044
    10. Helvetin hyvä, että "hullut" tappavat toisensa

      On tämä merkillistä, että yritetään pitää hengissä noita paskaperseitä, joilla ei ole muuta tarkoitusta, kuin olla riida
      Kokkola
      11
      974
    Aihe