Notifications
Clear all

Problema caixa BOX VBA

3 Posts
2 Usuários
0 Reactions
960 Visualizações
(@scainet)
Posts: 33
Eminent Member
Topic starter
 

Boa tarde,

Eu achei uma planilha na internet e estou adaptando ela às minhas necessidades.
Porém, depois de fazer algumas alterações, duas caixas BOX pararam de funcionar.
É possível selecionar o conteúdo que deseja tanto na tela de cadastro como na de gerenciar, porém ao salvar ela deixa em branco.

É a box_est e a box_uf1
No caso a box_est seria para colocar "SIM" ou "Não" no campo Taxi Dog.
E a box_uf1 seria para por a raça do animal.

Segue a planilha em anexo.
Se alguém puder me ajudar a encontrar o erro que cometi ao editar ela.
Dentro do .rar também está a planilha original, onde está funcionando todos as caixas Box.

 
Postado : 24/09/2015 11:43 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

O erro está na rotina --> Private Sub btn_cad_Click()
linhas:
Cells(cont, 7) = txt_uf1 --> aqui o nome e box_uf1
Cells(cont, 8) = txt_est --> aqui o nome e box_ext

altere e veja se atende

Cells(cont, 7) = box_uf1
Cells(cont, 8) = box_est

Obs.: Nesta Rotina Também --> Private Sub btn_edit_Click()

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

 
Postado : 24/09/2015 1:39 pm
(@scainet)
Posts: 33
Eminent Member
Topic starter
 

Nossa, era isso mesmo. Resolveu perfeitamente
É duro procurar algo sem saber o que está procurando kkkkk

Muito Obrigado Reinaldo.

O erro está na rotina --> Private Sub btn_cad_Click()
linhas:
Cells(cont, 7) = txt_uf1 --> aqui o nome e box_uf1
Cells(cont, 8) = txt_est --> aqui o nome e box_ext

altere e veja se atende

Cells(cont, 7) = box_uf1
Cells(cont, 8) = box_est

Obs.: Nesta Rotina Também --> Private Sub btn_edit_Click()

 
Postado : 24/09/2015 1:44 pm