MuhammadTawfiq
New Member
- Joined
- May 5, 2022
- Messages
- 6
- Office Version
- 365
- Platform
- Windows
Hmm, I'm not sure whether you have what you want or not. Reading your messages again, I'm wondering if you want a macro like this?Now you got it, I'm totally in your side, but this is old school someone still there.
Sub Make_Formulas()
Dim c As Range
For Each c In Range("A4:A7")
c.Offset(, 2).Formula = "=" & c.Value & "*$A$1"
Next c
End Sub
Cell Formulas | ||
---|---|---|
Range | Formula | |
C4 | C4 | =1400*$A$1 |
C5 | C5 | =1780*$A$1 |
C6 | C6 | =2350*$A$1 |
C7 | C7 | =2900*$A$1 |