Macro

[Leo P Costa]

Boa tarde. Preciso de uma macro para inserir no botão que aparece na imagem a seguir. Esse botão irá acresentar uma linha acima do ítem "RESTANTE" com as formatações iguais as da "L17:N:17", as quais existe suas fórmulas, mas não gostaria que fosse modificado nada na tabela ao lado.

 

[zinhovba]

Bom dia!!

 

Tente assim..

Sub ZinhoVBA_1110934()    Dim Found  As Range    Set Found = Columns("J").EntireRow.Find(what:="RESTANTE", LookIn:=xlValues, Lookat:=xlWhole)    If Not Found Is Nothing Then        Found.Resize(, 2).Insert Shift:=xlDown        Application.CutCopyMode = False    End IfEnd Sub

favor adaptar!!!!!!!!!!!!

 

Att

[Leo P Costa]

Bom dia!!

 

Tente assim..

Sub ZinhoVBA_1110934()    Dim Found  As Range    Set Found = Columns("J").EntireRow.Find(what:="RESTANTE", LookIn:=xlValues, Lookat:=xlWhole)    If Not Found Is Nothing Then        Found.Resize(, 2).Insert Shift:=xlDown        Application.CutCopyMode = False    End IfEnd Sub

favor adaptar!!!!!!!!!!!!

 

Att

 

Deu certo, porém quando eu clico novamente ele não copia todas as mesmas informações. Ele insere a linha, mas fica sem as fórmulas iguais as linhas anteriores. E tenho um outro problema também, na coluna A, nas celulas aparece uma lista, as quais sao digitadas nessa pequena tabela onde está sendo inserida as linhas na coluna L, e quando insiro a linha e coloco algum nome nela, não aparece na lista da coluna A.

 

[DJunqueira]

É possível q você solucionasse o seu problema melhor com a utilização de tabela dinâmica ao invés de macro p/ adicionar linha.

Quanto ao segundo problema você poderia resolver nomeando a sua tabela fonte da validação.

 

Anexei uma planilha exemplo com soluções utilizando tabelas dinâmicas, tabelas nomeadas e ferramenta p/ segmentação de dados p/ q você compreenda melhor do q estou falando.

[Leo P Costa]

É possível q você solucionasse o seu problema melhor com a utilização de tabela dinâmica ao invés de macro p/ adicionar linha.

Quanto ao segundo problema você poderia resolver nomeando a sua tabela fonte da validação.

 

Anexei uma planilha exemplo com soluções utilizando tabelas dinâmicas, tabelas nomeadas e ferramenta p/ segmentação de dados p/ q você compreenda melhor do q estou falando.

Bom dia DJunqueira. Onde está o anexo que não encontro? E desde já agradeço a ajuda.

[DJunqueira]

Lá vai a planillha.

Farmácia Solidária 2.xlsx