VBA to Retrieve and Insert Cell Value

[happyhungarian]

Hi,

I have a range of cells (let's say cells D2:H2) that can either be formula-driven or user-inputs. In cells D1:H1 there are drop downs that determine the type of formula that should be used if a formula is chosen over user inputs. I can't simply use an IF formula in D2:H2 because a user could simply input cells and overwrite the IF formula. What I would like is to have a code that would say if D1 = OR("Formula1","Formula2") then retrieve the value in another cell (let's say D10) and insert it into D2. Row "10" is where I would have my IF formula. Hope that makes sense!

Thanks,

Jesse

 

[happyhungarian]

There are obviously issues with this code but I was thinking of something along these lines:



Private Sub Worksheet_Change(ByVal Target As Range)


If Not Intersect(Target, Range("F3")) Is Nothing Then
If ActiveSheet.Range("F3").Value <> "Given Values" Then
Range("F77").Formula = Range("F16").Formula
End If
End Sub


It's basically saying that if the value in F3 changes and the new value does not equal "Given Values" then copy the exact formula that's in cell F77 and place it into cell F16