Match text then enter formula

**ChrisXcel** · 03-30-2014, 07:30 PM

I would like to check the text in the first column of a named range.
If Text in the cell above = current selected cell then, add a formula to
(same Row, column D) where that formula would take the value of the cell above.
Something like: (Row, col D) = (Row -1, col D)

I believe a For loop is required. I just don't know how to cycle through the cells in Col A
and then put the formula in Col D.

Thanks for any help!

**GC Excel** · 03-30-2014, 07:56 PM

Hello,

Something like that ???

Sub test()
    Dim rg As Range, c As Range
    
    Set rg = Range("A2:A10")   'define range here
    
    For Each c In rg
        If c.Offset(-1, 0).Value = c.Value Then c.Offset(0, 3).Formula = c.Offset(-1, 3).Formula
    Next c

End Sub

**ChrisXcel** · 03-30-2014, 08:09 PM

Originally Posted by GC Excel

Hello,

Something like that ???

Sub test()
    Dim rg As Range, c As Range
    
    Set rg = Range("A2:A10")   'define range here
    
    For Each c In rg
        If c.Offset(-1, 0).Value = c.Value Then c.Offset(0, 3).Formula = c.Offset(-1, 3).Formula
    Next c

End Sub

Thanks GC!
Your code is almost what I am looking for.
Right now your code is putting in values into column D.
I would like to put in formulas instead; like =(D30) etc. (My range is A30:A55)
The formulas should be relative to the cell above, so one cell would be
=(D30) another cell would be =(D31) etc.

Just to be clear, it might look like this:
AAA 44
AAA =(D30)
AAA =(D31)
BBB 26
BBB =(D33)
BBB =(D34)