Limit Delete row and move xlUp to 1 column.

[JulianvO]

Greetings

I have a Table - "ItemDB" - that has 3 columns namely Item, Qty and Taken.
Table starts at B5 through to F5 - Headings

My Code:

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

If Not Intersect(Target, Range("B:F")) Is Nothing Then

Cancel = True

With Target

.EntireRow.Range("B1:F1").ClearContents
.Value = ""
.Offset(1, 0).Select
.Select

End With

End If

If Not Target Is Nothing Then Target.Delete xlUp

Problem:

When I DoubleClick in any column within the table, the row is deleted.

I need the DoubleClick delete row to only be available in Column B.

Can someone assist me?

Thanks

End Sub

 

[MARK858]

If Not Intersect(Target, Range("B:F")) Is Nothing Then

This is telling the code to run when any cell in columns B:F is Double clicked, try changing the B:F to B:B

 

[JulianvO]

This is telling the code to run when any cell in columns B:F is Double clicked, try changing the B:F

Greetings Mark

Thanks for the reply. Implemented the change, but Double-clicking in either columns C or D, still deletes an entry in column B.

 

[MARK858]

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

    If Not Intersect(Target, Range("B:B")) Is Nothing Then

        Cancel = True

        With Target

            .EntireRow.Range("B1:F1").ClearContents
        End With
    End If
    If Not Intersect(Target, Range("B:B")) Is Nothing Then Target.Delete xlUp
End Sub

although the below probably does the same

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

    If Not Intersect(Target, Range("B:B")) Is Nothing Then

        Cancel = True

        With Target

            .EntireRow.Range("B1:F1").ClearContents
            .Delete xlUp
        End With
    End If

End Sub

 

[JulianvO]

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

    If Not Intersect(Target, Range("B:B")) Is Nothing Then

        Cancel = True

        With Target

            .EntireRow.Range("B1:F1").ClearContents
        End With
    End If
    If Not Intersect(Target, Range("B:B")) Is Nothing Then Target.Delete xlUp
End Sub

although the below probably does the same

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

    If Not Intersect(Target, Range("B:B")) Is Nothing Then

        Cancel = True

        With Target

            .EntireRow.Range("B1:F1").ClearContents
            .Delete xlUp
        End With
    End If

End Sub

Greetings Mark

Tried both the above solutions. They both work as required.

Will use the second solution, as it is cleaner in appearance.

Thanks again for your kind assistance. Much appreciated.

 

[MARK858]

You're welcome

 

[Joe4]

Greetings Mark

Tried both the above solutions. They both work as required.

Will use the second solution, as it is cleaner in appearance.

Thanks again for your kind assistance. Much appreciated.

Note: When marking a post as the solution, please mark the original post actually containing the solution, and not your own reply back acknowledging that some other post is the solution.
I have gone ahead and updated it on this thread for you.