Userform to show when cell value is changed

[Sharonca]

Hello,
My userform is not showing when I change a value in any cell in column DF. What am I doing wrong?

My code is as follows:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim rangeToChange As Range

If Target = Range("DF:DF").Address Then
Load UserForm1
UserForm1.Show

End If
If Not Intersect(Target, Range("DF:DF")) Is Nothing Then
End If
End Sub

 

[Joe4]

This line is no good:

If Target = Range("DF:DF").Address Then

Use the INTERSECT method like you did below:

If Not Intersect(Target, Range("DF:DF")) Is Nothing Then
    UserForm1.Show
End If

 

[Sharonca]

I am getting a run-time error-2147352375
Could not set the value property. Type mismatch.
The UserForm1.Show line is highlighted in yellow when I change the value in any cell in column DF. I need to load corresponding data into the form before it shows.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rangeToChange As Range

If Not Intersect(Target, Range("DF:DF")) Is Nothing Then
UserForm1.Show
End If

End Sub

 

[Joe4]

I am getting a run-time error-2147352375
Could not set the value property. Type mismatch.
The UserForm1.Show line is highlighted in yellow when I change the value in any cell in column DF. I need to load corresponding data into the form before it shows.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rangeToChange As Range

If Not Intersect(Target, Range("DF:DF")) Is Nothing Then
UserForm1.Show
End If

End Sub

OK, then just do whatever it is that you normally do in order to load that data (is that what the "Load UserForm1" line is supposed to do?).

The important thing I was showing you was how to change your "If ... Then" statement.

 

[Sharonca]

I got it to work. Thank you so much for your assistance.

 

[Joe4]

You are welcome.