• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Private sub

Status
Niet open voor verdere reacties.
N

Niels3

Gebruiker
Lid geworden
19 sep 2022
Berichten
7
Beste helpers,

Ik zou graag een code maken voor de volgende situatie.

Als de waarde in de range van cellen (J7:J23) groter is dan 1 en de bijbehorende cel uit range (F7:F23) is leeg dan wil ik een textbox als pop up hebben.

Dus stel J9 is >1 dan moet F9 niet leeg zijn. Dus er moet enkel worden gekeken naar de cellen van F en J uit de zelfde rij. Kan iemand mij helpen?

Met vriendelijke groet,

Een excel pro in wording
 
Dat zou zo kunnen:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Set Rng = Intersect(Target, Range("J7:J23"))
    If Rng Is Nothing Then Exit Sub
    If Rng.Count > 1 Then Exit Sub
    If Rng.Value > 1 And Rng.Offset(0, -4) = vbNullString Then
        Rng.Offset(0, -4).Activate
        MsgBox Rng.offset(0,-4).Address & " moet gevuld worden."
    End If
End Sub
 
Je moet die Sub achter een werkblad plaatsen, zie bijgaand voorbeeld.
 

Bijlagen

  • VoorNielsExcelProInWording.xlsm
    13,9 KB · Weergaven: 8
De sub had ik reeds op een werkblad geplaatst. echter werkt deze niet. ook een simpele sub zoals hieronder doet het niet meer, deed het voorheen wel


Private Sub Worksheet_Change2(ByVal Target As Range)


If [MAX(J7:J23)>1] Then

MsgBox "Schrijf een notitie bij een PI buiten norm"

End If





End Sub
 
Als je naam van een Worksheet Event wijzigt dan wordt hij niet gevonden.
Dus als je
Code: 
[COLOR=#3E3E3E]Private Sub Worksheet_Change2[/COLOR]
wijzigt in
Code: 
[COLOR=#3E3E3E]Private Sub Worksheet_Change[/COLOR]
dan doet hij het weer.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan