DUVIDA LISTBOX
Olá pessoal, sou iniciante e gostaria da ajuda de vocês, pois, até agora, depois de 3 dias pesquisando sobre o assunto não cheguei a minha resposta esperada.
Tenho uma planilha, que contem varias informações, e gostaria que, ao abrir minha listbox, após selecionar uma opção da listbox, localizar qual o valor atual correspondente aquela opção selecionada que está na Coluna [Ô]D[Ô] e após eu colocar o valor na txtbox ele somar esse valor e substituir o valor anterior pela soma adquirida.
Agradeço muito se for possÃvel me ajudar.
Tenho uma planilha, que contem varias informações, e gostaria que, ao abrir minha listbox, após selecionar uma opção da listbox, localizar qual o valor atual correspondente aquela opção selecionada que está na Coluna [Ô]D[Ô] e após eu colocar o valor na txtbox ele somar esse valor e substituir o valor anterior pela soma adquirida.
Agradeço muito se for possÃvel me ajudar.
Não sei se entendi bem, mas pelo que entendi, vc pode tranquilamente usar a função PROCV do próprio Excel...
Eu realmente queria umas aulas, porem moro um Campina Grande - PB.
Esta planilha usa useforms. Nas apostilas que tenho nenhuma falou em PROCV, vou dar um pequisada.
Esta planilha usa useforms. Nas apostilas que tenho nenhuma falou em PROCV, vou dar um pequisada.
PROCV é uma fórmula do excel...
De uma olha no arquivo que enviei para o nosso amigo FBONETTI
segue link:
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=380301&varWorld=
O arquivo Faz referencia com TEXTBOX mais para você usar o LISTBOX faça assim
segue link:
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=380301&varWorld=
O arquivo Faz referencia com TEXTBOX mais para você usar o LISTBOX faça assim
Dim sValor As String
For i = 0 to LIST1.LISTCOUNT -1
If (LIST1.Selected(i) = True) then
sValor = LIST1.LIST(i)
[ô]Aqui você chama a pesquisa que esta no projeto
End If
Next
Citação::
De uma olha no arquivo que enviei para o nosso amigo FBONETTI
segue link:
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=380301&varWorld=
O arquivo Faz referencia com TEXTBOX mais para você usar o LISTBOX faça assim
Dim sValor As String
For i = 0 to LIST1.LISTCOUNT -1
If (LIST1.Selected(i) = True) then
sValor = LIST1.LIST(i)
[ô]Aqui você chama a pesquisa que esta no projeto
End If
Next
Muito boa sua dica, vou ver se consigo resolver aqui. Obrigado.
Tópico encerrado , respostas não são mais permitidas