Userform openen op voorwaarde

[don42]

Hoi allemaal

wie kan mij helpen met volgende:

wil graag een userform openen
als ik een waarde in een cel zet en de cel er onder nog leeg is
deze cel selecteer ik natuurlijk na de enter
alleen dan het userform anders niet
het gaat om kolom N

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "N14" Then
UserForm2.Show
End If
End Sub

met bovenstaande lukt het wel als ik cel n14 selecteer

bvd
Don

 

[VenA]

Iets in deze vorm

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("N2:N100")) Then
    If ActiveCell.Offset(1, 0) = "" Then MsgBox "ok"
End If
End Sub

 

[HSV]

ByVal target:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Columns(14)) Is Nothing Then
    If Target.Offset(1, 0) = "" Then UserForm2.Show
 End If
End Sub

 

[don42]

Ik krijg beide codes niet het gewenste resultaat
heb in kolom N van N1 tm N14 getallen staan
nu wil ik in N15 een getal zetten, enter cel N16 wordt geselecteerd
en dan de userform2
dus er kan maar in 1 cel het userform geactiveerd worden worden

don

 

[VenA]

Wat dacht je van een voorbeeldje plaatsen? beide codes doen wat jij vroeg: Als Nx is ingevuld en en Nx+1 is leeg laat een formulier/msgbox zien.

 

[don42]

Voorbeeldje

Bekijk bijlage Don.xlsm

heb een stukje uit mijn werkmap geknipt
kolom F wil ik ( in dit geval) gebruiken om een getal in te voeren

 

[HSV]

Omschrijf eens wat er niet aan deugt, afgezien van welke code.

 

[don42]

Heren, mijn excuses ik selecteerde ieder keer de lege cel en dat gaf geen resultaat
sorry,
het werk heel fijn beide bedankt voor jullie bijdrage
:thumb:
zou het trouwens kunnen als je de eerste lege lege cel van een kolom selecteert het userform start

 

[VenA]

Een beetje zelf proberen mag ook.

 

[HSV]

Private Sub Worksheet_selectionChange(ByVal Target As Range)
    If Target.Address = Cells(Rows.Count, 6).End(xlUp).Offset(1).Address Then userform2.show
End Sub

 

[don42]

`Bedankt