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.
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.
Vastaukset 1
Vanhimmat
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