create macro

  • Thread starter Thread starter Todd
  • Start date Start date
T

Todd

Hi, I am trying to make a macro that looks into a range
of cells I select and adds to a forumla. I have worked
something up but it doesn't work. Can someone help?

Thanks,


Todd

I have:
=IF(Ds14>0,ROUND($E14*Ds14,0),"")

I want:
=IF(DS14="","",IF(DS14>0,ROUND($E14*DS14,0),""))

The macro I am working with is:
Sub ReplaceDataTEST()
Selection.Replace What:="IF(DR14>0", Replacement:="IF
(Ds14="","",IF(Ds14>0", LookAt:=xlPart
End Sub
 
pls try this, Konrad
questions welcowe mailto:[email protected]
Sub test_23()
On Error GoTo konrad
Dim a
a = InputBox("Type your Formula. ", "Test with formulas by
Konrad", "=RC[1]+RC[2]", 350, 350)

Select Case a
Case Is <> ""
Set myRange = Selection
MsgBox myRange.Cells.Count
For i = 1 To myRange.Cells.Count
myRange.Cells(i).Formula = a '###########your formula
Next i
Case ""
MsgBox "pls type your formula"
konrad:
MsgBox "Sorry an error occured, pls chack your formula."
End Select

End Sub
 
Back
Top