Viimeisen solun teksti?

Jos nyt maksettuja A1:B8. Päivämäärä A-sarakkeessa ja eurot B-sarakkeessa.
Tee soluun A11 kaava
=SIIRTYMÄ(A11;-3;0)
ja soluun B11 kaava
=SUMMA($B$1:B10)

Nyt lisäät seuraavan laskun riville 9 ja painat Enter, B10 solu aktivoituu: Lisää -> Lisää rivejä. Summa kaavan alue kasvaa ja siirtymä näyttää edelleen kolmea solua ylempänä olevan arvon.

toinen tapa:
Jos viimeisin päivämäärä ja summa saa näkyä jossain muuhalla kuin alapuolella voi käyttää
esimerkiksi.
soluun F2 kaava
=HAKU(50000;A1:A2000)
soluun G2 kaava
=SUMMA(B4:B2000)

tällä nyt vaikka alkuun

solu A10 teksti päiväys
solu b 10 teksti summa

maalaa solut A10 ja B10 ja kaavaruutuun kirjoitat tietokanta ja ENTER. Nyt pitäisi olla nimetty alue tietokanta
samoin tee esim.

solu H1 teksti lakun pvm
solu I1 teksti laskun summa

maalaa solut H2 ja I2 ja kaavaruutuun kirjoitat syöttöalue ja ENTER. Nyt pitäisi olla nimetty alue syöttöalue.

Jos ei onnistu noin niin tee lisäämällä nimi valikon kautta

lisää nappi yläriville (ennen riviä 10) ja liitä siihen makro UusiLasku

moduuliin...

Option Explicit
Sub UusiLasku()
Dim Rivi As Long
On Error GoTo virhe
If Range("Syöttö").Cells(1, 1) = "" Or _
Not OnkoPäiväys(Range("Syöttö").Cells(1, 1)) Then
Range("Syöttö").Cells(1, 1).Select
MsgBox "Anna päiväys! esim 12.2.2006 tai 12/6/2006", vbInformation
Exit Sub
End If
If Range("Syöttö").Cells(1, 2) = "" Or _
Not IsNumeric(Range("Syöttö").Cells(1, 2)) Then
Range("Syöttö").Cells(1, 2).Select
MsgBox "Anna summa!", vbInformation
Exit Sub
End If
With Range("Tietokanta") ' itse määritelty alue
Rivi = .Rows.Count 1 'lisätään tietokantaan rivi
Range("Syöttö").Copy Destination:=.Cells(Rivi, 1) ' kopioidaan tiedot
.Resize(Rivi).Name = "Tietokanta" ' päivitetään tietokanta lisäyksen jälkeen
End With
Range("Tietokanta").Offset(Range("Tietokanta").Rows.Count) = ""
Range("A10").Offset(Range("Tietokanta").Rows.Count 2, 0) = Range("Syöttö").Cells(1, 1)
Range("B10").Offset(Range("Tietokanta").Rows.Count 2, 0).FormulaLocal = "=SUMMA(B10:B" & Range("Tietokanta").Rows(2).End(xlDown).Row & ")"
Range("Syöttö") = "" 'tyhjennetään syöttöalue
virhe:
End Sub

Function OnkoPäiväys(Pvm As String) As Boolean
Dim Päiväys As Date
On Error GoTo virhe
Päiväys = DateValue(Range("Syöttö").Cells(1, 1))
OnkoPäiväys = True
Exit Function
virhe:
OnkoPäiväys = False
End Function

nyt laskee automaattisesti summan yhden tyhjän rivin päähän viimeisestä laskusta( koska helpompi käsitellä asioita näin)
Voit aivan vapaasti poistaa rivejä välistä tai lopusta ja silti ohjelma toimii oikein!
Arvot syötetään H2 ja I2 ja sen jälkeen klikkaat nappia.
Lisäsin vielä tarkistukset tyhjille arvoille sekä tarkistukset, että on päiväys sekä luku
:-)

Älä säikähdä aikaisempia vastauksia. Ongelmasi on perin yksinkertainen, mutta harjaantumattomat putkiaivot tuottavat joskus sangen monimutkaisia vastauksia peruskäyttäjälle. Sori, pojat, jos ei kuitenkaan peloteta ei-tietohallintoihmisiä pois tietokoneen äärestä, ok? ;)

Jos tavoitteenasi on vain saada näkyviin viimeisin päivämäärä, syötä siihen kenttään seuraava kaava:

=MAX(I10:I12)

Tuohon I10:I12 -kohtaan maalaat alueen, josta uusin päivämäärä pitää etsiä. MAX-funktio etsii suurinta arvoa taulukosta, joten se samalla etsii myös uusimman päivämäärän.

Suoittelen, että tuon summauskohdan sijoitat taulukon yläosaan, sillä muutoin saat olla siirtelemässä sitä koko ajan sitä mukaa kuin rivien määrä taulukossa kasvaa.

Summat saat yskinkertaisesti käyttämällä SUM-funktiota (tai SUMMA suomenkielisessä) ja maalaamalla alueen, josta haluat yhteissumman laskea.