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 |
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 |
All times are GMT +1. The time now is 05:05 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com