0
respostas

[Projeto] Desafio do prompt

Assim ficou meu código final, já alimentando o prompt com os dados da linha em que houve o click:

Private Sub UserForm_Activate()

'declaração da variável "LinnhaSelecionada" como um número inteiro
Dim LinhaSelecionada As Integer

'Atribuindo o valor da linha selecionada à variável "LinhaSelecionada"
LinhaSelecionada = Selection.Row

'Mensagem ao usuário para verificar saber a linha que foi clicada
MsgBox "Linha selecionada: " & LinhaSelecionada

'Alimentando o formulário
txtAtivo = Cells(LinhaSelecionada, 1)
txtQuantidade = Cells(LinhaSelecionada, 2)
txtTipo = Cells(LinhaSelecionada, 3)
txtPreco = Cells(LinhaSelecionada, 4)
txtCliente = Cells(LinhaSelecionada, 5)
txtContatoMesa = Cells(LinhaSelecionada, 6)
txtData = Cells(LinhaSelecionada, 7)
txtHora = Cells(LinhaSelecionada, 8)
                    

End Sub