Conditional Worksheet Events

Hello,

I would like to have a nested if or select case statement to handle a worksheet event.
The conditions it will check are:
1. Make sure target is w/in range, otherwise EXIT
2. Make sure that target offset value is not empty, otherwise display message
3. All is good, open form

I’ve tried various formulations and positionings of the statements ,but not all conditions are met with equal success.
What happens is I get the the first two conditions, but the third doesn’t work.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Rng1 As Range
    Set Rng1 = Range("DBlClick")
    
If Intersect(Target, Rng1) Is Nothing Then Exit Sub
    	 Cancel = True

 	 'If Intersect(Target.Cells.Offset(0, -6), Rng1) Is Nothing Then
   	  '  MsgBox "You must first fill in the necessary data "
  ‘Exit Sub   

        	  frm_EditPricing.Show

End Sub

I’ve attached a workbook for clarification

Thanks
Mark

Hello Mark,

Change this statement...

If Intersect(Target, Rng1) Is Nothing Then Exit Sub
    	 Cancel = True

To this....

If Intersect(Target, Rng1) Is Nothing Then 
         Exit Sub
    	 Cancel = True
End If

Hello Max57,

Here is the working code for the DoubleClick macro...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim Rng1 As Range
    Set Rng1 = Range("DBlClick")
    
    If Intersect(Target, Rng1) Is Nothing Then
        Cancel = True
        Exit Sub
    End If
   
  'Cells that have formulas are not considered empty. This counts the cells filled in by the user 
    If WorksheetFunction.CountA(Cells(Target.Row, "B").Resize(1, 4)) = 0 Then
        MsgBox "You must fill in the row before seeing this form"
        Cancel = True
        Exit Sub
    End If
       
    frm_EditPricing.Show
      
End Sub

Hello Mark,

The Resize property allows you to change the number of rows and columns for a cell or range. For example, if the cell is "B10" then the range is expanded to 1 row by 4 columns so the working range is now "B10:E10".