Posts by Atif Bhatti

[xpost][/xpost]

Hello brainers,
I have a VBA and this will extract all 4-digit numeric values from cell into next colums of the every row. Now I want 2 modifications in this VBA to extract 4-digit alpha value

and 4-digit alphanumeric mix value. So in fact I want three types of data extraction:
4-digit numeric (for which I have VBA below)
4-digit alpha (for which I want VBA modification)
4-digit alphanumeric (for which I want VBA modification)

Here is VBA for extraction of 4-digit numeric only value,

Sub test()
Dim r As Range, i As Long
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "\b\d{4}\b"
For Each r In Range("a1", Range("a" & Rows.Count).End(xlUp))
If .test(r.Value) Then
For i = 0 To .Execute(r.Value).Count - 1
r(, i + 2).Value = .Execute(r.Value)(i)
Next
End If
Next
End With
End Sub

Quote from jindon

Re: Finding all four digit numbers in a string

Code

Sub test()
Dim r As Range, i As Long
With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = "\b\d{4}\b"
    For Each r In Range("a1", Range("a" & Rows.Count).End(xlUp))
        If .test(r.Value) Then
            For i = 0 To .Execute(r.Value).Count - 1
                r(, i + 2).Value = .Execute(r.Value)(i)
            Next
        End If
    Next
End With
End Sub

Display More

You are awesome, jindon you are fantastic dear, it workded fine for 4-digit numeric values. You made my day.
Now can you please help me by making two smiliar VBA codes one for 4 digit Alpha value and second for four digit Alpha+Numeric mix value. Thanks in advance.