Call Userform Only for Empty Cells

[IoanZ]

Hello

I use this vba code to call Userfrom :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("B1:B22")) Is Nothing Then
Cancel = True
UserForm1.Show
End If

Please tell me which are the modification for VBA code when i want to call Userform only for emtpycells..(Cell B2 Bellow John..

Thank's
A[TABLE="width: 500"]
<tbody>[TR]
[TD]A[/TD]
[TD]B[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]John[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Alex[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Mike[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Bob[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]David[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]George[/TD]
[/TR]
</tbody>[/TABLE]

 

[gallen]

If I've understood you correctly...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("B1:B22")) Is Nothing [COLOR=#ff0000][B]And Target = ""[/B][/COLOR] Then
        Cancel = True
        UserForm1.Show
    End If
End Sub

 

[IoanZ]

ok Thank's

I will read the rules and therms.

Thank's again