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.