Notifications
Clear all

Macro Para Inserir Linhas em Tabela

15 Posts
1 Usuários
0 Reactions
2,043 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá Pessoal
Já pesquisei no fórum, achei vários exemplos sobre esse assunto mas infelizmente não encontrei nada que fosse exatamente como eu preciso e não consegui adaptar os exemplos encontrados ao meu caso.

Tenho essa planilha em anexo, nela tenho uma tabela com valores e fórmulas, após essa tabela, tenho uma espécie de resumo, eu preciso de duas macros, uma para inserir linhas nessa tabela antes da linha de totais com a mesma formatação das outras linhas (fórmulas e formatação condicional) e outra para excluir a última linha antes do total, nos exemplos que encontrei, a macro inseri a linha após a última linha da planilha, ou seja após os resumos e eu preciso que seja inserido na tabela.

Se alguém puder ajudar fico grato.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/09/2014 5:05 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Já olhou em nossa base de dados?
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/09/2014 6:14 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá, grato pela atenção

Eu Já li vários tópicos aqui no fórum sobre o assunto, mas como eu disse no post não consegui adaptar a minha planilha, pois minha planilha tem um resumo depois da tabela e as macros que eu encontrei aqui insere linha após a ultima linha da planilha, ou seja, depois do resumo, e eu preciso que insira na tabela, antes da linha de totais

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/09/2014 6:20 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Seu problema pode ser ser resolvido não só com a pesquisa como também Gravando uma Macro

Sub Macro1()
'A macro abaixo adiciona uma linha.
    Dim lastRow As Long
    lastRow = ActiveSheet.Range("B2").End(xlDown).Activate
    ActiveCell.Offset(-1, 0).Select
    Selection.ListObject.ListRows.Add (55)
End Sub

Leia:
http://juliobattisti.com.br/cursos/exce ... lo5/02.asp
http://guiadoexcel.com.br/como-gravar-macro-no-excel

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/09/2014 6:47 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Veja esse exemplo deve ser mais adequado

Sub Macro4()
'Autor:AlexandreVBA
' Macro4 Macro
'Data: 08/09/2014

'Eu usei o GM mais uma vez
    Dim lastRow As Long
    lastRow = ActiveSheet.Range("B1048576").End(xlUp).Activate
    ActiveCell.Offset(-2, 0).Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
End Sub

Vai ai um site excelente para tudo de VBA.
http://www.globaliconnect.com/excel/ind ... Itemid=475

Bom estudo! :)
Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/09/2014 6:57 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Eu tinha lido esses post, mas como disse antes, não consegui fazer funcionarem da forma que coloquei na primeira msg desse tópico, a macro que você passou inseri a linha, mas não mantem a formatação das outras e também não inseri antes da última linha da tabela.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/09/2014 7:02 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Então leia o meu penúltima replica!!!!!!!!!!

Depois faça os teste e fale o que falta ou o que deu certo.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/09/2014 7:08 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Então leia o meu penúltima replica!!!!!!!!!!

Depois faça os teste e fale o que falta ou o que deu certo.

Att

Quando executei deu esse erro
Erro em tempo de execução '91':
A variável do objeto ou a variável do bloco 'With' não foi definida

Como resolvo
E que Sou Meio leigo nesses assuntos

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/09/2014 7:12 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Calma...veja meu arquivo modelo, nele tem um botão aperte o botão e veja se te ajuda em alguma coisa.

att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/09/2014 7:30 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Calma...veja meu arquivo modelo, nele tem um botão aperte o botão e veja se te ajuda em alguma coisa.

att

Quase deu certo, está inserindo no lugar correto, mas não está copiando a fórmula que tem na última coluna, a coluna do saldo

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/09/2014 7:42 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

O seu modelo, veio sem formula na coluna Saldo Atual

favor providenciar um modelo detalhado e concernente a sua dúvida!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/09/2014 8:29 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Segue modelo com as fórmulas, acho que tinha inserido linhas com alguma macro e esqueci de atualizar as formulas.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/09/2014 8:54 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Caso seja útil, favor clicar na mãozinha!!!!!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/09/2014 10:08 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Obrigado Amigo pela atenção e solução do meu problema, ficou perfeito.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/09/2014 11:15 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Eu fico feliz em ajudar!!

Obrigado pelo retorno!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/09/2014 11:24 am