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.texttprice
A sample file would help understand better.
Thanks.
On Thu, Mar 27, 2014 at 8:28 PM, Tommy wrote:
> Hi,
>
> i am stuck on my project, an i am still a noob on VBA :P
>
> i have a userform with 4 textboxes and a combobox with 5 options that
> link each one to 5 sheets.
> Sheets (A,B,C,D and E)
Hi,
i am stuck on my project, an i am still a noob on VBA :P
i have a userform with 4 textboxes and a combobox with 5 options that link
each one to 5 sheets.
Sheets (A,B,C,D and E)
Combobox with options ( 1,2,3,4 and 5)
textboxes (textnorth, textsouth,textwest and texteast)
when i choose opti