Is it possible have a command button that adds more boxes with the code below the existing ones? The user form has 3 rows, but it needs to have the ability to add more, since the project can have 40 jobs.
User Form to create a budget.,
It contains the following boxes like on a row, one next to each other with the labels
"Job Title", "Hours", "Hour Rate", "Total Amount"
Job Title is a combo box an the others are Text box
The user picks the job title from the combo box and the Rate field is populated using the following
code:
Private Sub CommandButton1_Click()
Dim lookupm As Range
'Lookup values based on first control
Set lookupm = Range("BB:CC")
With Me
.URateV = Application.WorksheetFunction.Vlookup(Me.JobTV1, Worksheets("Job title PR ").Range("lookupm"), 2, 0)
End With
End Sub
User Form to create a budget.,
It contains the following boxes like on a row, one next to each other with the labels
"Job Title", "Hours", "Hour Rate", "Total Amount"
Job Title is a combo box an the others are Text box
The user picks the job title from the combo box and the Rate field is populated using the following
code:
Private Sub CommandButton1_Click()
Dim lookupm As Range
'Lookup values based on first control
Set lookupm = Range("BB:CC")
With Me
.URateV = Application.WorksheetFunction.Vlookup(Me.JobTV1, Worksheets("Job title PR ").Range("lookupm"), 2, 0)
End With
End Sub
