delete data rage on double clicking cell

[redspanna]

Hello all

I have a long list of date that populates columns A:F

Can I have help with code that will simply delete the data held on that particular row through columns A:F

For example if cell A16 is double clicked then A16:F16 id deleted and the remaining rows beneath are all moved up to fill in the gap.

Thanks in advance

 

[James006]

Hello,

You can test following event macro

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Rows(Target.Row & ":" & Target.Row).Delete Shift:=xlUp
    Cancel = True
End Sub

Hope this will help

 

[Peter_SSs]

For example if cell A16 is double clicked then A16:F16 id deleted and the remaining rows beneath are all moved up to fill in the gap.

If you only want this to work if a column A cell is double-clicked and you only want 6 columns of the row deleted, then try this

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 1 Then
    Cancel = True
    Target.Resize(, 6).Delete Shift:=xlUp
  End If
End Sub

 

[redspanna]

If you only want this to work if a column A cell is double-clicked and you only want 6 columns of the row deleted, then try this

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 1 Then
    Cancel = True
    Target.Resize(, 6).Delete Shift:=xlUp
  End If
End Sub

Perfect - thanks a lot

 

[Peter_SSs]

Perfect - thanks a lot

You're welcome.