EDICAO DE TABELA EM VBA
Saudações a todos, sou novo aqui no fórum e em programação VBA, por isto venho recorrer humildemente a quem possa me ajudar.
Criei um cadastro de clientes bem simples, com nome, tel, end etc, está funcionando belezinha, porém encontrei duas dificuldades:
1º- Não consigo editar nenhum cliente, quando mudo algum item do registro sempre é criado um novo cadastro. Gostaria de ajuda para criar um botão EDIT com script para mudar qualquer dado da tabela de registro.
2º- Quando tem registros de pessoas com o mesmo nome a pesquisa me retorna somente o primeiro registro. Gostaria de poder listar todos os clientes com nomes iguais e então só depois poder selecionar o que eu realmente quero.
Desde já muito obrigado
Fiquem com Deus.
Criei um cadastro de clientes bem simples, com nome, tel, end etc, está funcionando belezinha, porém encontrei duas dificuldades:
1º- Não consigo editar nenhum cliente, quando mudo algum item do registro sempre é criado um novo cadastro. Gostaria de ajuda para criar um botão EDIT com script para mudar qualquer dado da tabela de registro.
2º- Quando tem registros de pessoas com o mesmo nome a pesquisa me retorna somente o primeiro registro. Gostaria de poder listar todos os clientes com nomes iguais e então só depois poder selecionar o que eu realmente quero.
Desde já muito obrigado
Fiquem com Deus.
VBA, mas em qual aplicativo você está desenvolvendo Excel ou Access?
Posta parte do seu código ou até mesmo seu arquivo pra gente dar uma olhada.
Abraço
Posta parte do seu código ou até mesmo seu arquivo pra gente dar uma olhada.
Abraço
Saudações meu amigo.
Estou usando VBA no excel.
Segue parte do código, [Ô]botão gravar[Ô].
Private Sub CommandButton1_Click()
[ô]Ativar a primeira planilha
ThisWorkbook.Worksheets([Ô]Dados[Ô]).Activate
[ô]Selecionar a célula A3
Range([Ô]A3[Ô]).Select
[ô]Procurar a primeira célula vazia
Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
[ô]Carregar os dados digitados nas caixas de texto para a planilha
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = CPF.Value
ActiveCell.Offset(0, 2).Value = TextBox4.Value
ActiveCell.Offset(0, 3).Value = TextBox3.Value
ActiveCell.Offset(0, 4).Value = Bairro.Value
ActiveCell.Offset(0, 5).Value = TextBox6.Value
ActiveCell.Offset(0, 6).Value = TextBox7.Value
ActiveCell.Offset(0, 7).Value = TextBox8.Value
ActiveCell.Offset(0, 8).Value = TextBox9.Value
ActiveCell.Offset(0, 9).Value = TextBox10.Value
ActiveCell.Offset(0, 10).Value = TextBox12.Value
ActiveCell.Offset(0, 11).Value = TextBox11.Value
ActiveCell.Offset(0, 12).Value = TextBox13.Value
ActiveCell.Offset(0, 13).Value = Veloc.Value
ActiveCell.Offset(0, 14).Value = TextBox14.Value
Desde já Obrigado.
Estou usando VBA no excel.
Segue parte do código, [Ô]botão gravar[Ô].
Private Sub CommandButton1_Click()
[ô]Ativar a primeira planilha
ThisWorkbook.Worksheets([Ô]Dados[Ô]).Activate
[ô]Selecionar a célula A3
Range([Ô]A3[Ô]).Select
[ô]Procurar a primeira célula vazia
Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
[ô]Carregar os dados digitados nas caixas de texto para a planilha
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = CPF.Value
ActiveCell.Offset(0, 2).Value = TextBox4.Value
ActiveCell.Offset(0, 3).Value = TextBox3.Value
ActiveCell.Offset(0, 4).Value = Bairro.Value
ActiveCell.Offset(0, 5).Value = TextBox6.Value
ActiveCell.Offset(0, 6).Value = TextBox7.Value
ActiveCell.Offset(0, 7).Value = TextBox8.Value
ActiveCell.Offset(0, 8).Value = TextBox9.Value
ActiveCell.Offset(0, 9).Value = TextBox10.Value
ActiveCell.Offset(0, 10).Value = TextBox12.Value
ActiveCell.Offset(0, 11).Value = TextBox11.Value
ActiveCell.Offset(0, 12).Value = TextBox13.Value
ActiveCell.Offset(0, 13).Value = Veloc.Value
ActiveCell.Offset(0, 14).Value = TextBox14.Value
Desde já Obrigado.
Para alterar vc primeiro tem que encontrar a linha que deseja alterar e substituir, não dá pra utilizar esse mesmo código sem adaptações, é necessario que vc crie uma pesquisa com alguma campo que sirva como chave primária ou seja não se duplique na coluna tipo o CPF.
Se possivel me manda um e-mail que eu dou uma olhada.
fabio.mitsueda@kof.com.mx
Abraço
Se possivel me manda um e-mail que eu dou uma olhada.
fabio.mitsueda@kof.com.mx
Abraço
Veja um exemplo simples de cadastro,
Considerando que o nome não pode se repetir, eu criei uma função que retorna o numero da linha caso o nome tente ser adicionado novamente. E com esse numero da linha a gente consegue editar os outros registros desse nome.
Segue em anexo.
Abraço
Considerando que o nome não pode se repetir, eu criei uma função que retorna o numero da linha caso o nome tente ser adicionado novamente. E com esse numero da linha a gente consegue editar os outros registros desse nome.
Segue em anexo.
Abraço
AGADUUM, segue links com exemplos para baixar e ver se satisfaz as suas necessidades. Nestes sites tem varias dicas..Até mais..
http://www.tomasvasquez.com.br/downloads/modelocadastro.zip
http://www.ricardohorta.net/
http://www.juliobattisti.com.br/tutoriais/
ALANTB
http://www.tomasvasquez.com.br/downloads/modelocadastro.zip
http://www.ricardohorta.net/
http://www.juliobattisti.com.br/tutoriais/
ALANTB
Saudações pessoal.Problema resolvido, graças aos mestres MITSUEDA e ALANTB, não sei nem como agracer. Valeu mesmo, é de pessoas como vc's que o mundo precisa.
Um grande abraço, fiquem com Deus, T+
Tópico encerrado , respostas não são mais permitidas