Hi,

In the following code the data in every row from columns i:L from the
current sheet is copied to the OnlyData sheet if there are any entries

in column F of the current sheet.

------------------------------------------------------------------------

Dim range2_for_the_OnlyData As Range

Set range2_for_the_OnlyData =
Columns("f").SpecialCells(xlCellTypeConstants).Ent ireRow
Set range2_for_the_OnlyData = Intersect(range2_for_the_OnlyData,
Range("i:L"))
range2_for_the_OnlyData.Copy

Sheets("OnlyData").Range("j25").PasteSpecial xlPasteValues


Application.CutCopyMode = False
--------------------------------------------------------------------------


But this works only if I have data in columns i:L.

If there are functions, etc then the above code does not work.
How do I change the above code to ensure that ALL the data (in
columns i:L) gets copied from the current sheet to the OnlyData
sheet if there are any entries in column F of the current sheet.
In other words, the results of all functions should be copied and
not the functions themselves.

Thanks.


---
Message posted from http://www.ExcelForum.com/