2020 13:02

Tecnologia

Badfish 180º
em 07/02/20 10:43

Nível no Race: Tá ficando maluco igual o Bastter

comentada em 07/02/2020 13:02

Bom dia pessoal,

Estou atualizando o cadastro de clientes aqui da empresa e estou criando uma macro pra salvar e organizar a lista de clientes.
Em uma aba "principal" é digitado os dados do cliente e ao clicar no botão da macro eles são salvos numa lista organizada por ordem de empresa.

O problema é que não consigo passar para a próxima linha ao salvar o proximo contato, sendo que ele esta apagando o anterior... Alguem sabe como corrigir isso?

segue o codigo da macro, acredito que o erro esta na linha destacada mas não sei como corrigir:

Range("F9:F16").Select
Selection.Copy
Sheets("Lista_Contatos").Select
ActiveWindow.SmallScroll Down:=12

Range("A40").Select <---ACREDITO QUE O ERRO ESTA AQUI

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
ActiveWindow.SmallScroll Down:=-18
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Lista_Contatos").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Lista_Contatos").Sort.SortFields.Add2 Key:=Range( _
"B2:B40"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Lista_Contatos").Sort
.SetRange Range("A1:K40")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
Sheets("Cadastro_Clientes").Select
Selection.ClearContents
Range("F9").Select
End Sub

Valeu!!

Comentários

Último comentário 1º comentário do autor Só moderadores Só os meus Só quem eu sigo Ordenar por gostei

silence_
em 07/02/2020 10:53

A sua macro precisa incluir uma linha acima, ao final do cadastro do seu cliente. Pra ficar mais fácil, grave uma macro onde você inclui uma linha acima de outra linha. Assim você consegue ver o código correto.

Ajuda aí pow!

Dúvida Excel VBA - Planilha para cadastro - #1 de 5

pedmio 180º
em 07/02/2020 10:54

Aparentemente você gravou essa macro. Dê uma pesquisada em como usar referências relativas.
Você pode gravar sua macro selecionando a primeira celula da base de dados, segurando Ctrl + seta para baixo, para ele escolher a última célula e usar o comando "Activecell.Offset(1,0).Select"

Mas não vai funcionar se não colocar no contexto adequado.

Particularmente, quando vou percorrer uma lista, utillizo uma função pra determinar o número de linhas e adiciono +1.

Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function

Ajuda aí pow!

Dúvida Excel VBA - Planilha para cadastro - #2 de 5

boxveil
em 07/02/2020 11:00

Assim, o seu código é bem simples. Copia colar e ordena. EU usaria um pivot table(tabela dinamica) para fazer isso q vc quer.

Ajuda aí pow!

Dúvida Excel VBA - Planilha para cadastro - #3 de 5

Badfish 180º
em 07/02/2020 11:32

Refiz aqui do 0 e deu certo. A dificuldade era que eu estava trabalhando em cima de uma lista que ja existia, mas valeu ai pessoal

Ajuda aí pow!

Dúvida Excel VBA - Planilha para cadastro - #4 de 5

Barto

em 07/02/2020 13:02

Evite trabalhar com select. Existem formas mais profissionais de fazer mesma coisa.

Uma forma interessante de trabalhar é sempre buscar a última linha dinamicamente. Uma forma para isso é criar uma variável para a mesma:

dim lastrow as long

lastrow = thisworkbook.sheets("Lista_Contatos").cells(rows.count,1).end(xlup).row

Quando for inserir o dado, escreva para sempre inserir uma linha abaixo da variável lastrow:

thisworkbook.sheets("Lista_Contatos").cells(lastrow + 1,1) = "DADO QUE VC QUER INSERIR"