"JE McGimpsey" <(E-Mail Removed)> wrote in message
news:jemcgimpsey-(E-Mail Removed)...
> One possible solution:
>
> Public Sub CopyUnformatted()
> Dim vArr As Variant
> Dim i As Long
> Application.ScreenUpdating = False
> With Selection
> ReDim vArr(1 To .Count)
> For i = 1 To .Count
> vArr(i) = .Cells(i).NumberFormat
> Next i
> .NumberFormat = "General"
> .Copy
> For i = 1 To .Count
> .Cells(i).NumberFormat = vArr(i)
> Next i
> End With
> Application.ScreenUpdating = True
> End Sub
Hi, thanks!
What does this copy from, pls? Since I didn't see a reference, I assumged
it would work with the selected cell.
When I used H15 as a test, which contains the value $26,549.46, I get a zero
value in both G16 and H16 (formatted as 0 and $0.00, respectively due to
formatting) and did not end up with 26549.46. The fact that the 2 cells get
zero in them is weird as they're not linked via a formula in any way. Also,
after the values get dumped into the cells, there is nothing left in the
clipboard to go to the other program to paste the info from Excel so that
part is missing. so the $26,549.46 disappears with this macro <g>.
What am I doing wrong, pls?
Cheers.

D
> In article <eh$GUPg#(E-Mail Removed)>,
> "StargateFanFromWork" <(E-Mail Removed)> wrote:
>
>> Perhaps behind-the-scenes, XL2K can copy the cell and paste it virtually
>> somewhere, strip the $ and , and then copy that to the clipboard?? Then
>> I
>> could just paste straight from the clipboard in the desired format.
>> Again,
>> I haven't a clue how to do this, but perhaps someone here might know a
>> possible workaround??