Text To Columns Macro With Blank Cells

mcurry74 · Jan 3rd 2008

Hello,

First time poster.

I'm using the the Texttocolumns method in a Macro, and when it runs across a cell without any data I get "Run time error '1004' No data was selected to parse". How would I get passed this? I would like it to just remain a blank range without the error. Here's the code I'm using:

Code

Range("F38").Select
    Selection.TextToColumns Destination:=Range("F38"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(5, 1), Array(13, 1), Array(21, 1), Array(25, 1)), _
        TrailingMinusNumbers:=True

Thanks in advance for your help!

GrahamB · Jan 3rd 2008

Re: Text To Columns Results In Error

G'day mcurry,

Welcome to Ozgrid...

There are two ways I can thing of doing this

1. Error handling such as

Code

on error goto sydney 
' your code here


sydney:
'carry on with your code

or 2 use an identifier such as

Code

if activecell <> "" or activecell <> 0 then
'your code here
else
end if
'continue with your code here

HTH

GB

Dave Hawley · Jan 4th 2008

Re: Text To Columns Results In Error

mcurry74, *

Text To Columns Macro With Blank Cells

Participate now!

Share