Transferir Informação do Botão de Opção para uma célula

2024 - VBA & Macros

Post Recente por RRehder 8 anos atrás

4 Posts

3 Usuários

0 Reactions

731 Visualizações

RSS

RRehder

(@rrehder)

Posts: 3

New Member

Topic starter

Boa tarde

Não sou muito bom em VBA, e por isso venho perguntar para quem entende.

Criei um formulario, onde faço cadastro de contatos.
No formulario coloquei um Frame com 3 botões de opção: ATIVO, INATIVO e BLOQUEADO.

Quando carrego o formulario, eu consigo "puxar' a informação da celula onde defino se aquele cadastro é ATIVO, etc.

Meu problema está quando vou editar um contato: se altero este STATUS, como fazer esta informação ser carregada na celula?

O botão de gravar dados aciona macro de atualizar dados, e o meu codigo ficou assim:

Sub atualizadados()

Dim id1 As Integer
Dim linha As Integer
Dim ativo1 As String

On Error Resume Next
id1 = ID_F_INI
'data = txt_data
contrato = txt_contrato

linha = ActiveCell.Row 'captura na variável o valor da linha atual

With Plan18
'.Cells(linha, 1) = id

.Cells(linha, 1) = ID_F_INI
.Cells(linha, 2) = TextBox1
.Cells(linha, 3) = TextBox2
.Cells(linha, 4) = TextBox3
.Cells(linha, 5) = TextBox4
.Cells(linha, 6) = TextBox5
.Cells(linha, 7) = TextBox6
.Cells(linha, 8) = TextBox7
.Cells(linha, 9) = TextBox8
.Cells(linha, 10) = TextBox9
.Cells(linha, 11) = TextBox10
.Cells(linha, 12) = TextBox11
.Cells(linha, 13) = TextBox12
.Cells(linha, 14) = TextBox13
.Cells(linha, 15) = TextBox14
.Cells(linha, 16) = TextBox15
.Cells(linha, 17) = TextBox16
.Cells(linha, 18) = TextBox17
.Cells(linha, 19) = TextBox18
.Cells(linha, 20) = TextBox20
.Cells(linha, 22) = Combo_contrato

''AQUI COMEÇARIA A FUNÇÃO PARA TRANSFERIR O VALOR DO OPTIONBUTTON PARA A CELULA
ESSE SELECT CASE SEI QUE ESTÀ ERRADO

'Select Case ativo1
        
'        Case Is = "ATIVO"
'        OptAtivo.Value = True
'        OptInativo.Value = False
'        OptBloq.Value = False
        
'        Case Is = "INATIVO"
'        OptAtivo.Value = False
'        OptInativo.Value = True
'        OptBloq.Value = False
        
'        Case Is = "BLOQUEADO"
'        OptAtivo.Value = False
'        OptInativo.Value = False
'        OptBloq.Value = True
        
'        End Select
        Exit Sub
End With
End Sub

Este final do codigo (Select Case) não tem nada a ver. Era uma ideia para tentar transferir o valor do OptionButton para a celula.

Se alguem tiver alguma ideia, agradeço!

REHDER

Postado : 28/04/2017 12:22 pm

leandroxtr

(@leandroxtr)

Posts: 447

Reputable Member

Boa tarde, meu caro!

Crie uma condição.

If optAtivo = true then
Range("célula").value = optAtivo.value
else if optInativo = true then
Range("célula").value = optInativo.value
else if optBloq = true then
Range("célula").value = optBloq.value
end if

Isso aí já resolve o que precisa!

Um abraço!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

Postado : 28/04/2017 2:26 pm