Hi Don,
That worked great. I have also tried to use it on something else just
slightly different but I can't get it to work. This is what I am trying to
use:
Sub b01AddNext()
x = Cells(Rows.Count, "E").End(xlUp).Row
nar = Range("E2:E" & x).Find("Bye").Row
Cells(nar, "E").Value = Cell("B3").Value
End Sub
If I change *Cell("B3").Value back to *ActiveCell.Value it works but when
I use it as currently shown it gives me a Compile error "Sub or Function not
defined". Probalby just something simple I just can't figure out. I need it
to insert the "B3" value regardless of which cell is sellected in this
instance. Please help.
Thanks,
Guy
"Don Guillett" wrote:
try
ActiveCell.Copy Cells(nar, "d")
Cells(nar, "d").value=ActiveCell.value
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Guy" wrote in message
...
Hi Don,
That kinda works the way I want. How can I get it to just insert the cell
'Value' of the selected cell without reformatting the cell or inserting
any
Forms object from the selected cell?
"Don Guillett" wrote:
One way
Sub copyactivecelltonextcellincold()
x = Cells(Rows.Count, "D").End(xlUp).Row
nar = Range("d1:d" & x).Find("").Row
ActiveCell.Copy Cells(nar, "d")
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Guy" wrote in message
...
Hi Ya'll,
I need a macro that will insert the selected cell value into "D2", or
if
not empty, the next cell in range (D2:D65) that is empty.
Thanks for all the help everyone has given me.
Guy