I have the below code that works:
Private Sub CommandButton1_Click()
Dim cell As Range
For Each cell In Range("I2:I2")
cell.Formula = Replace(cell.Formula, "100,", TextBox1.Value + ",")
cell.Formula = Replace(cell.Formula, "260000000000,", TextBox2.Value + ",")
Next cell
End Sub
But, I would...
Hi there, is there an quicker method to perform the following on 'ActiveSheet"?
Thank You
For Each cell In ActiveSheet.Range("h2:h" & lr)
cell.Formula = Replace(cell.Formula, "ACA", "ACA/52")
cell.Formula = Replace(cell.Formula, "ACB", "ACB/18")
cell.Formula = Replace(cell.Formula, "ACG"...
Below is a very basic extract from a large worksheet:
_________________A_____B__________________C_____D
1_EXPENSE______________JAN________________FEB___MAR
2_Salaries_______________100________________130__125
3_Benefits_______________120________________150__145
4_SALARIES &...