msgbox (popup) indien een cel niet wordt ingevuld

[frin]

In een bestandje heb je 2 sheets

Als op sheet "Ploeg1_B" een waarde wordt ingevuld range ("c5"), dan moet de gebruiker op sheet "Ploeg1_A" dadelijk een waarde invullen in range ("d5")
indien hij een andere cel selecteert dient er een popup (gewone msgbox) te komen ter herinnering tot invullen

 

[Warme bakkertje]

Probeer het eens met deze. Als je iets invult op Blad PloegB_1 cel C5 wordt direkt cel D5 van Blad PloegA_1 geselecteerd.
Plak de code in de bladmodule van Blad PloegB_1

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$5" Then
        If Target.Value <> "" Then Application.Goto Sheets("Ploeg1_A").Range("D5")
        MsgBox "Vergeet niet de geselecteerde cel in te vullen"
    End If
End Sub

 

[frin]

Ok, dit werkt al prima.
Toch nog een kleine variant :

- als de cel Sheets("Ploeg1_A").Range("D5") al ingevuld is : geen popup
- niet zichtbaar naar Sheets("Ploeg1_A").Range("D5") gaan, op Ploeg1_B blijven

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$5" Then
        If Target.Value <> "" Then
            If Sheets("Ploeg1_A").Range("D5") = "" Then MsgBox "Vergeet niet Ploeg1_A in te vullen"
        End If
    End If
End Sub

Zet onderstaande in de bladmodule van Ploeg1A. Als het werkblad geactiveerd wordt en D5 is leeg wordt deze automatisch geselecteerd.

Private Sub Worksheet_Activate()
    If Range("D5") = "" Then Application.Goto Range("D5")
End Sub

 

[frin]

:thumb:

Geweldig, werkt perfect

BEDANKT

 

[frin]

Toch nog een probleem :

Stel de target value alsook de andere cel bevat een formule ... ?

bijlage

 

[huijb]

@frin zou je het onnodig quoten van berichten achterwege willen laten. Wanneer je direct reageert op een reactie is het niet nodig om te quoten.

 

[Warme bakkertje]

Als op sheet "Ploeg1_B" een waarde wordt ingevuld range ("c5")

Hoe gaat deze stelling dan op ?
Denk eerst even na over wat je wil bereiken en hoe en formuleer dan je vraag opnieuw zodat we een gericht antwoord kunnen geven, aangezien het mi nu niet meer gaat over het invullen van C5 maar over het bereik erboven.