Vba: check string and copy corresponding values

[Nelson78]

Hello everybody.

I've a situation like this: I've to find the string in cell A2 ("C57") in column F (the recurrences could be 0 or 1), and then copy the values INFO 1, INFO 2 and INFO 3.

In this case:
B2 EEE
C2 CCC
D2 AAA

https://imgur.com/a/IW3vL

I've tried with INSTRING and VLOOKUP, but unsuccessfully.

Could you indicate the right way?

 

[mumps]

Try:

Sub FindVal()
    Dim foundVal As Range
    Set foundVal = Range("F:F").Find(Range("A2"), LookIn:=xlValues, lookat:=xlPart)
    If Not foundVal Is Nothing Then
        foundVal.Offset(0, 1).Resize(, 3).Copy Range("B2")
    End If
End Sub

 

[Nelson78]

It works fine.

Thank's for the support.

 

[mumps]

You are very welcome.