vba excel: how to copy characters from a cell to another - excel

Question

I'm new in VBA world and I'm learning by your suggestions.
I've looked for several solutions, tried them but they were't ideal for my problem.
Here are the links
Find a string within a cell using VBA
How to Count the Number of a Specific Character in a Cell with Excel VBA
Which command in VBA can count the number of characters in a string variable?
What I need is the possibility to check the characters inInput and match with Match list key. After matched the string, copy the characters I in output.
As you can see, first rows are simple to match but in A8 cell (for example) there is a string with fourteen characters.
In this case I need that, when there is a string that begin with CMXXAB, the match is with WT (ALWAYS!).
The same thing happen when we have A12: it begins with ETRxxx and, after match will begin in output like JAZZ.

Answer 1

I think this will help you:
Option Explicit
Sub test()
Dim LastrowA As Long, i As Long, AppearA As Long, AppearB As Long
Dim strA As String, strB As String
With ThisWorkbook.Worksheets("Sheet1")
LastrowA = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 1 To LastrowA
strA = .Range("A" & i).Value
strB = .Range("C" & i).Value
'Check if strA appears in strB
AppearA = InStr(1, strB, strA)
If AppearA > 0 Then
.Range("B" & i).Value = strA
Exit For
End If
'Check if strB appears in strA
AppearB = InStr(1, strA, strB)
If AppearB > 0 Then
.Range("B" & i).Value = strB
Exit For
End If
Next i
End With
End Sub
Thank you so much for help.
after few days i've found solution for problem in my question.
infact, this is my solution and I hope to be good for helping anyone need something like this.
Sub AssociazioneRotabiliPerPivot()
Dim LastrowA, LastrowC As Long, i, j As Long, AppearA As Long, AppearB As Long
Dim strA As String, strB As String
With ThisWorkbook.Worksheets("sheet1")
LastrowA = .Cells(.Rows.count, "A").End(xlUp).Row
LastrowC = .Cells(.Rows.count, "C").End(xlUp).Row
For j = 1 To LastrowC
For i = 1 To LastrowA
strA = .Range("A" & i).Value
strB = .Range("C" & j).Value
AppearC = InStr(1, strA, strB)
If AppearB > 0 Then
.Range("B" & i).Value = strB
End If
If (InStr(1, strA, "CM") Or InStr(1, strA, "C4551R")) > 0 Then
.Range("B" & i).Value = "WT"
ElseIf InStr(1, strA, "ETR425") > 0 Then
.Range("B" & i).Value = "JAZZ"
End If
Next i
Next j
End With
End Sub