Macro help

[Guest]

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.

 

[Guest]

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

 

[Guest]

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

 

[Guest]

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?

 

[Guest]

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.