Tomás Vásquez Fórum

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

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

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

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