Notifications
Clear all

salvar userform quando fechar o projeto

10 Posts
4 Usuários
0 Reactions
1,446 Visualizações
(@erenilton)
Posts: 0
New Member
Topic starter
 

ola boa tarde,

Estou montando umas planilhas para controle de hospedes de um hotel com 80 quartos, em cada quarto tem uma variável de quantidade de pessoas de 1 a 5, para o controle estou usando um userform como tela inicial e um botão para cada quarto e uma caixa de seleção com a quantidade de pessoas no quarto, por ex. no quarto 1 cabe 4 pessoas, se eu colocar 3 como numero de pessoas o botão fica verde(tem vaga) e se eu colocar 4 o botão fica vermelho(lotado), e ao clicar no botão abre uma outra userform que é a de cadastro do cliente e quando eu clico em cadastrar cliente os dados digitados ficam salvos em uma planilha que somente será acessada com senha do administrador. Esta bem do jeito que eu queria, funcional, mas tem um problema, quando eu fecho o arquivo os dados são apagados, tem como eu salvar tudo para quando eu abrir novamente continue do ponto que parou quando foi fechado, tipo os botões permanecerem da cor correspondente e os números selecionado anteriormente permanecerem?

 
Postado : 21/05/2014 12:20 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Esses dados ficam salvos em uma guia?

Use a pesquisa do fórum, temos dezenas de exemplos postado com assuntos desse tipo.

Também poste seu arquivo modelo!!

Att

 
Postado : 21/05/2014 12:30 pm
(@erenilton)
Posts: 0
New Member
Topic starter
 

ola, eu já pesquisei tudo mas nada como eu necessito.
como faço para carregar meu arquivo?

 
Postado : 21/05/2014 12:38 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Erenilton,

Boa Tarde!

Logo abaixo do campo de mensagens, existe uma aba chamada Adicionar um anexo. Compacte seu arquivo com ZIP antes de anexá-lo aqui. São as regras do fórum.

 
Postado : 21/05/2014 12:53 pm
(@erenilton)
Posts: 0
New Member
Topic starter
 

ola pessoal,

meu arquivo é muito grande para carregar aqui, se alguém querer me ajudar eu posso mandar por email.

obg.

 
Postado : 21/05/2014 1:10 pm
(@themrl16)
Posts: 60
Trusted Member
 

Boa tarde Erenilton!

Enviei para você, através de Mensagem Particular, meus 2 contatos de e-mail.

Abraços,

Murilo.

 
Postado : 21/05/2014 1:36 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

ola pessoal,
meu arquivo é muito grande para carregar aqui, se alguém querer me ajudar eu posso mandar por email.
obg.

Erenilton, deixe menos dados no arquivo deixando o arquivo menor e salve novamente e compacte com WinRar, WinZip e depois anexe.

[]s

 
Postado : 21/05/2014 1:53 pm
(@erenilton)
Posts: 0
New Member
Topic starter
 

ola amigos segue em anexo a planilha, muito grato pela ajuda
usuario= ere
senha =123

administrador= user
senha = user

 
Postado : 22/05/2014 8:57 am
(@themrl16)
Posts: 60
Trusted Member
 

Boa noite Erenilton!

Segue o upload do arquivo modificado: http://www.sendspace.com/file/jj1a0r

Como vc possuia muitas CommandButtons e TextBoxes, eu bolei uma forma de gerar e posicionar na tela todas automaticamente, bem como gerar os eventos On_Click e Change de cada objeto através de um módulo de classe. Os itens de cada ComboBox também estão sendo inseridos automaticamente (e não é necessário preencher linha a linha, da forma que vc estava fazendo na aba Camas... basta informar um único número (por ex, 5) abaixo do cabeçalho e quando a UserForm for criada a macro buscará o respectivo número de camas do quarto).

Observe que em alguns trechos das Subs, eu adicionei um ActiveWorkbook.Save (que é utilizado para salvar sua planilha sempre que a função for chamada... dessa forma, você evita a perda de dados quando clica em um CommandButton, cadastra um cliente, etc).

Eu verifiquei que vc possuía uma TextBox para cada quarto, mas no quarto 1 também tinha 1 combobox. Você estava modificando sua estrutura para combobox? De qualquer forma, eu criei tanto as Combos como TextBoxes, porém programei a listagem e a modificação da cor de fundo apenas para os Combos... se houver a necessidade de remover alguma coisa é só me informar.

Como são muitos detalhes, solicito para que vc dê uma olhada no novo arquivo, onde eu deixei mais alguns comentários referentes as modificações, e se surgirem dúvidas basta responder no fórum ou no e-mail mesmo.

Abraços,

Murilo

 
Postado : 22/05/2014 7:20 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Erenilton,

Apesar de você já ter uma solução apresentada para avaliar, veja outra sugestão de atendimento à sua demanda, que respondi no outro tópico (sobre o mesmo assunto) aberto por você.
viewtopic.php?f=10&t=11775&p=62062#p62062

 
Postado : 23/05/2014 5:01 am