Botão de confirmaçã...
 
Notifications
Clear all

Botão de confirmação não funciona com o item selecionado na listbox.  


Moroni
(@moroni)
New Member Registered
Entrou: 8 meses atrás
Posts: 3
Topic starter  

Bom dia a todos

Sou novato em VBA, estou montando um formulário que tem uma lisbtox (os dados vem da planilha ou aba "A").No formulário além da lisbtox, tem várias caixa de textos que recebem os dados vindos dessa planilha "A", até aqui tudo tranquilo, mas neste formulário tem alguns botões de opção (botão 10, botão 125 e botão 16), quando marco algum desses 3 botões aparece outro botão de confirmação. Quando clico no botão de confirmação, o resultado deveria ser, pegar o valor botão de opção marcado (se for o botão 10 = Ø 10, se botão 125 = Ø 12.5 e botão 16 = Ø 16) e copiar na planilha "A" na linha do item selecionado na listbox e numa determinada coluna da planilha "A".

Não estou conseguindo levar pro botão de confirmação o número da linha do item selecionado na listbox, para fazer a copia do valor do botão de opção para a célula deseja do item selecionado.

Acredito que seja simples, mas não consegui achar uma maneira de resolver esse problema.

Vou colocar parte da minha VBA

Private Sub lis_Sapatas_Det_Change()
carregar_dados = lis_Sapatas_Det.ListIndex 'cria variável pra vincular item com a listbox
Sheets("Detalhamento").Select 'seleciona a aba Detalhamento
Sheets("Detalhamento").Range("B7").Select 'seleciona a linha 7 da coluna B, aonde tem o primeiro dado
With Worksheets("Detalhamento").Range("B:B") 'começa da pesquisa na coluna B
Set C = .Find(lis_Sapatas_Det.List(carregar_dados, 0), LookIn:=xlValues, Lookat:=xlWhole)
If Not C Is Nothing Then
C.Activate
linha_base = ActiveCell.Row 'acha o número da linha da planilha do item selecionado na listbox
...continua até o End sub

Aqui é do botão de confirmação

Private Sub bot_Confirmar_Detalhamento_Click()
If bot_10 = True Then
Sheets("Detalhamento").Range("FO" & linha_base) = "Ø 10" ''aqui que da erro, a linha_base está vazia
ElseIf bot_125 = True Then
Sheets("Detalhamento").Range("FO" & linha_base) = "Ø 12.5"
ElseIf bot_16 = True Then
Sheets("Detalhamento").Range("FO" & linha_base) = "Ø 16"
..continua até o End if  e End sub

Se alguém puder me ajudar, fico muito agradecido.

Att.

 

Alexandre Moroni


Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.


ResponderCitar (Quote)
Anderson
(@anderson)
Estimable Member Registered
Entrou: 10 meses atrás
Posts: 157
 

O Canal EVBA no Youtube possui mais de 600 vídeos.



Private Sub bot_Confirmar_Detalhamento_Click()

linha_base = ActiveCell.Row 'acha o número da linha da planilha do item selecionado na listbox

If bot_10 = True Then

Sheets("Detalhamento").Range("FO" & linha_base) = "Ø 10" ''aqui que da erro, a linha_base está vazia

ElseIf bot_125 = True Then

Sheets("Detalhamento").Range("FO" & linha_base) = "Ø 12.5"

ElseIf bot_16 = True Then

Sheets("Detalhamento").Range("FO" & linha_base) = "Ø 16"


Este post foi modificado 2 meses atrás 2 vezes por Anderson

Em 90% dos casos em que não se anexa o arquivo, ocorrem mal-entendidos, gerando perda de tempo de ambos os lados.


ResponderCitar (Quote)