Solver + Loop

Hi

I have a problem.
Please see attached spreadsheet.

What I want to do is not that complicated, but I am simply stucked.
- if value in (col A) and (col C) are same
- then (col F) = (col B)*(col E) + (col B)

I want to run a solver in a loop so that
- the macro finds each value of (col C) matching (col A)
- if matching, the solver sets value in (col E) so that (col F) = 100
- otherwise, leaves cell in col E blank

so far, my code is like that and does not work

Sub Button()

Dim r As Range
Dim c As Range
Dim f As Range
Dim p As Range

Set r = Range("A2", Range("A65536").End(xlUp))
Set f = Range("C2", Range("C65536").End(xlUp))

For Each c In r.Cells
For Each p In f.Cells
If p = c Then
SolverOk SetCell:=p.Offset(0, 3), MaxMinVal:=3, ValueOf:=100, bychange:=p.Offset(0, 2).Address
SolverSolve True
SolverFinish KeepFinal:=1

End If
Next p
Next c

End Sub

I just feel stupid not beeing able to do this by myself
I hope I am clear enough
Thanks a lot in advance for your help.

Hi Have you done this Bit??
--
Before you use this function, you must establish a reference to the Solver add-in. With a Visual Basic module active, click References on the Tools menu, and then select the Solver.xla check box under Available References. If Solver.xla doesn't appear under Available References, click Browse and open Solver.xla in the \Office\Library\Solver\ subfolder.

Regards Mick

Andy Pope >> the error is a classic vba one: Compile Error / Sub or Function not defined

MickG >> My solver is correctly enabled in the addins list.

Could someone help me?

Thanks a lot in advance

It works fine.

Thanks a lot for your help

HAve a nice day