Olá Boa Noite a todos!
Sou nova iniciante na programação em VBA e através deste site colhi algumas informações bem importantes para mim.
Agradeço a todos ao posts ,visto que uns 60% do que aprendi foi através das informações aqui postadas.
Por fim criei um cadastro de clientes , porém agora surgiram 04 problemas dúdivas ..rsrrs acredito que seja de uma iniciante mesmo.
1 Todos os dados do formulário estão sendo gravados na planilha com exceção de 02 os campos CPF e SEXO.
2 Não consegui fazer com que o listbox seja preenchido sem dar erro ,segue código que utilizei nos botões salvar/editar/deletar, evento initialize sem a linha ActiveSheet.ShowAllData.
'ATUALIZA TELA DO LISTBOX
Sheets("TEMP_clientes").Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.EntireRow.Delete
Sheets("clientes").Select
Range("A1").Select
ActiveSheet.ShowAllData
' Filtrar Status
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=131, Criteria1:="Ativo"
'Selecionar Região Atual
Range("a1").Select
Selection.CurrentRegion.Select
'Copiar
Selection.Copy
'Colar em Plan Temporaria
Sheets("TEMP_clientes").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Deletar Colunas TEMP_clientes
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("D:G").Select
Selection.Delete Shift:=xlToLeft
Columns("E:R").Select
Selection.Delete Shift:=xlToLeft
Columns("F:BG").Select
Selection.Delete Shift:=xlToLeft
Columns("G:BA").Select
Selection.Delete Shift:=xlToLeft
Columns("H:I").Select
Selection.Delete Shift:=xlToLeft
Range("G6").Select
3 A busca de cliente pelos campos em negrito no formulario nao estavam funcionando com o codigo.
4 Quando inseri uma barra de rolagem vertical do lado direito estava dando erros .
Segue em anexo a planilha
Teria alguém disponibilidade de me ajudar nestas quatro dúvidas,pois não consigo resolvê-las ,já renomeei ,montei outra planilha ,sem sucesso.
Obrigada!
Aline Santos
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Ajuda Formulario de cadastro não grava 02 campos na planilha
Ajuda Formulario de cadastro não grava 02 campos na planilha
- Anexos
-
- CLIENTES.rar
- Planilha Cadastro de clientes com os problemas descritos
- (177.35 KiB) Baixado 296 vezes
- BaptistaCG
- Colaborador
- Mensagens: 96
- Registrado em: Seg Jul 30, 2012 10:33 pm
- Localização: Sorocaba/SP
Re: Ajuda Formulario de cadastro não grava 02 campos na plan
Olá Aline seja bem vinda ao mundo vba rsrs!
Pode ter certeza que obterá sucesso aqui no fórum, estarei analisando sua planilha e assim que puder lhe darei um feedback aqui se eu conseguir solucionar os erros.
Att...
Pode ter certeza que obterá sucesso aqui no fórum, estarei analisando sua planilha e assim que puder lhe darei um feedback aqui se eu conseguir solucionar os erros.
Att...
- BaptistaCG
- Colaborador
- Mensagens: 96
- Registrado em: Seg Jul 30, 2012 10:33 pm
- Localização: Sorocaba/SP
Re: Ajuda Formulario de cadastro não grava 02 campos na plan
Olá aline,
O problema do scrollbar é só modificar nas propriedades do form que ele fica certo, o problema do cpf e nascimento, eu mudei o objeto activecell e utilizei o selection, é assim que deve ser feito no modelo que vc enviou, pois o vba não estava localizando nenhum objeto como range na planilha, usei tambem o .select na propriedade .offset. Assim o excel seleciona a celula e não apenas declara ela como ativa.
Estou meio sem tempo agora devido a faculdade mas assim que me restar mais um pouco de tempo eu providencio o resto ta ok? Desculpe mas é a correria rsrs.
Abraço...
Att...
O problema do scrollbar é só modificar nas propriedades do form que ele fica certo, o problema do cpf e nascimento, eu mudei o objeto activecell e utilizei o selection, é assim que deve ser feito no modelo que vc enviou, pois o vba não estava localizando nenhum objeto como range na planilha, usei tambem o .select na propriedade .offset. Assim o excel seleciona a celula e não apenas declara ela como ativa.
Estou meio sem tempo agora devido a faculdade mas assim que me restar mais um pouco de tempo eu providencio o resto ta ok? Desculpe mas é a correria rsrs.
Abraço...
Att...
- Anexos
-
- CLIENTE_INSS.rar
- (95.93 KiB) Baixado 285 vezes
Re: Ajuda Formulario de cadastro não grava 02 campos na plan
OlÁ BaptistaCG
Ainda não consegui ajustar dois itens a pesquisa encontra o cliente cadastrado , porém os campos CPF e Sexo não carrega no Form, quando pesquisado no listBox ou listview, que forma os dois testes que estou quebrando a cabeça. e a ScrollBar quando digito os 3 primeiro numeros do CPF ou nos campos data ele rola automaticamente para o final do Formulario.
Obrigada pela atenção me ajudou muito nas dúvidas anteriores.
Att
Ainda não consegui ajustar dois itens a pesquisa encontra o cliente cadastrado , porém os campos CPF e Sexo não carrega no Form, quando pesquisado no listBox ou listview, que forma os dois testes que estou quebrando a cabeça. e a ScrollBar quando digito os 3 primeiro numeros do CPF ou nos campos data ele rola automaticamente para o final do Formulario.
Obrigada pela atenção me ajudou muito nas dúvidas anteriores.
Att