Veja se a rotina abaixo retorna a lista como esperado.
Analise alguns registros para se certificar que ID e data são correspondentes...
Em caso de erro ou inconsistência, favor reportar.
Sub IdRegDate()
Dim lin As Long
Dim i As Long
Dim j As Long
Dim ws As Worksheet
Set ws = Sheets("Usuarios")
i = 1
j = ws.Range("A1048576").End(xlUp).Row
lin = 2
Do While i <= j
If Left(ws.Cells(i, 1), 2) = "id" Then
Cells(lin, 1) = Mid(ws.Cells(i, 1), Application.WorksheetFunction.Search(":", ws.Cells(i, 1), 1) + 2, 20)
i = i + 2
Cells(lin, 2) = Mid(ws.Cells(i, 1), Application.WorksheetFunction.Search(":", ws.Cells(i, 1), 1) + 3, 10)
lin = lin + 1
i = i + 1
End If
i = i + 1
Loop
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 29/06/2011 4:28 pm