Ik heb een excel file met daarin diverse tabladen
Ik het tabblad "meterstanden" staat de data
Ik wil graag in een nieuw tabblad "grafiek" de data van de materstanden verwerken
Ik heb al een deel deel werkend maar ik kan de puntjes niet op de i zetten.
Ik zoek in kolom "t" van sheet meterstanden de laatste cel op (variable "laatstrg"
Dan wil ik een aantal dag terug kijken en gebruik daar de variable "dtk"voor
Ik wil in me grafiek de data van sheet "meterstanden" gebruiken van kolom "T"en "U" en "B"
De range wordt bepaald door (( laatstrg - dtk)
Kolom "B" moet onderop de datum zijn
Kolom "T" en "U" is data
De hoogte van de x-as waarde is ook een variable
"Hoogste" uit de range van kolm "T"en "U"
Ik ben zelf niet zo handig met VBA maar al doende leert men
Graag niet te moeilijk zodat ik ook nog een beetje begrijp wat er gebeurt
..
Wie kan me op weg helpen
Ik het tabblad "meterstanden" staat de data
Ik wil graag in een nieuw tabblad "grafiek" de data van de materstanden verwerken
Ik heb al een deel deel werkend maar ik kan de puntjes niet op de i zetten.
Ik zoek in kolom "t" van sheet meterstanden de laatste cel op (variable "laatstrg"
Dan wil ik een aantal dag terug kijken en gebruik daar de variable "dtk"voor
Ik wil in me grafiek de data van sheet "meterstanden" gebruiken van kolom "T"en "U" en "B"
De range wordt bepaald door (( laatstrg - dtk)
Kolom "B" moet onderop de datum zijn
Kolom "T" en "U" is data
De hoogte van de x-as waarde is ook een variable
"Hoogste" uit de range van kolm "T"en "U"
Ik ben zelf niet zo handig met VBA maar al doende leert men
Graag niet te moeilijk zodat ik ook nog een beetje begrijp wat er gebeurt
..
Wie kan me op weg helpen
Code:
Sub test()
Dim shmeterstanden As Worksheet
Dim shgrafiek As Worksheet
Dim laatstrg As Long
Dim dtk As Long
Dim hoogste As Long
Set shmeterstanden = Worksheets("meterstanden")
Set shgrafiek = Worksheets("grafiek")
dtk = 30 ''dagenterugkijken
Dim test As String
laatstrg = shmeterstanden.Range("T65536").End(xlUp).row
hoogste = WorksheetFunction.Max(shmeterstanden.Range(("T" & laatstrg - dtk & ":U" & laatstrg))) ''Hoogste waarde binnen de range
ActiveSheet.ChartObjects("Grafiek 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.ChartArea.Select
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScale = 0
ActiveChart.Axes(xlValue).MaximumScale = hoogste
Selection.TickLabels.NumberFormat = "#.##0"
ActiveChart.FullSeriesCollection(3).Select
''''meterstand 1
ActiveChart.FullSeriesCollection(2).Values = "=Meterstanden!$T$" & laatstrg - dtk & ":$T$" & laatstrg
'''meetstand 2
ActiveChart.FullSeriesCollection(3).Values = "=Meterstanden!$U$" & laatstrg - dtk & ":$U$" & laatstrg
''datum
ActiveChart.FullSeriesCollection(1).XValues = "=Meterstanden!$B$" & laatstrg - dtk & ":$B$" & laatstrg
End Sub