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

255

    Vastaukset 5

    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. Mikä sun salaisuus on,kun näytät niin nuorelta..

      Vaikka oot jo noin vanha!?
      Ikävä
      111
      1348
    2. MiltäKaivattusi

      Näyttää? !
      Ikävä
      45
      911
    3. Myönnetään, tunnen lämpimiä tunteita kohtaasi

      Vaikutat tosin liian hyvältä ollaksesi totta. Komeita miehiä on maailma pullollaan mutta sinussa on jotain.....
      Ikävä
      50
      736
    4. Perhoseni (miehelle)

      Miksi et usko, että mun rakkaus sinuun on aitoa ja vilpitöntä? Tai että se oli jo silloin? Miksi ajattelet, ettet ole r
      Ikävä
      132
      697
    5. Mitä meidän välillämme

      On käynyt näiden vuosien aikana?
      Ikävä
      70
      666
    6. Uskaltaisitko

      Tavata kaivattusi tässä tilanteessa?
      Ikävä
      67
      616
    7. Olen tavattavissa

      tänään klo 17-02 siinä ravintolassa. Tulethan sinäkin?
      Ikävä
      53
      607
    8. Halaus juuri sinulle

      Kaikki järjestyy kyllä. Luota vain. ❤️🫶
      Ikävä
      55
      555
    9. Onko Sofia jälleen jätetty?

      Moni asia viittaisi siihen, että hän on jälleen sinkku.
      Kotimaiset julkkisjuorut
      94
      485
    10. Mies, näetkö minut myös

      Seksuaalisena ihmisenä ja naisena? Haluatko minua seksuaalisesti? Vai olenko mielestäsi tyttönen?
      Ikävä
      20
      480
    11. Voiko se ikinä toimia

      Voiko meistä ikinä tulla mitään? Näin kauan aikaa on kulunut ja mitään ei tapahdu... En usko, että sinä mietit minua het
      Ikävä
      32
      468
    12. Meneekö unohtamis

      Projektisi hyvin??
      Ikävä
      34
      467
    13. Rekat seisovat dieselin hinnan takia . Ala ei kestä tällaista hintatasoa, sanoo yrittäjä .

      EU:n kallein diesel on kova paikka kuljetusalalle. Ajoja on jätetty ajamatta kannattavuus­ongelmien vuoksi, sanoo alan e
      Kajaani
      94
      457
    14. Mitä jos...

      Susta tykätään poikana enemmän, kun tyttönä? Miten asian käsittelet tai otat tiedon vastaan? T nainen gubetellija herät
      Sinkut
      142
      453
    15. Nainen, mitä mieltä olet kodittomista?

      Ja heistä jotka eivät kykene huolehtimaan asioistaan, itsestään eikä terveydestään? Miten heidän kanssaan tulisi toimia?
      Ikävä
      115
      453
    16. Kuka se on

      Kuhmon komein aikamies?
      Kuhmo
      5
      448
    17. Uskallatko paljastaa

      Millä nimellä löydyn puhelimestasi?
      Ikävä
      49
      447
    18. Voin tulla

      Sisustamaan sulle 🤭
      Ikävä
      51
      445
    19. Miksi jätit vastaamatta mies

      Silloin kauan sitten 😔
      Ikävä
      42
      410
    20. Et sinä mitään

      Oikeasti halua
      Ikävä
      52
      403
    Aihe