I need to create a macro so that when I select a cell and apply the macro it
will tab diliminate the contents, and arrange them in a B3, B4, B5 order as
oppose to a B3, C3, D3 order.

I can't figure out how to make it go down the column and not accross the row.

you could do the tab deliminate part then copy that data and 'paste
special'...'transpose'

"macro advice" wrote:

I need to create a macro so that when I select a cell and apply the macro it
will tab diliminate the contents, and arrange them in a B3, B4, B5 order as
oppose to a B3, C3, D3 order.

I can't figure out how to make it go down the column and not accross the row.

Going across is easy, use Text to Columns. To go down use:

Sub gsnu()
Dim r As Range
For Each r In Selection
s = Split(r.Value, Chr(9))
u = UBound(s)
For i = 0 To u
r.Offset(i + 1, 0).Value = s(i)
Next
Next
End Sub

This assumes that the fields with the cell are separated by the tab character
--
Gary's Student


"macro advice" wrote:

I need to create a macro so that when I select a cell and apply the macro it
will tab diliminate the contents, and arrange them in a B3, B4, B5 order as
oppose to a B3, C3, D3 order.

I can't figure out how to make it go down the column and not accross the row.

I just tried and that copied the cell contents into the row below it.

Here what I'm trying to do.

I'm going to have a string of charaters that looks similar to the one below:

L00262L2L00262L2L00262L2

After the 8th character, I need to populate the next cell below so it looks
like:

L00262L2
L00262L2
L00262L2

The original string will always vary in length, but will always be at least
8 characters long.

Any thoughts?

"Gary''s Student" wrote:

Going across is easy, use Text to Columns. To go down use:

Sub gsnu()
Dim r As Range
For Each r In Selection
s = Split(r.Value, Chr(9))
u = UBound(s)
For i = 0 To u
r.Offset(i + 1, 0).Value = s(i)
Next
Next
End Sub

This assumes that the fields with the cell are separated by the tab character
--
Gary's Student


"macro advice" wrote:

I need to create a macro so that when I select a cell and apply the macro it
will tab diliminate the contents, and arrange them in a B3, B4, B5 order as
oppose to a B3, C3, D3 order.

I can't figure out how to make it go down the column and not accross the row.

O.K. then:


Sub gsnu2()
Dim r As Range, s(100) As String
Dim i As Integer, j As Integer, k As Integer
For Each r In Selection
k = 1
i = Len(r.Value) / 8
For j = 1 To i
s(j - 1) = Mid(r.Value, k, 8)
k = k + 8
Next
For i = 0 To i - 1
r.Offset(i + 1, 0).Value = s(i)
Next
Next
End Sub

will break your string into sets of 8 characters and store them in the cells
below.
--
Gary''s Student


"annap" wrote:

I just tried and that copied the cell contents into the row below it.

Here what I'm trying to do.

I'm going to have a string of charaters that looks similar to the one below:

L00262L2L00262L2L00262L2

After the 8th character, I need to populate the next cell below so it looks
like:

L00262L2
L00262L2
L00262L2

The original string will always vary in length, but will always be at least
8 characters long.

Any thoughts?

"Gary''s Student" wrote:

Going across is easy, use Text to Columns. To go down use:

Sub gsnu()
Dim r As Range
For Each r In Selection
s = Split(r.Value, Chr(9))
u = UBound(s)
For i = 0 To u
r.Offset(i + 1, 0).Value = s(i)
Next
Next
End Sub

This assumes that the fields with the cell are separated by the tab character
--
Gary's Student


"macro advice" wrote:

I need to create a macro so that when I select a cell and apply the macro it
will tab diliminate the contents, and arrange them in a B3, B4, B5 order as
oppose to a B3, C3, D3 order.

I can't figure out how to make it go down the column and not accross the row.