Finding text after a value in a cell, then copying to another cell

[wnwrd]

Good morning!

I'm new to VBA, so I'm a little stuck. I'm trying to copy the text after "brand=" in column AU until "," as well as the text after "model=", then paste it into column E after "Default Category/Lexan Polycarbonate Motorsport Windows & Kits" with a "/" between the two strings.

I have managed to create code to find the relevant cell and select text after "brand=", but I am unsure how to proceed from here. Here's my code so far:

Sub findmakemodel()
    If ActiveCell.Value = "Default Category/Lexan Polycarbonate Motorsport Windows & Kits" Then
        ActiveCell.Offset(0, 42).Select
    End If
    If InStr(1, (ActiveCell.Value), "brand=") > 0 Then

If anyone could point me in the right direction it would be massively appreciated.

 

[kvsrinivasamurthy]

Try

Sub findmakemodel()
Dim K$, L1$, L2$, F1&, F2&
    If ActiveCell.Value = "Default Category/Lexan Polycarbonate Motorsport Windows & Kits" Then
    K = ActiveCell.Offset(0, 42) '.Select
    F1 = InStr(1, K, "brand=")
    If F1 > 0 Then L1 = "/" & Mid(K, F1 + Len("brand="), InStr(F1, K, ",") - F1 - Len("brand="))
    F2 = InStr(1, K, "model=")
    If F2 > 0 Then L2 = "/" & Mid(K, F2 + Len("model="), InStr(F2, K, ",") - F2 - Len("model="))
    
    ActiveCell.Value = ActiveCell.Value & L1 & L2
    End If
End Sub

 

[wnwrd]

Try

Sub findmakemodel()
Dim K$, L1$, L2$, F1&, F2&
    If ActiveCell.Value = "Default Category/Lexan Polycarbonate Motorsport Windows & Kits" Then
    K = ActiveCell.Offset(0, 42) '.Select
    F1 = InStr(1, K, "brand=")
    If F1 > 0 Then L1 = "/" & Mid(K, F1 + Len("brand="), InStr(F1, K, ",") - F1 - Len("brand="))
    F2 = InStr(1, K, "model=")
    If F2 > 0 Then L2 = "/" & Mid(K, F2 + Len("model="), InStr(F2, K, ",") - F2 - Len("model="))
   
    ActiveCell.Value = ActiveCell.Value & L1 & L2
    End If
End Sub

That's made things much easier, thank you for your help!