SpecialCells in Excel to return value of a formula

Question

I wanted a quick simple way to copy cell values to another sheet using SpecialCells in Excel as opposed to looping

My VBA code is as below:

Sub copyMissingData()
    Worksheets("Source").Range("Z4:Z2000").SpecialCells(xlCellTypeConstants).Copy Worksheets("Destination").Range("missing_qbc")
End Sub

My source data Z4:Z20000 has formulas that returns a value (texts/numbers/fraction etc) or blank "". I want the copy to ignore the blanks, but copy any other value returned

The VBA code above using SpecialCells(xlCellTypeConstants) doesn't work because of the formula in the source range.

My question: Is there a straightforward way I can use range.specialcells to copy my data from a worksheet to another bearing in mind that source cells contain formulas and the formulas may produce empty string cells which will need to be skipped

Answer 1

If you have formulas, why are you trying to select the constants?

Use this:

Worksheets("Source").Range("Z4:Z2000").SpecialCells(xlCellTypeFormulas, 23).Copy
Worksheets("Destination").Range("missing_qbc").pastespecial(xlPasteValues)

The 23 means "Numbers, Texts, Logicals and Errors".

Doing the copy and paste separately ensure blanks are skipped (if that's what you mean by "ignore").

Paste values makes sure only the values get pasted, not the formulas themselves.

Please note that if you have a formula in a cell, it is not blank. Even if the formula produces an empty string value as a result, the cell itself is not empty! In htat case, you need to do a copy-paste values in place before you do anything else - and even then Excel sometimes doesn't consider blank cells blank. If this is the case, you need to iterate (loop) through the cells, and copy them one-by-one.

Answer 2

The easiest way I can think of is to remove the blanks after copying all:

Set rngFrom = [Source!Z4:Z2000]
Set rngTo = [Destination!missing_qbc].Resize(rngFrom.Rows.Count, 1)
rngTo.Value = rngFrom.Value
rngTo.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

The more complicated way is with array formula, but doesn't need VBA.