ExcelBanter - View Single Post

Bruno Campanini[_2_]

After serious thinking wrote :
Hi

I'm wondering if anyone could advise me on this.

Within a worksheet detailing business credit card purchases, I have 2 columns
which list a description of the purchase (col G) and the name of the vendor
(col H)

I'm currently working on a macro that sorts the worksheet by various
criteria, and I want to include in the same macro an element of tidying the
data so that, if the 'description' cell says 'No Description' (this is from
the credit card source data), I'd like to replace it with the content of the
corresponding vendor cell:

Col G Col H
Laptop PC Store
No Description PC Store
Keyboard Amazon

becomes

Col G Col H
Laptop PC Store
PC Store PC Store
Keyboard Amazon

And I'm completely stumped on how to do it.

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

If Not IsEmpty(Target) And Target(, 0) = "No Description" Then
Target(, 0) = Target
End If

End Sub
=======================================

DoubleClick a non-blank cell to the right of "No Description".

Bruno