activeren Usrerform

[don42]

Beste helpers,

ik heb dit:

If Not Intersect(Range("A2:A" & tel), Target) Is Nothing Then
UserForm2.Show

Nu wil ik graag als een cel van kolom A waar al data staat (ingevoerd middels de userform) niet meer geactiveerd wordt
weet iemand hier de oplossing voor?

bvd
Don

 

[VenA]

And target = "" then

 

[edmoor]

Hoewel ik het met VenA eens ben, toch even dit:
Plaats bij een macro altijd de regel die begint met Sub of Private Sub (De header) er bij.
Nu is niet te zien welk event de macro triggert en dat kan zeker van belang zijn bij het beantwoorden van een vraag.

 

[don42]

Nog niet duidelijk vioor mij

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LastRow As Integer
Dim tel As Integer
LastRow = Sheets("namen").Range("b" & Rows.Count).End(xlUp).Row
Range("d1").Value = LastRow
tel = Range("d1").Value
If Not Intersect(Range("A2:A" & tel), Target) Is Nothing Then
UserForm2.Show
'If Not Intersect(Range("A2:A" & tel), Target) And Target = "" Then  (dit is waarschijnlijk fout)
End If
End If
Range("A:a").EntireColumn.AutoFit
End Sub

 

[edmoor]

Doe het eens zo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Range("A2:A" & Sheets("namen").Range("B" & Rows.Count).End(xlUp).Row), Target) Is Nothing Then
        If Target.Value = "" Then UserForm2.Show
    End If
    Columns("A").AutoFit
End Sub

Plaats anders een voorbeeld document.

 

[don42]

Super

Werkt precies zoals ik het graag wil
maar eens dank voor je fijne hulp
Don