It is more of a procedural step to make sure all the text is where it is
supposed to be, where it appears to be.
It is probably redundant. But what I really want at this point is the code
to interrupt the macro if a cell is blank.
--
Sincerely,
Beverly76
"Dave Peterson" wrote:
> Your code does data|text to columns|delimited by tab on column A.
>
> Doesn't that mean that all the stuff in column A now is parsed into B:xxx based
> on tab characters?
>
> And the stuff in column B won't have any tab characters there at all.
>
> Is that what you're doing or am I missing something?
>
>
>
> Beverly76 wrote:
> >
> > This is my macro, it goes column by column A - AZ delimiting text. The
> > problem I have is that I get an error message on the first column which is
> > empty.
> >
> > After column A, is there a way to say if B1 is null, end macro before moving
> > on to delimit Text in Column B?
> >
> > I want to make this macro available to other users but the error message is
> > a problem.
> >
> > Columns("A:A").Select
> > Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
> > TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
> > Tab:=True, _
> > Semicolon:=False, Comma:=False, Space:=False, Other:=False,
> > FieldInfo _
> > :=Array(1, 1), TrailingMinusNumbers:=True
> > Columns("B:B").Select
> > Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
> > TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
> > Tab:=True, _
> > Semicolon:=False, Comma:=False, Space:=False, Other:=False,
> > FieldInfo _
> > :=Array(1, 1), TrailingMinusNumbers:=True
> >
> > --
> > Sincerely,
> > Beverly76
>
> --
>
> Dave Peterson
>
Bookmarks