Are you sure that you copy it in the correct sheet module
See
http://www.rondebruin.nl/code.htm
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"JSnow" wrote in message ...
Ron, I pasted your code into the workskeet and it didn't work. It looks like
it should work, but nothing happens when target C6 fills with a value. I
expected the value to be duplicated in D6.
"Ron de Bruin" wrote:
Hi JSnow
You can use this event in the sheet module
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("C6"), Target) Is Nothing Then
If Target.Value < "" Then
Range("D6").Value = Target.Value
End If
End If
End Sub
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"JSnow" wrote in message ...
I would like to have a bit of VBA code that triggers a macro when a cell is
no longer empty. For example: when cell C6 is not longer empty (C6<"") then
macro whatEver.
The macro, just so you know, will copy the contents from C6 and special
paste the value only into D6. If this can be done all with VBA then that's
even better. Betterier.
I'm bowing faithfully at my cubical to you Excel Gods. Thanks again.