Delete Blank Rows-I know I know its been asked a million>

[Bigzippy]

Sub DelBlankRows()

On Error Resume Next
range("B6:B194").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

this does not work but it describes what im tring to do,m imust not del anything above row 6

Please help Lal

 

[Bigzippy]

wait deleted rows above row 6

 

[xenou]

In Cell A1, I type ="", then I copy/pastespecial values.

In VBA Macros:
IsEmpty(Range("A1")) is False;
Range("A1") = "" is True.

In Cell A1, I type ="", then I delete A1:
IsEmpty(Range("A1")) is True;
Range("A1") = "" is True.

What is in the cells you are using copy/pastespecial values on?
Edit: and how are you doing this operation...by hand or in a macro?
Edit 2: SORRY - I think I missed page 2 and see you have answered all of this...ignore me.

 

[Jonmo1]

OK, the problem is the + in the formula...

"=+IF(WEEKDAY(RC[-1],2)<6,RC[-1],"""")"

That is somehow telling excel that the contents of the cell is a number - even if no number is in it.

remove that +

"=IF(WEEKDAY(RC[-1],2)<6,RC[-1],"""")"

 

[Bigzippy]

jonmo1

removed the + and it is stil showing nonblank never seen this one

 

[Jonmo1]

hmm, maybe try changing the formula to put a space instead of a blank..

ActiveCell.Offset(-1, 1).FormulaR1C1 = "=+IF(WEEKDAY(RC[-1],2)<6,RC[-1],"" "")"

and then after the paste special values, use text - to columns to remove the spaces... was sucessfull testing that here..

    Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlNone, ConsecutiveDelimiter:=True, Tab:=False, Semicolon _
        :=False, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(1, 1 _
        ), TrailingMinusNumbers:=True

 

[Bigzippy]

neither works for me jonmo

 

[Bigzippy]

ok gotit solved!!!!!!!!!!!!!!!!!!!!
had to select one column and it worked
Thank You