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

98

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

      Hyvittää kaiken?
      Ikävä
      97
      2823
    2. Jotain puuttuu

      Kun en sinua näe. Et ehkä arvaisi, mutta olen arka kuin alaston koivu lehtiä vailla, talven jäljiltä, kun ajattelen sinu
      Ikävä
      104
      2390
    3. Haluan sut

      Haluatko sinä vielä mut?
      Ikävä
      91
      2170
    4. Ampuminen Iisalmessa

      Älytöntä on tämä maailman meno.
      Iisalmi
      17
      1972
    5. Pohjola kadulla paukuteltu

      Iltasanomissa juttua.
      Iisalmi
      42
      1816
    6. 160
      1804
    7. Hei A, osaatko

      sanoa, miksi olet ihan yhtäkkiä ilmestynyt kaveriehdotuksiini Facebookissa? Mitähän kaikkea Facebook tietää mitä minä en
      Ikävä
      45
      1777
    8. Haluaisin aidosti jo luovuttaa ja unohtaa

      Ei tästä mitään tule koskaan.
      Ikävä
      78
      1716
    9. Synnittömänä syntyminen

      Helluntailaisperäisillä lahkoilla on Raamatunvastainen harhausko että ihminen syntyy synnittömänä.
      Helluntailaisuus
      132
      1513
    10. Mitä tämä tarkoittaa,

      että näkyy vain viimevuotisia? Kirjoitin muutama tunti sitten viestin, onko se häipynyt avaruuteen?
      Ikävä
      41
      1304
    Aihe