Makro joka laskee summan x-luvuista

Katjuska1234

Hei, minulla on kysely, joka tulostaa tulokset exceliin. Ensin tulee otsikko ja sen alapuolelle lukuja x-määrälle rivejä. Eli lukujen määrä riippuu siitä kuinka moni on vastannut.

Haluaisin tehdä makron, joka mm. laskee nuo luvut yhteen lukujen alapuolelle. Mitenhän tämä onnistuisi? Eli jos lukuja on 15 riviä, tulisi summa-funktio riville 17 (1 otsikkorivi 15 lukua). Mutta tosiaan kun tuota solua, mihin summan pitäisi tulla, ei tiedetä, onko se rivillä 5, 7, 9 tms. Sarake kyllä tiedetään.

1

234

Äänestä

    Vastaukset 1

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      Sub Summa()
      Dim Vika As Long
      Vika = Range("A65536").End(xlUp).Row
      'muuta sarake oikeaksi
      Range("A" & Vika 1) = Application.WorksheetFunction.Sum(Range("A2:A" & Vika))
      End Sub


      Keep EXCELing
      @Kunde

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Uskallanko laittaa sulle viestiä?

      Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S
      Ikävä
      60
      849

    2. Mikä tekee kaivatustasi

      Haluttavan?
      Ikävä
      34
      827

    3. Mies joka on oikeasti kiinnostunut

      Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää
      Ikävä
      125
      766

    4. Onko nyt kaikki asiat käyty läpi?

      Mun mielestä on👍
      Ikävä
      97
      746

    5. Vieläkin saat

      Sydämen tykyttämään. Vaikka emme näe
      Ikävä
      31
      622

    6. Lehtikankaan oppilas kuolema

      Mistä lie tyttöparka löytyny, mikä ajaa tekemään itsemurhan tuon ikäsenä 😞
      Kajaani
      11
      590

    7. En tahallaan sua välttele...

      Olis niin kiva nähdä jossain muualla kuin kaupassa!
      Ikävä
      40
      547

    8. Rauha, sopiiko

      Ei häiritä enää toisiamme. Annetaan molemmille rauha unohtaa, pyydän tätä todella. Kiitos. Miehelle.
      Ikävä
      72
      546

    9. Ikävä niitä hetkiä,kun katselin sua suoraan silmiin...

      😊
      Ikävä
      42
      539

    10. Ei siitä pääse yli, eikä ympäri!

      Pakko se on myöntää ja tunnustaa. Olisin halunnut p*nna sinua sydämeni kyllyydestä. Itseäni vanhemmalle naiselle
      Ikävä
      63
      519

    11. Kunnanhallitus

      Miten käy täällä vuosia tuomioita jakaneelle valittajalle, hovioikeus hylännyt kaikki syytteet.
      Puolanka
      24
      463

    12. Nyt kaatuu Kuisla

      Reima Kuisla hakee saneeraukseen – Joitakin velkoja on jo ulosotossa https://www.ilkkapohjalainen.fi/reima-kuisla-hakee
      Seinäjoki
      25
      437

    13. Pystyisitkö liikkumaan

      Tai tapailemaan kaivattuasi julkisesti?
      Ikävä
      45
      436

    14. Kumpi tästä nyt

      Teki niin vaikeaa?
      Ikävä
      57
      429

    15. Miesten (epä)viehättävyydestä kysymys

      Mieltä askarruttava asia, liki dilemma. Palstallahan jotkut miesoletetut usein toteavat, että kaikki naiset tavoittelev
      Sinkut
      105
      421

    16. Minkä kappaleen

      haluaisit soivan, kun astellaan alttarille?
      Ikävä
      36
      417

    17. Olit hyödytön.

      Mulle hyödytön..
      Ikävä
      72
      403

    18. Mikä estää ottamasta yhteyttä?

      🤨
      Ikävä
      39
      403

    19. Vieläkö tykkäät

      Minusta niin paljon että olisit valmis?
      Ikävä
      35
      397

    20. Emme pääse koskaan

      Tästä. Sinä et suostu enkä minä suostu
      Ikävä
      38
      394
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt