VBA - find cells in column with a parantheses and display value

[john69]

Hello all:

I have a column of data where some cells will contain alphanumeric strings and others that will contain alphanumeric strings with a parentheses, number, close parentheses (e.g. Cells F3:F10 could have "E0001", 2, 3, etc) and F11 could have "E0012 (36)".
When a cell has no (), then I want a different cell in same row to display the number one ("1"). If the cell does contain a parantheses, then I want to display the value inside the parantheses.

I have found a way to do it as a formula, =IF(ISERROR(FIND("(",F88)),1,MID(F88,(SEARCH("(",F88)+1),((SEARCH(")",F88)-(SEARCH("(",F88)+1))))), but I want to incorporate it into an already created block of code.

Thank you in advance for your consideration in helping me with my little dilema!

 

[NeonRedSharpie]

Where is it going in this block of code? Is there an existing loop? You can always just use the formula you already have in the code.

Sub findParent()

    'RC[-2] puts the formula at H
    'RC[-3] puts the formula at I
    'etc etc


    With Range("H1:H4")
        .FormulaR1C1 = "=IFERROR(MID(RC[-2],FIND(""("",RC[-2])+1,FIND("")"",RC[-2])-FIND(""("",RC[-2])-1),1)"
        .Value = .Value
    End With


End Sub