Can Not Pass Value from Textbox to Formula

[drmingle]

Userform: "PTadjustementForm"
Textbox: "PercentNeeded"

I need the value that I input into the form to register in the formula below. I am assuming I need to change the control source on initilizing the form (not exactly sure how to do that) and also creating the percent to be some sort of variable which could be dropped into the formula below (not exactly sure how to do this either)...

**Assume the value I entered into the textbox ("PercentNeeded") was 14%, I would need all the 10% in the formula below replaced:

Sub PT_Adjustment()
'
Application.ScreenUpdating = False
 
ActiveSheet.PivotTables("PivotTable1").CalculatedFields("base less impl hcd PT" _
        ).StandardFormula = "=Base_pay-(ImpLB1*0.10)-(DLB1*0.10)"
 
ActiveWorkbook.RefreshAll
 
Application.ScreenUpdating = True
End Sub

Thanks for any help

 

[CharlesChuckieCharles]

In a module in the "general declarations"

Public MyPercent As Double

in your textbox code

Private Sub PercentNeeded_Change()
If IsNumeric(Me.PercentNeeded.Value) Then
    
    MyPercent = Me.PercentNeeded.Value
    
    If MyPercent > 1 Then
        MyPercent = MyPercent / 100
    End If
    
End If
End Sub

This is how you would use it into your formula entry

"=Base_pay-(ImpLB1*" & MyPercent & ")-(DLB1*" & MyPercent & ")"
Note quoted blocks and concatenation char &

Sub PT_Adjustment()
'
Application.ScreenUpdating = False
 
ActiveSheet.PivotTables("PivotTable1").CalculatedFields("base less impl hcd PT" _
        ).StandardFormula = "=Base_pay-(ImpLB1*" & MyPercent & ")-(DLB1*" & MyPercent & ")"
 
ActiveWorkbook.RefreshAll
 
Application.ScreenUpdating = True
End Sub

 

[drmingle]

I couldn't be more pleased with this solution.

Thank you for solving this problem.