Notifications
Clear all

RETORNAR CHECKBOX MARCADO EM UM LISTBOX [VBA]

4 Posts
2 Usuários
0 Reactions
1,209 Visualizações
(@hegonc)
Posts: 3
New Member
Topic starter
 

Boa Tarde amigos..
sou novo na programação VBA, porem preciso de uma ajuda que nao consegui resolver mesmo pesquisando...

Duvida:
Possuo um listbox que no evento do duplo click ele retorna os campos preencidos como (textbox),
porem eu possuo varios checkboxs eles aparece gravados no listbox os marcados com 'sim' , e os que nao foram marcados com 'não',
como faço para quando eu der um duplo click na linha desejada do listbox ele retorne tambem os checkbox marcados?

OBRIGADO

 
Postado : 27/10/2012 10:57 am
(@hegonc)
Posts: 3
New Member
Topic starter
 

Segue em anexo o modelo de cadastro,
ele retorna os textbox preencHidos,
porem os checkboxs não,

alguem pode me ajudar?
preciso que quando der um duplo click em uma linha do listbox ele vennha preenchido o textbox (ja esta funcionando)m
mais tbm os checkbox

grato

 
Postado : 27/10/2012 8:09 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

hegon, se entendi corretamente, no Formulário "frmCadastro" altere conforme abaixo, é referente a somente um CheckBox, tem de construir para todos:

Private Sub CarregaRegistro()
'carrega os dados do primeiro registro
    With wsCadastro
        If Not IsEmpty(.Cells(indiceRegistro, colCargoDoContato)) Then
            Me.txtCodigoFornecedor.Text = .Cells(indiceRegistro, colCodigoDoFornecedor).Value
            Me.txtNomeEmpresa.Text = .Cells(indiceRegistro, colNomeDaEmpresa).Value
            Me.txtNomeContato.Text = .Cells(indiceRegistro, colNomeDoContato).Value
            Me.txtCargoContato.Text = .Cells(indiceRegistro, colCargoDoContato).Value
            Me.txtCidade.Text = .Cells(indiceRegistro, colCidade).Value
            Me.txtCEP.Text = .Cells(indiceRegistro, colCEP).Value
            Me.txtRegiao.Text = .Cells(indiceRegistro, colRegiao).Value
            
        
        'Retorna o Valor para o CheckBox referente a coluna "FLEXIVEL"
        If .Cells(indiceRegistro, chkDiscos).Value <> "SIM" Then
            Me.check_cano_mestre.Value = False
        Else
            Me.check_cano_mestre.Value = True
        End If
            
            
        End If
    End With

    Call AtualizaRegistroCorrente
End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/10/2012 7:09 am
(@hegonc)
Posts: 3
New Member
Topic starter
 

Obrigado Mauro! me ajudou mto

 
Postado : 28/10/2012 4:48 pm