VBA loop through column A if has data then post formula in cells

[Goldenberrys1]

Hi I have the following code

Sub Consolidate_Data_Button3_Click()

For MY_ROWS = 7 To Range("A" & Rows.count).End(xlUp).Row
If Len(Range("A" & MY_ROWS).Value) <> Len(Replace(Range("A" & MY_ROWS).Value, "Example", "")) Then
Range("S" & MY_ROWS).Formula = "=Q" & MY_ROWS & "-R" & MY_ROWS & "*0.05"
Range("T" & MY_ROWS).Formula = "=Q" & MY_ROWS & "-R" & MY_ROWS & "-S" & MY_ROWS
End If
Next MY_ROWS
End Sub

For every row from A8 onwards if it has the value "Example" I want it to post the formula in columns S and T

Basically I do not want it to have to have a value of "Example" - instead if there is any value in that column I wish for it to do the formulas in S and T

Also in the Range S formula I want to put a bracket around the Q and R before it is multiplied by 0.05?

Any suggestions, thanks

 

[Goldenberrys1]

Solved

Sub Consolidate_Data_Button3_Click()

For MY_ROWS = 8 To Range("A" & Rows.count).End(xlUp).Row
If Len(Range("A" & MY_ROWS).Value) Then
Range("S" & MY_ROWS).Formula = ("=(Q" & MY_ROWS & "-R" & MY_ROWS & ")*0.05")
Range("T" & MY_ROWS).Formula = "=Q" & MY_ROWS & "-R" & MY_ROWS & "-S" & MY_ROWS
End If
Next MY_ROWS
End Sub

Thought I'd add