Basic (i think) VBA help with row of data

[bergman99]

First off, thanks for your time, even if you've only gotten this far.

I have a large range of data, very little of it is useful. from CF3:ET3 the cells contain either a 0 or an 11 character string of numbers/symbols. There can be up to 5 of those strings in one row. I would like to know how to write a code that looks from CF3:ET3 and copies any of the strings found into EV3:EZ3. If it only finds one string then it would be nice if it pasted it into EV3. Finds two strings, first one to EV3 second one into EW3... so on and so forth.

My data goes from CF3:ET1130, but each row is unique and needs the 5 "report columns"


Here's a really rough example of what the data looks like...
[TABLE="width: 1529"]
<colgroup><col span="11"><col><col span="5"></colgroup><tbody>[TR]
[TD]Values[/TD]
[TD]Values[/TD]
[TD]Values[/TD]
[TD]Values[/TD]
[TD]Values[/TD]
[TD]Values[/TD]
[TD]Values[/TD]
[TD]Values[/TD]
[TD]Values[/TD]
[TD]Values[/TD]
[TD]Values[/TD]
[TD] [/TD]
[TD]Report Cell[/TD]
[TD]Report Cell[/TD]
[TD]Report Cell[/TD]
[TD]Report Cell[/TD]
[TD]Report Cell[/TD]
[/TR]
[TR]
[TD]my.lil.pony[/TD]
[TD]0[/TD]
[TD]is.93.years.old[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD] [/TD]
[TD]my.lil.pony[/TD]
[TD]is.93.years.old[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
</tbody>[/TABLE]

Any ideas?

 

[JLGWhiz]

The size of your file will probably take a few seconds for this to run. Maybe somebody smarter than me can come up with a faster method. This should be copied to your standard code module 1. To access the code module, press Alt + F11. The workbook should be saved as a macro enabled workbook if you intend to keep the code for future use. It will only seek out strings with 11 characters and will only put them into the five columns specified, even if there are more than five strings in the search range that meet the criteria.

Sub findString()
Dim rng As Range, c As Range, i As Long, col As Long
    With Sheets(1) 'Edit sheet name
        For i = 3 To 1130
            Set rng = .Range(.Cells(i, "CF"), .Cells(i, "ET"))
            col = 0
            For Each c In rng
                If Len(c) = 11 Then
                    st = .Cells(i, "EV")
                    st.Offset(0, col) = c
                    col = col + 1
                End If
                If col = 5 Then Exit For
            Next
        Next
    End With
End Sub