de acordo com seu modelo a formula utilizada na planilha é
ÍNDICE('Lista de Produtos'!H10:$K$1048576;CORRESP('Cadastro de Vendas'!$B$9;'Lista de Produtos'!A10:$A$1048576;0);CORRESP('Cadastro de Vendas'!B17;'Lista de Produtos'!$H$9:$K$9;0))
onde:
'Cadastro de Vendas'!$B$9 -->Determina o produto e 'Lista de Produtos'!A10:$A$1048576 --> Determina a range com os produtos, corresp retorna então a linha desse produto
'Cadastro de Vendas'!B17-->Determina o Valor e 'Lista de Produtos'!$H$9:$K$9 -->Determina a range com os valores, corresp retorna então a linha desse produto
e Indice retorna a intersecção dessa linha X coluna.
Assim na folha de código de seu formulário cole a rotina abaixo e teste
Private Sub TipoComissaoComboBox_Change()
'determina em que linha está o produto
nRow = Application.Match(ProdutoComboBox.Value, Sheets("Lista de Produtos").Range("A1:A1048576"), 0)
'Determina a coluna da comissão tipo
nCol = Application.Match(TipoComissaoComboBox.Value, Sheets("Lista de Produtos").Range("A9:k9"), 0)
'Determina o valor (linhaXColuna)
ValorUnitario.Text = Format(Sheets("Lista de Produtos").Cells(nRow, nCol).Value, "#.00")
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 27/08/2016 7:38 pm