To move to the correct sheet, after each Case " "
You need to add the following command:
Example
Case "material"
ActiveWorkbook.Sheets("material").Activate
Case "worklabor"
ActiveWorkbook.Sheets("worklabor").Activate
Case "Equipments"
ActiveWorkbook.Sheets("Equipments").Activate
2014-03-29 2
try this
Private Sub cboDM_Click()
Dim wk As Worksheet
Dim i As Long
Set wk = ThisWorkbook.Sheets(Me.cboTM.Value)
i = Application.WorksheetFunction.Match(Me.cboDM.Value, wk.Range("b:b"), 0)
Me.textmeasure = wk.Range("c" & i)
Me.textQuant = wk.Range("d" & i)
Me.textprice = wk.Range("e" & i)
Me.t
