X-aks. skaalaus autom, ku mahd valita luvut 0-50 vuotta? Ongelma: nyt varaa tilaa 50v asti akselille

Määrittele nimetyt alueet x_arvot ja y_arvot (Formulas - Name manager) ja laita nimet sivukohtaisiksi. Käytä kaaviossa näitä nimiä: 
=SERIES(Sheet1!$D$1; Sheet1!x_arvot; Sheet1!y_arvot; 1)
Lisäksi, anna solu(je)n, jolla muutat pitoaikaa nimeksi Syöttö.
 
Laita seuraava makro k.o. sivun moduliin ja tee siihen tarvittavat muutokset. Joka kerta kun alue "Syöttö" muuttuu, makro muuttaa alueiden " x_arvot" ja "y_arvot" määrityksiä siten, että ne käsittävät vain kaavioon tolevat rivit, ts. ne joilla on kelvollinen numero sarakkeessa Cx. 

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim r0: r0 = 1  ' otsikkorivi
    Dim r           ' tutkittava rivi
    Dim Cx: Cx = 3  ' x-arvojen sarake
    Dim Cy: Cy = 4  ' y-arvojen sarake
    Dim a: a = 0    ' ensimmäinen rivi
    Dim l           ' viimeinen rivi
    
    If Not Intersect(Target, Range("Syöttö")) Is Nothing Then
        With WorksheetFunction
            For r = r0   1 To r0   50
                If a = 0 Then If .IsNumber(Cells(r, Cx)) Then a = r
                If a > 0 And Not .IsNumber(Cells(r, Cx)) Then Exit For
                l = r
            Next r
        End With
        ActiveWorkbook.Names("x_arvot").RefersToR1C1 = "=Sheet1!R" & a & "C" & Cx & ":R" & l & "C" & Cx
        ActiveWorkbook.Names("y_arvot").RefersToR1C1 = "=Sheet1!R" & a & "C" & Cy & ":R" & l & "C" & Cy
    End If
    
End Sub