Copy contents of a cell into a blank cell
 

How do I copy the contents of cell B2 into cell D2 only if D2 is empty

Copy contents of a cell into a blank cell
 

Hi

It cannot be done with a formula - only with VBA.
The following code should achieve what you described

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$2" Then
If Range("D2") = "" Then Range("D2") = Range("B2").Value
End If
End Sub


To Use
Copy Code above
Right click on sheet tabView Code
Paste code into white pane that appears
Alt+F11 to return to Excel
--
Regards
Roger Govier

"fire9990" wrote in message
...
How do I copy the contents of cell B2 into cell D2 only if D2 is empty

__________ Information from ESET Smart Security, version of virus
signature database 4754 (20100108) __________

The message was checked by ESET Smart Security.

http://www.eset.com




__________ Information from ESET Smart Security, version of virus signature database 4754 (20100108) __________

The message was checked by ESET Smart Security.

http://www.eset.com

Copy contents of a cell into a blank cell
 

See replies to your first posting.


Gord Dibben MS Excel MVP

On Fri, 8 Jan 2010 08:41:01 -0800, fire9990
wrote:

How do I copy the contents of cell B2 into cell D2 only if D2 is empty