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