Cell swapping

[ukmxer]

Could anyone tell me how to click on a cell and then click on another cell and swap them over.

e.g click cell C4 store its contents then click cell c7 and move its contents to c4 and then move the stored c4 into c7.

thank you.

[Bob Phillips]

This works by double-clicking the cells to swap



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Static prevCell As Range
Dim tmp As Variant

If prevCell Is Nothing Then
Set prevCell = Target
Else
tmp = Target.Value
Target.Value = prevCell.Value
prevCell.Value = tmp
Set prevCell = Nothing
End If
End Sub

[ukmxer]

Thanks XLD, that worked a treat!

[mdmackillop]

You can mark your thread "solved" using the Thread Tools dropdown