Este fórum está sendo desativado

[gilsonBarreto]

Comecei a usar o VBA a pouco tempo e queria saber se alguém pode me ajudar com uma atividade. Eu quero fazer um formulário, onde quando o usuário escolher um sabor de bolo o valor unitário, do bolo escolhido, apareça automaticamente na caixa de texto do campo preço.



O código do VBA está assim

Private Sub btnSalvar_Click()

linhaCadastro = Range(“A1”).End(xlDown).Row + 1

Cells(linhaCadastro, 1) = caixaTxtNotaFiscal.Value
Cells(linhaCadastro, 2) = caixaTxtCidade.Value
Cells(linhaCadastro, 3) = caixaTxtData.Value
Cells(linhaCadastro, 4) = CaixaCombinacao_Produto.Value
Cells(linhaCadastro, 5) = caixaTxtPreco.Value
Cells(linhaCadastro, 6) = caixaTxtQuantidade.Value
Cells(linhaCadastro, 7) = caixaTxtTotal.Value

End Sub
_________________________________________________________________
Private Sub btnCancelar_Click()

Unload Registro_Vendas

End Sub
___________________________________________________________________
Private Sub caixaTxtQuantidade_AfterUpdate()

valorPreco = caixaTxtPreco.Value
valorQtd = caixaTxtQuantidade.Value
resultadoMultiplicacao = valorPreco * valorQtd

caixaTxtTotal = resultadoMultiplicacao

End Sub
___________________________________________________________________
Private Sub UserForm_Click()

End Sub
___________________________________________________________________
Private Sub UserForm_Initialize()

ultimaLinha = Sheets(“Dados”).Range(“A1”).End(xlDown).Row
valorCidade = Sheets(“Dados”).Range(“D2”).Value

CaixaCombinacao_Produto.RowSource = “Dados!A2:A” & ultimaLinha
caixaTxtCidade = valorCidade
caixaTxtData = Date

End Sub

[AfonsoMira]

Boas!

Seria possível disponibilizar o ficheiro em anexo para poder ajudar melhor?

Obrigado.

[AfonsoMira]

No envento change da CaixaCombinacao_Produto insira o seguinte código:

Código: Selecionar todos

    linha = WorksheetFunction.Match(CaixaCombinacao_Produto.Value, Sheets("Dados").Range("A1:A20"), 0)
    preco = Sheets("Dados").Cells(linha, 2).Value
    caixaTxtPreco.Value = preco