VBA: copy range from sheet1 to sheet2 but deleting zeros

[vermaccio]

i have to copy a range from sheet1 to sheet2 (so to have text in sheet2 cells, while in sheet1 cells there are formulas)

but empy cells in sheet1 generate "0" in equivalent cells in sheet2.

Sheets("sheet1").Range("A2:G10000").Copy
Sheets("sheet2").Range("A2:G10000").PasteSpecial Paste:=xlPasteValues

how can i copy it so that sheet1 empty cells remain empty also in sheet2?

[vermaccio]

i tried to insert after the paste:

Sheets("sheet2").Select
Range("A2:G10000").Select
For Each Cell In Selection
If Cell.Value = 0 Then
Cell.Value = ""
End If
Next

but it needs several seconds to scan thousands of cells (they are 70.000 cells = seven columns, each one 10.000 cells).

is there another way?

[Mumps1]

Try:

Please Login or Register  to view this content.

[vermaccio]

fantastic! thank you

[Mumps1]

You are very welcome.