Rlb53
02-05-2012, 09:58 AM
I would like for the Number Format Displayed in the Textbox of the Userform to be in $. Could you assist please?
Private Sub CommandButton_ViewCurrentBaseCost_Click()
Sheets(UserForm6.ComboBox_Vendorlist.Value).Activate
With Range("a1:bb1")
Textbox_RPMPrevCost.Value = .Find(TextBox_RPM.Value).Offset(1, 0).Value
End With
With Range("a1:bb1")
TextBox_RailFeePrevCost.Value = .Find(TextBox_RailFee.Value).Offset(1, 0).Value
End With
With Range("a1:bb1")
TextBox_BargeFeePrevCost.Value = .Find(TextBox_BargeFee.Value).Offset(1, 0).Value
End With
End Sub
Thank you in Advance for your Time !
Private Sub CommandButton_ViewCurrentBaseCost_Click()
Sheets(UserForm6.ComboBox_Vendorlist.Value).Activate
With Range("a1:bb1")
Textbox_RPMPrevCost.Value = .Find(TextBox_RPM.Value).Offset(1, 0).Value
End With
With Range("a1:bb1")
TextBox_RailFeePrevCost.Value = .Find(TextBox_RailFee.Value).Offset(1, 0).Value
End With
With Range("a1:bb1")
TextBox_BargeFeePrevCost.Value = .Find(TextBox_BargeFee.Value).Offset(1, 0).Value
End With
End Sub
Thank you in Advance for your Time !