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
Leia as REGRAS
Utilize arquivos COMPACTADOS
PESQUISE
AGRADEÇA clicando na mãozinha ao lado da ferramenta citar.
Marque o tópico como [Resolvido], clicando no √ ao lado do botão citar.
Abraços,
Murilo L
------------
e-mail: [email protected]
skype: fareva_mlima
Postado : 22/05/2014 7:20 pm