'Hi Tom Yaxley,
'try this macro, copy and paste the code in sheet1 and to test, put some
data in column "A" from cell "A1"
'Hope this helps.
'rgd,
'Basole.
Sub OrderData()
Dim orig, rev
Dim Lastrow As Integer
Dim i As Long
Lastrow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
i = 1
For i = i To Lastrow
orig = Cells(i, 1)
rev = StrReverse(orig)
Cells(i, 2) = rev
Next
Call UpdatData
Call Invert2
End Sub
Sub UpdatData()
ActiveWorkbook.Worksheets(1).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(1).Sort.SortFields.Add Key:=Range("B1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(1).Sort
.SetRange Range("B1:B500")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sub Invert2()
Dim orig2, rev2, result
Dim z, Lastrow As Integer
Dim i As Long
z = Worksheets(1).Cells(Cells.Rows.Count, "B").End(xlUp).Row
i = 1
For i = i To z
orig2 = Cells(i, 2)
rev2 = StrReverse(orig2)
Cells(i, 2) = rev2
Next
End Sub
'.
Em quarta-feira, 8 de janeiro de 2014 11h18min26s UTC-2, Tom Yaxley
escreveu:
>
>
>
> Hi All Experts,
>
> I am looking to copy individual rows of data from one spreadsheet
> which are separated by a varying amount of other data.
> It is also changing every day via a set of IF functions which pull data
> daily from production spreadsheets.
> They are also not in order either...
> the rows appear as such:
> 001K
> 002K
> 003K
> 006K
>
> (varying number of rows)
>
> B004K
> B005K
> B007K
>
> etc..
>
> they need to become:
>
> 001K
> 002K
> 003K
> B004K
> B005K
> 006K
> B007K
>
> is there anyway to do this? (i cannot post the spreadsheet as it is
> confidential data)
> Thanks
> Tom
>
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.
