Ajuda Excel: Duplicar Última Linha de Várias Tabelas

Tecnologia
rapa_m  
em 04/02/21 10:22

Comentários

Último comentário 1º comentário do autor Só moderadores Só quem eu sigo Ordenar por gostei
Charlito  
em 04/02/2021 11:00
Do pouco que apreendi, colocaria cada tabela em um par de colunas diferente.
; 1; ; 0;
0 '; 0';
Ajuda Excel: Duplicar Última Linha de Várias Tabelas - #1 de 9
rapa_m  
em 04/02/2021 11:10
@Charlito mostrei apenas 2 colunas, mas nesse caso tem 13 colunas e teriam que ser adicionadas 50 linhas, 1 para cada tabela. Ficaria inviável colocar esses dados em colunas, seriam necessárias 650 colunas para isso.
; 0; ; 0;
0 '; 0';
Ajuda Excel: Duplicar Última Linha de Várias Tabelas - #2 de 9
VamosPraLondres  
em 04/02/2021 11:13
Dá. Mas vai ter de fazer uma macro no VB

Se tiver umas noções de macro, já dá pra desenrolar. Se não tiver, pesquisa por macro acrescentar linha VB básico que deve aparecer alguns tutoriais no youtube ou no google.
; 1; ; 0;
0 '; 0';
Ajuda Excel: Duplicar Última Linha de Várias Tabelas - #3 de 9
rapa_m  
em 04/02/2021 12:57
@VamosPraLondres achei alguma coisa nesse link! Valeu pela dica. Tenho uma noção de programação! Vou tentar me virar a partir disso.

https://powerspreadsheets.com/excel-vba-insert-row/#Copy-Rows-with-the-RangeCopy-Method
; 2; ; 0;
0 '; 0';
Ajuda Excel: Duplicar Última Linha de Várias Tabelas - #4 de 9
Charlito  
em 04/02/2021 13:22
@rapa_m

Dica de preguiçoso: eu coloco pra gravar macro, vou fazendo o que quero fazer e depois leio a macro gravada pra ver no que deu.

A macro gravada fica suja, aí vejo o que funciona como e vou limpando. 
; 4; ; 0;
0 '; 0';
Ajuda Excel: Duplicar Última Linha de Várias Tabelas - #5 de 9
rapa_m  
em 04/02/2021 16:14
Problema resolvido talvez não da melhor maneira, mas ficou mais funcional atualizar a planilha dessa forma. 

Eu defini uma busca pela data numérica, e a partir da localização dessa data, a linha que contem essa data é duplicada na linha subsequente.




Sub DuplicaLinha()
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    Set WorkRng = WorkRng.Columns(1)
    xLastRow = WorkRng.Rows.Count
    Application.ScreenUpdating = False
    For xRowIndex = xLastRow To 1 Step -1
        Set Rng = WorkRng.Range("A" & xRowIndex)
        If Rng.Value = "44242" Then
            Rng.Offset(0, 0).EntireRow.Copy
            Rng.Offset(1, 0).EntireRow.PasteSpecial
            Rng.Offset(2, 0).EntireRow.Insert
        End If
    Next
    Application.ScreenUpdating = True
End Sub?


Não consegui fazer a localização da linha a ser duplicada pela data, essa seria uma melhoria a ser realizada. Outra melhoria, seria incrementar a data das novas linhas criadas em um mês.
; 0; ; 0;
0 '; 0';
Ajuda Excel: Duplicar Última Linha de Várias Tabelas - #6 de 9
VamosPraLondres  
em 04/02/2021 16:54
@rapa_m boa, tirou de letra. E até que ficou enxuto o código. Mandou bem!

Vou me virando assim tb! rs
; 1; ; 0;
0 '; 0';
Ajuda Excel: Duplicar Última Linha de Várias Tabelas - #7 de 9
M14  
em 04/02/2021 17:55
Para evitar ter que rodar a macro todo mês, não seria possível montar uma tabela com todas as linhas, com o ano inteiro, e colunas, mesmo que sem dados, e depois atualizar sobre os vazios de acordo com as medições ?
; 0; ; 1;
0 '; 0';
Ajuda Excel: Duplicar Última Linha de Várias Tabelas - #8 de 9
rapa_m  
em 04/02/2021 22:34
@M14 poderia ser feito assim, mas isso não iria eliminar um procedimento manual de inserção de linhas para completar as linhas para o ano inteiro.
; 0; ; 0;
0 '; 0';
Ajuda Excel: Duplicar Última Linha de Várias Tabelas - #9 de 9

4 usuários comentaram este tópico.
Clique para ir para o primeiro comentário do usuário.

Ações Pesquisa Videos Livros Análise de Carteira Desconto FAQs Orientação Esportiva Ofertas e Serviços Bastter System Boletim IR Podcasts Revista Tecnologia - Ajuda Eu Assinar Ações Pesquisa Videos Livros Análise de Carteira Desconto FAQs Ofertas e Serviços Orientação Esportiva Boletim BS Podcasts IR Tecnologia Ajuda eu Revista Assinar Assinar

BastterZap