Notifications
Clear all

Ajuda configurando form

12 Posts
2 Usuários
0 Reactions
1,301 Visualizações
(@kviiz)
Posts: 6
Active Member
Topic starter
 

Estou com um problema para configurar o Form no excel, pra ser sincero eu não sei direito como se faz, estou aprendendo agora mas preciso fazer esse projeto pro meu chefe. Caso alguem tenha um tempo ai e possa me ajudar, segue a baixo o link para download do projeto.

http://www.crocko.com/DB997DC873FE41429C7DAFE7EA625C3E/CadastroClientes.xls

 
Postado : 17/04/2013 7:28 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendi o que considera "Configurar".
Qual ou quais são os (mais especificamente) problemas?

 
Postado : 17/04/2013 8:04 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Poste seu arquivo compactado!!

Att

 
Postado : 17/04/2013 9:25 am
(@kviiz)
Posts: 6
Active Member
Topic starter
 

Bom, tem alguns box que não sei configurar para salvar na tabela e tal. Abaixo está o arquivo compactado, agradeço a ajuda.

http://www.4shared.com/rar/s8BLtpca/Cad ... entes.html?

 
Postado : 18/04/2013 10:03 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Segue com alterações

 
Postado : 18/04/2013 11:44 am
(@kviiz)
Posts: 6
Active Member
Topic starter
 

Obrigado Reinaldo, agradeço demais. Mas eu não sei se é pedir muito mas na hora que você poe pra Pesquisar, os campos "Seção", "Bairro" e "natural de" não puxa os dados da tabela e o botão "Excluir" não funciona por causa da váriavel, caso você tenha um tempo e possa me ajudar tudo bem mas caso for muito incomodo eu ja agradeço desde já.

 
Postado : 18/04/2013 12:19 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Segue a rotina alterada, substitua

Private Sub cmdPequisar_Click()
Dim c As Variant
'Verificar se foi digitado um nome na primeira caixa de texto
If txtTitulo.Text = "" Then
    MsgBox "Natural de"
    txtTitulo.SetFocus
    GoTo Linha1
End If
With Worksheets("Dados Clientes").Range("A:A")
    Set c = .Find(txtTitulo.Text, LookIn:=xlValues, LookAt:=xlPart)
        If Not c Is Nothing Then
            c.Activate
            txtTitulo.Text = c.Value
            txtNome.Text = c.Offset(0, 1).Value
            txtEndereco.Text = c.Offset(0, 2).Value
            cboEstado.Text = c.Offset(0, 3).Value
            cboCidade.Text = c.Offset(0, 4).Value
            txtTelefone.Text = c.Offset(0, 5).Value
            txtEmail.Text = c.Offset(0, 6).Value
            txtNascimento.Text = c.Offset(0, 7).Value
            TxtSecao.Text = c.Offset(0, 10).Value
            TxtBairro.Text = c.Offset(0, 11).Value
            TxtNaturalde.Text = c.Offset(0, 12).Value
            
            'Carregando o botão de opção
            If c.Offset(0, 8) = "Masculino" Then
                OptionButton1.Value = True
            Else
                OptionButton2.Value = True
            End If
        Else
        MsgBox "Cliente não encontrado!"
        End If
End With
Linha1:
End Sub
 
Postado : 18/04/2013 12:29 pm
(@kviiz)
Posts: 6
Active Member
Topic starter
 

Obrigado Reinaldo, você me ajudou demais. Tive um outro pequeno problema agora, eu fui por esse projeto em outro computador mas quando eu abro ele, o botão "Pesquisar" que eu puis no programa não abre. Acho que eu preciso habilitar alguma coisa no excel, mas não sei oque, obrigado desde já.

 
Postado : 18/04/2013 1:22 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendi, o botão pesquisar não "abre" nada, ou é outra coisa??

 
Postado : 18/04/2013 1:25 pm
(@kviiz)
Posts: 6
Active Member
Topic starter
 

tipo, eu consigo abrir o programa normalmente mas quaondo clico no botão "Cadastrar" ele não reconhece, não abre a tela pra cadastrar e isso só ocorre nos outros computadores, aqui no meu esta tudo normal. É alguma coisa na configuração do Excel mas eu não sei oque é.

 
Postado : 19/04/2013 6:14 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Verifique o nivel de segurança dos outros equipamentos; tem que estar habilitado para macros.

 
Postado : 19/04/2013 7:36 am
(@kviiz)
Posts: 6
Active Member
Topic starter
 

Bom, irei modificar as configurações até dar certo. Obrigado Reinaldo, você me ajudou demais.

 
Postado : 19/04/2013 12:13 pm