Copy empty cells from one workbook to another - Code

Hello,

Sorry for posting 2 times. Date & time in my computer were not correctly
set.

In addition to what I've written before, here is the code I wrote:

Sub Dataacquire()
Workbooks.Open "data.xls"
Worksheets("sheet1").Range("b1:d19").Copy _
ThisWorkbook.Worksheets("sheet1").Range("b1:d19")
ActiveWorkbook.Close SaveChanges:=False
End Sub

My problem that empty cells are not copied as empty and
because of this I get an error messages in other worksheets (like #VALUE).

How Can I solve this problem ?

Thank you
David Cohen

What are in those cells? Maybe they're not really empty--maybe they're formulas
that evaluate to "".

If they're formulas, maybe when you paste them to the new location, they point
to cells that break the formula:

Say B1 contained =if(a1*2=4,"","ok")

And if you paste that into a worksheet that has "hi there" in A1.

(copy and paste special|values might be an alternative)



David Choen wrote:
>
> Hello,
>
> Sorry for posting 2 times. Date & time in my computer were not correctly
> set.
>
> In addition to what I've written before, here is the code I wrote:
>
> Sub Dataacquire()
> Workbooks.Open "data.xls"
> Worksheets("sheet1").Range("b1:d19").Copy _
> ThisWorkbook.Worksheets("sheet1").Range("b1:d19")
> ActiveWorkbook.Close SaveChanges:=False
> End Sub
>
> My problem that empty cells are not copied as empty and
> because of this I get an error messages in other worksheets (like #VALUE).
>
> How Can I solve this problem ?
>
> Thank you
> David Cohen

--

Dave Peterson