Goedemiddag allemaal,
Ik heb jullie hulp nog even nodig.
Ik zit met het volgende probleem:
Wanneer ik in cel C2 een getal type dat groter is dan 10, dan zou er een pop up venster moeten komen met de tekst "Te groot"
Wanneer ik in cel C2 een getal type dat groter is dan 20, dan zou er een pop up venster moeten komen met de tekst "Veel te groot"
Ik heb zelf al één en het ander getest door de waarde 10 in een andere cel (G2) te zetten en deze dan laten vergelijken met cel C2. Dat lukt en krijg ik een pop up met "Te groot" op. Maar hoe voeg ik hier nog de tweede pop up aan toe wanneer het groter is dan 20 (cel C2 vergelijken met cel G4) en dan de pop up "Veel te groot".?
Zo kan ik dan later de cellen G2 en G4 verbergen. Tenzij er een formule bestaat waar ik C2 niet moet vergelijken met G2 en G4.
Mijn macro ziet er nu als volgt uit en in bijlage het voorbeeld, waar ik dan later op verder kan bouwen.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
Dim Three As Long
One = Range("G2").Value
Two = Range("C2").Value
If Not (Application.Intersect(Range("G2:C2"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "Te groot!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub
Alvast bedankt voor jullie hulp.