ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Ajuda Formulario de cadastro não grava 02 campos na planilha

Dúvidas gerais sobre Excel
AlineS
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qua Nov 07, 2012 6:30 pm

Ajuda Formulario de cadastro não grava 02 campos na planilha

Mensagem por AlineS » Qua Nov 07, 2012 6:53 pm

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
Anexos
CLIENTES.rar
Planilha Cadastro de clientes com os problemas descritos
(177.35 KiB) Baixado 133 vezes



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
BaptistaCG
Colaborador
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

Mensagem por BaptistaCG » Qui Nov 08, 2012 10:27 am

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...


Vinícius Baptista.

"Não há sucesso maior do que uma boa falha"
Se gostou da resposta clique em Imagem.

Avatar do usuário
BaptistaCG
Colaborador
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

Mensagem por BaptistaCG » Qui Nov 08, 2012 1:24 pm

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...
Anexos
CLIENTE_INSS.rar
(95.93 KiB) Baixado 137 vezes


Vinícius Baptista.

"Não há sucesso maior do que uma boa falha"
Se gostou da resposta clique em Imagem.

AlineS
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qua Nov 07, 2012 6:30 pm

Re: Ajuda Formulario de cadastro não grava 02 campos na plan

Mensagem por AlineS » Sáb Nov 24, 2012 4:01 pm

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



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder