Extracting words based on two initial characters

[Deepk]

Hi team,

I have some entries in cells of a column. See example below
A
1 AB67436C1 | SR7487OP | KW465875QP | LO68782XE | SR5743257TA

2 LO68782XE | KW465875QP | AB67436C1 | SR465456YA | BV47586TR

3 DZ7645657UO

I want to have a macro that extract the individual entries based on the the first two alphabets. The macro should work in the following manner.

It ask me to enter (in an inputbox) the list of two alphabets, like "SR, LO, BV".
ask me to enter (in second inputbox) the column number in which the extracted data should be pasted. Like "4".
It gives output in the 4th column like below

D
1 SR7487OP | LO68782XE | SR5743257TA

2 LO68782XE | SR465456YA | BV47586TR

3 Not Available

Looking forward in anticipation!

Thank you.

 

[Deepk]

Ok so i assume the original data is not in column A. I modified it (and tried it), now it should go in the right column.

Sub RefineFamily()

 Dim alpha, strBuffer As String
 Dim col As Double
 Dim refList As Variant
 Dim c As Range
 Dim i As Integer
 On Error GoTo ErrHandling
 alpha = InputBox("Choose Country Codes", "Prompt")
 col = CDbl(InputBox("Choose a column number", "Prompt"))
 ' For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
     For Each c In Selection
    
         refList = Split(Replace(c.Value, " ", ""), "|")
        
         For Each ref In refList
        
         If InStr(1, alpha, Left(ref, 2)) > 0 Then
         strBuffer = strBuffer & ref & " | "
         i = i + 1
         End If
        
         Next ref
        
         If i > 0 Then
            Cells(c.Row, col).Value = Left(strBuffer, Len(strBuffer) - 3)
         Else
            Cells(c.Row, col).Value = "Not Found"
         End If
        
         i = 0
        
         strBuffer = ""
        
     Next c
ErrHandling:
 If Err.Number <> 0 Then
MsgBox Prompt:="Please verify the data your entered", Title:="Prompt Error"
Else
 MsgBox "Process Completed Successfully."
End If
 End Sub

hi louisH and team,

Hope you are doing good.

I want a slight modification in the above code. I want to feed a list of two initial characters like

Array= (AB, BV, CA.... and so on)

If someone enters two initial characters (in the inputbox) other than the characters provided in the list, an error msgbox = "Check your input!" will appear and it exit the macro.

Please have a look and update the code. Thank you in advance.