summing double with empty string

[vhanacek]

In VBA I am summing values of cells and when i load cell which is empty, it assume that this cell is a string and i can't to sum it.
any help please?
Q = Q + ActiveSheet.Cells(Y, W).Value

ActiveSheet.Cells(Y, W).Value = "" ....it is VARIANT/STRING type
I initiatized Q as double, but it change itself to VARIANT/DOUBLE

 

[Scott Huish]

Perhaps:

If IsNumeric(ActiveSheet.Cells(y, w)) Then Q = Q + ActiveSheet.Cells(y, w)

 

[vhanacek]

Perhaps:

If IsNumeric(ActiveSheet.Cells(y, w)) Then Q = Q + ActiveSheet.Cells(y, w)

Thanks a lot.
It works now.
I spent whole day with this.....
I am not sure if it can't skip some cells with values using this code. Don't you know why it assumes some cells as VARIANT/EMPTY and some as VARIANT/STRING? Even if both are empty and the same number format.
Thanks

 

[Scott Huish]

An empty cell has nothing in it, but "" is not an empty cell it contains an empty string and is breaking with an error because you are trying to add a string to a number.

 

[vhanacek]

An empty cell has nothing in it, but "" is not an empty cell it contains an empty string and is breaking with an error because you are trying to add a string to a number.

How can I convert the cell with empty string to empty cell?

 

[Scott Huish]

Is it there as a result of a formula?

If not, select the cell and hit Delete.

If it is the result of a formula, you may want to consider returning a 0 value instead and formatting the cells to hide zero values.

 

[vhanacek]

Is it there as a result of a formula?

If not, select the cell and hit Delete.

If it is the result of a formula, you may want to consider returning a 0 value instead and formatting the cells to hide zero values.

Thanks for help...i deleted it and it works now

 

[vhanacek]

Is it there as a result of a formula?

If not, select the cell and hit Delete.

If it is the result of a formula, you may want to consider returning a 0 value instead and formatting the cells to hide zero values.

Thanks for help...i deleted it and it works now

sorry for disturbing again, but is there any code instead of hit delete?

 

[vhanacek]

Is it there as a result of a formula?

If not, select the cell and hit Delete.

If it is the result of a formula, you may want to consider returning a 0 value instead and formatting the cells to hide zero values.

sorry for disturbing again, but is there any code instead of hit delete?
I tried:

If ActiveSheet.Cells(Y, W).Value = "" Then ActiveSheet.Cells(Y, W).Value = Empty

but this doesn't work

 

[Scott Huish]

If ActiveSheet.Cells(Y, W) = "" Then ActiveSheet.Cells(Y, W).ClearContents