Aswaarden automatisch aanpassen

[Cedric DG]

Goedemiddag iedereen,

Even een vraagje:

In bijgevoegd bestand staat een grafiek waar ik de aswaarden automatisch zou willen laten aanpassen:

In de grafiek 'Dispersion between limits' zou de minimum van de as de waarde van AK4 en de maximum de waarde van AK5 moeten hebben.

Het doel van dit bestand is dat waarden worden ingevuld in het tabblad Data en dat gebruikers in het tabblad Initial Process Study enkel cel A6 (productnummer) moeten en kunnen wijzigen.

Ik heb het al geprobeerd met een macro, maar daar ben ik niet zo goed in.

Alvast bedankt!

[ATTACH]36496[/ATTACH]

Initial Process Study.xlsm

[reneemettrie]

Maak een automatische macro die wordt uitgevoerd als de gebruiker iets typt in A6:

rechter muis op het tabblad data + programmacode weergeven

In het scherm van de visual basic editor zie je 2 keuzelijsten

Linker keuzelijst: kies Worksheet

Rechter keuzelijst: kies de gebeurtenis die moet worden geprogrammeerd: OnChange

Plaats de volgende code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$6" Then

   Dim grafiek As ChartObject, data As Worksheet, grafiekblad As Worksheet

   Set grafiekblad = Sheets("Initial Process Study")
   Set grafiek = grafiekblad.ChartObjects("Grafiek 2")
   Set data = Sheets("Data")
   With grafiek.Chart.Axes(xlValue)

      .MinimumScale = data.Range("AK4")
      .MaximumScale = data.Range("AK5")
   End With
End If
End Sub