macro to add markup

[SHBeck]

I am looking for some help to build a macro that will add a variable % of markup to all numbers in column D, the variable % is = Textbox2 input. Thank you

 

[temens]

Below is some code that I placed in the TextBox2 "LostFocus" event. It will only execute the macro once you leave or de-select the text box.

If TextBox2.Value <> "" Then
    For Each c In Worksheets("Sheet1").Range("D2:D100")
        If c <> "" Then
        CountRow = c.Row
        c = c * (1 + (TextBox2.Value / 100))
        Worksheets("Sheet1").Cells(CountRow, 4).Value = c
        End If
    Next c
End If

This will mark-up the values in column D. If you want to retain the original values and show the marked-up value in the adjacent column, you should change (CountRow,4) to (CountRow,5) in the above code.

Let me know if this works for you. It worked great in my test sheet.

 

[LloydFinancials]

You can use this in your textbox module to calculate on "Enter" or box exit.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)    If KeyCode = vbKeyReturn Then
        Worksheets("Sheet1").Range("a1").Activate
    End If
End Sub