Notifications
Clear all

QUANDO CARREGA O REGISTRO SOMENTE APARECE UMA PLANILHA

8 Posts
1 Usuários
0 Reactions
2,646 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bet, ficou um pouco confuso sua explicação, mas pelo que entendi, conforme sua escolha no combo (Cbo_designacao = Homem, Mulher ou Idoso) você quer carregar os dados da Aba respectiva.
Se for isto, você precisa definir Variáveis a estas Abas e adicionar condições (IFs) com a condição SET, e para isto dependeria de saber exatamente como está montado seu aplicativo, então sugiro antes dar uma olhada no link abaixo, onde mostro uma idéia de como utilizar estas instruções, e precisamos ter em mente o conceito referente a Pasta e Planilha (Workbook, Worksheet,...), e tambem alguns links do site do Júlio Battisti com explicações alem de ser um ótimo curso gratuito em VBA.

De uma olhada e qq coisa retorne.

[]s

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

 
Postado : 19/03/2011 10:27 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Beto, ficou um pouco confuso sua explicação, mas pelo que entendi, conforme sua escolha no combo (Cbo_designacao = Homem, Mulher ou Idoso) você quer carregar os dados da Aba respectiva.
Se for isto, você precisa definir Variáveis a estas Abas e adicionar condições (IFs) com a condição SET, e para isto dependeria de saber exatamente como está montado seu aplicativo, então sugiro antes dar uma olhada no link abaixo, onde mostro uma idéia de como utilizar estas instruções, e precisamos ter em mente o conceito referente a Pasta e Planilha (Workbook, Worksheet,...), e tambem alguns links do site do Júlio Battisti com explicações alem de ser um ótimo curso gratuito em VBA.

De uma olhada e qq coisa retorne.
http://www.tomasvasquez.com.br/forum/vi ... f=16&t=595

[]s

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

 
Postado : 21/03/2011 7:41 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola Mauro Coutinho

Fiz um teste, se eu troco CadHomem por CadMulher ( ele aceita e aparece as mulheres da Plan2, se coloco no lugar da CadMulher - CadIdoso me aparece todos os idosos da Plan3.

A Pergunta é:

COmo escrevo o codigo: Set wsClientes = ThisWorkbook.Worksheets("CadHomem":"CadMulher":"CadIdoso") - Fazendo que ele aceite a codificação, tenho certeza se acertar esta linha resolvo a minha dúvida.

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

End Sub
Private Sub carregaDados()
indiceRegistro = 2
Call CarregaRegistro
End Sub

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

 
Postado : 22/03/2011 6:42 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

beto, como eu disse acima "dependeria de saber exatamente como está montado seu aplicativo", verifiquei agora que os links que recomendei do Julio Battistine estão fora do ar, não sei se chegou a le-los, la explica o conceito referente a trabalharmos e referenciar os Objetos - Pasta e Planilha (Workbook, Worksheet).

Pelo visto está utilizando uma Pasta com mais de uma ABA(Sheets), teríamos outras formas de se lidar com isso, uma delas, seria definirmos as constantes (Variáveis) para os nomes das Abas e depois associarmos ao valor selecionado no combobox (Homem, Mulher, Idoso) e atrelarmos os mesmos à suas respectivas Sheets.
Da maneira que postou não tem como referenciar mais de uma em um instrução somente, teríamos de ter tres(03)

Set wsCadHomem = ThisWorkbook.Worksheets("CadHomem")
Set wsCadMulher = ThisWorkbook.Worksheets("CadMulher")
Set wsCadIdoso = ThisWorkbook.Worksheets("CadIdoso")

E depois efetuar as adaptações na rotina (CarregaRegistro) e outras.

[]s

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

 
Postado : 22/03/2011 7:15 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola Mauro,
realmente esta fora do ar.
será que youtube tem?

Bom, irei fazer o seguinte ,testarei.
mas descobri uma coisa que tenho de fazer

meu vba - somente coloquei uma ws e dei nome de wscliente

neste caso primeiro necessito criar mais 2 ws, ou seja tenho de criar wsHomem, wsMulher e wsIdoso.

depois começar a vincular todo o projeto.
irei começar por aí
depois verei resultado. Caso autorize posso enviar copia projeto para você "dar uma analisadinha"

Fico Grato

Obrigado

Beto filmes

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

 
Postado : 23/03/2011 6:01 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola Mauro já fiz as alterações deu certo.
Tem somente um detalhe simples depois posto com a planilha
Mais tarde posto a planilha com as alterações para seu conehcimento

Obrigado

Beto filmes

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

 
Postado : 23/03/2011 6:28 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Beto, você pode ver o curso completo de 120 lições no link abaixo :

http://pt.scribd.com/doc/29296877/Julio ... sbloqueado

Quanto a enviar o arquivo, não precisa de minha autorização para postar seu modelo, é só anexa-lo aqui mesmo no Forum, assim outros participantes poderão analizar e dar sua contribuição.

[]s

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

 
Postado : 23/03/2011 6:05 pm