Haaste seuraava: Excel on laskenut kuntotuloksen ja haluaisin lasketun tuloksen siirrettävän automaattisesti tuloslistaan, johon tulos siirretään nappulaa painamalla laskemisen jälkeen. Tästä tuloslistasta olisi sitten tarkoitus tehdä kuvaajaa sitä mukaan kun arvoja listaan tulee.
Tajusikohan kukaan tätä ajatuksen virtaa?
Tajusikohan kukaan tätä ajatuksen virtaa?
Vastaukset 1
Vanhimmat
Tietämättä paremmin tarpeitasi tässä yksi versio
Nimeä lasketut tulossolut nimellä "Syöttö". Sekä kaavion tietoalue "Tietokanta".
Nappiin koodi
Sub UusiTieto()
Dim Rivi As Long
With Range("Tietokanta") ' kaaviontietoalue
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
End Sub
Määritä lisäksi nimi "Kaaviontiedot" Lisää/Nimi/Määritä
viittaukseen laita seuraava (oletetaan että tiedot A sarakkeessa)
=SIIRTYMÄ(A1;0;0;LASKE.A(A:A);1)
Tosta sitten muotoilet itselle sopivan