Notifications
Clear all

Cadastro VBA com critérios

7 Posts
4 Usuários
0 Reactions
1,310 Visualizações
(@bymauricio)
Posts: 0
New Member
Topic starter
 

loguin:admin, senha:admin123
Olá,
estou encaminhando a panilha e o objetivo é o seguinte:
acessar o MENU que se encontra na Introdução e na aba "acrescentar" e "vacas" abrir um userform para cadastro dos animais. No entanto gostaria que ao fazer cadastro desdes animais, eles fossem direcionados para suas respectivas planilhas de acordo com o criterio de idade dos animais (até 12m, 13 a 24m, 25 a 36m e +36m), porém não tenho idéia de como fazer este código.

Outra dúvida seria o caso da pesquisa dos animais para não necessitar ir em cada planilha e descobrir onde se encontra cada um, queria saber como faz para promover uma pesquisa igual tem no MENU e na aba "vacas"e "até 12m". Porém gostaria que a pesquisa fosse realizada em todas as planilhas (até 12m, 13 a 24m, 25 a 36m e +36m) sem precisar ir em cada uma pra realizar a pesquisa dos animais.
Planilha:
http://www.4shared.com/rar/ymRGENkdce/CONTROLFAZ.html
agradeço se puder ajudar

 
Postado : 20/11/2016 7:11 pm
(@djunqueira)
Posts: 0
New Member
 

Vc poderia usar Nova Consulta p/ isso q vc quer, mas p/ tanto vc deve possuir uma versão do Excel igual ou superior a 2010.

Outra coisa, p/ q mais pessoas tenham acesso a sua planilha seria interessante vc disponibiliza-la compactada pelo algoritmo .zip, q é nativo no Windows, bastando p/ isso clicar com o botão direito no arquivo e depois selecionar Enviar para / Pasta Compactada.

Muitas pessoas não se dão conta de q o Windows pode fazer compactação de arquivos e instalam o Winrar sem realmente necessitar.

 
Postado : 20/11/2016 9:22 pm
(@mprudencio)
Posts: 0
New Member
 

Pq nao faz um cadastro unico e cria uma consulta para verificar os animais de acordo com os criterios que vc deseja.

Dividir os dados em varias abas alem de dificultar o registro dificulta relatorios e consultas.

 
Postado : 21/11/2016 5:26 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia,

Não sei se entendi corretamente e estou falando mais do mesmo. Mas parece que o tal formulário de CADASTRO que você deseja ainda não criou correto ?

Se eu tiver entendido corretamente basta você usar IF's para condicionar os cadastros a ir para a planilha respectiva. Mas seria bom já criar o tal formulário para cadastro, isso facilita para te ajudar.

Exemplo:

Dim idade as integer
idade= txtIDD 

If idade<= 12 then
Sheets("até 12m").Activate
Range("B2").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = txtIDD.Value


elseIf idade > 12 and idade <= 24 then
Sheets("13 a 24m").Activate
Range("B2").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = txtIDD.Value

' e assim por diante.... Coloque as demais condições

end if

Espero ter ajudado.

[]'s

 
Postado : 21/11/2016 9:01 am
(@bymauricio)
Posts: 0
New Member
Topic starter
 

tem como fazer uma planilha com todos os dados juntos e depois ela distribuir os dados em outras planilhas de acordo com seus respectivos critérios?

 
Postado : 21/11/2016 11:24 am
(@mprudencio)
Posts: 0
New Member
 

tem como fazer uma planilha com todos os dados juntos e depois ela distribuir os dados em outras planilhas de acordo com seus respectivos critérios?

Sim e é o melhor jeito de fazer, sendo que nao precisa deixar separado, vc pode separar uma de cada vez ou todas de uma vez é so fazer a programação correta.

 
Postado : 21/11/2016 3:13 pm
(@bymauricio)
Posts: 0
New Member
Topic starter
 

Sim e é o melhor jeito de fazer, sendo que nao precisa deixar separado, vc pode separar uma de cada vez ou todas de uma vez é so fazer a programação correta.

Como posso fazer isso? Sou novo em questão de excel... tem como explicar por aqui ou é muito extenso?
-É pq eu tenho que ter a divisão dos animais por categoria tb pra ter mais dados sobre cada categoria de animal

 
Postado : 21/11/2016 3:57 pm