Ola Pessoal, mais uma vez, peço a ajuda e compreensão de todos.
Estou com um Cadastro (FormCadastro)
Neste FormCad fiz com que quando aciono se for Homem, mulher ou idoso, ele salva em uma planilha diferente.
Desta forma meu Cadastro Original esta somente aparecendo a Planilha Inicial, então a pergunta é a seguinte:
como posso fazer com que no Unico Cadastro apareça 3 planilhas (PlanHomem, PlanMulher, PlanIdoso), pois meu cadastro tem a opção de andar por todos os registros e cada nome preenche todos os dados gravados.
Private Sub UserForm_Initialize()
novo = False
alterar = False
excluir = False
Set wsClientes = ThisWorkbook.Worksheets("CadHomem")
Call HabilitaBotoesAlteracao
Call carregaDados
Call DesabilitaControles
With Me.Cbo_designacao
.AddItem ("Homem")
.AddItem ("Mulher")
.AddItem ("Idoso")
End With
Private Sub carregaDados()
indiceRegistro = 2
Call CarregaRegistro
End Sub
Private Sub CarregaRegistro()
'carrega os dados do primeiro registro
With wsClientes
If Not IsEmpty(.Cells(indiceRegistro, coldatainscricao)) Then
Me.Txt_ncadastro.Text = .Cells(indiceRegistro, colNº).Value
Me.Txt_datainscricao.Text = .Cells(indiceRegistro, coldatainscricao).Value
Me.Txt_nomecompleto = .Cells(indiceRegistro, colnomecompleto).Value
Me.Txt_nomeabreviado = .Cells(indiceRegistro, colnomeabreviado).Value
Me.Txt_rgrne = .Cells(indiceRegistro, colrgrne).Value
Me.Txt_cpf = .Cells(indiceRegistro, colcpf).Value
Me.Txt_endereco = .Cells(indiceRegistro, colEndereco).Value
Me.Cbo_bairro = .Cells(indiceRegistro, colbairro).Value
Me.Cbo_estado = .Cells(indiceRegistro, colestado).Value
Me.Cbo_cep = .Cells(indiceRegistro, colcep).Value
Me.Txt_Telef = .Cells(indiceRegistro, colTelefone).Value
Me.Txt_celular = .Cells(indiceRegistro, colcelular).Value
Me.Txt_email = .Cells(indiceRegistro, colEmail).Value
Me.Cbo_municipio = .Cells(indiceRegistro, colmunicipio).Value
Me.Txt_Observacoes = .Cells(indiceRegistro, colObservacoes).Value
End If
End With
Call AtualizaRegistroAtual
End Sub
Private Sub AtualizaRegistroAtual()
LblRegistro.Caption = indiceRegistro - 2 & " de " & wsClientes.UsedRange.Rows.Count - 2
'lblMensagem.Caption = ""
End Sub
OBRIGADO POR ENQUANTO ESTA É MINHA DÚVIDA
Beto filmes
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 19/03/2011 8:57 am