Delete some cells when using doubleclick in column B

[Simon Robert]

Hi

I already have the following formula in my worksheet that add the date when the user doubleclick in the column B

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row >= 5 And Target.Row <= 500 And Target.Column = 2 Then ActiveCell.Value = Time + Date
End Sub

I would like to add something to clear the content of cells C, D, E, F of the same row when the user doubleclick in the column B.

Thanks

 

[andyka]

Try this

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Target.EntireRow.Range("C:F").ClearContents
End If
End Sub

 

[Simon Robert]

Hi Andyka, thanks for your help.

Do you mean that the new formula should be the following? It seams that Excel do not like the Target.EntireRow.Range("C:F").ClearContents.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row >= 5 And Target.Row <= 500 And Target.Column = 2 Then ActiveCell.Value = Time + Date
Target.EntireRow.Range("C:F").ClearContents

End Sub

 

[Fluff]

How about

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Row >= 5 And Target.Row <= 500 And Target.Column = 2 Then
      Target.Value = Time + Date
      intersect(Target.Row, Range("C:F")).ClearContents
   End If
End Sub

 

[Simon Robert]

Hi Fluff, thanks for your help

I receive a type missmatch error

 

[Fluff]

How about

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Row >= 5 And Target.Row <= 500 And Target.Column = 2 Then
      Target.Value = Time + Date
      Intersect(Target.EntireRow, Range("C:F")).ClearContents
      Cancel = True
   End If
End Sub

 

[Simon Robert]

How about

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Row >= 5 And Target.Row <= 500 And Target.Column = 2 Then
      Target.Value = Time + Date
      Intersect(Target.EntireRow, Range("C:F")).ClearContents
      Cancel = True
   End If
End Sub

This is exactly what I needed. Thanks

 

[Fluff]

You're welcome & thanks for the feedback.