|
|
|
Author |
Message |
ltt
|
Posted: Thu Sep 14 14:38:02 CDT 2006 |
Top |
worksheet functions >> Macro help
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.
Excel265
|
|
|
|
|
timm
|
Posted: Thu Sep 14 14:38:02 CDT 2006 |
Top |
worksheet functions >> Macro help
you could do the tab deliminate part then copy that data and 'paste
special'...'transpose'
> 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.
|
|
|
|
|
GarysStudent
|
Posted: Thu Sep 14 14:47:01 CDT 2006 |
Top |
worksheet functions >> Macro help
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
> 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.
|
|
|
|
|
annap
|
Posted: Thu Sep 14 15:04:02 CDT 2006 |
Top |
worksheet functions >> Macro help
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?
> 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
>
>
>
> > 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.
|
|
|
|
|
GarysStudent
|
Posted: Fri Sep 15 08:46:01 CDT 2006 |
Top |
worksheet functions >> Macro help
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
> 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?
>
>
> > 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
> >
> >
> >
> > > 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.
|
|
|
|
|
|
|