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

Tecnologia
rapa_m   95º
em 04/02/21 10:22
Nível no Race: Passou do seix e do douze

Comentários

Último comentário 1º comentário do autor Só moderadores Só os meus Só quem eu sigo Ordenar por gostei
Charlito  3º
em 04/02/2021 11:00
Do pouco que apreendi, colocaria cada tabela em um par de colunas diferente.
Ajuda Excel: Duplicar Última Linha de Várias Tabelas - #1 de 9
rapa_m  95º
em 04/02/2021 11:10
Nível no Race: Passou do seix e do douze
@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.
Ajuda Excel: Duplicar Última Linha de Várias Tabelas - #2 de 9
VamosPraLondres  181º
em 04/02/2021 11:13
Nível no Race: Tá ficando maluco igual o Bastter
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.
Ajuda Excel: Duplicar Última Linha de Várias Tabelas - #3 de 9
rapa_m  95º
em 04/02/2021 12:57
Nível no Race: Passou do seix e do douze
@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
Ajuda Excel: Duplicar Última Linha de Várias Tabelas - #4 de 9
Charlito  3º
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. 
Ajuda Excel: Duplicar Última Linha de Várias Tabelas - #5 de 9
rapa_m  95º
em 04/02/2021 16:14
Nível no Race: Passou do seix e do douze
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.
Ajuda Excel: Duplicar Última Linha de Várias Tabelas - #6 de 9
VamosPraLondres  181º
em 04/02/2021 16:54
Nível no Race: Tá ficando maluco igual o Bastter
@rapa_m boa, tirou de letra. E até que ficou enxuto o código. Mandou bem!

Vou me virando assim tb! rs
Ajuda Excel: Duplicar Última Linha de Várias Tabelas - #7 de 9
M14 
em 04/02/2021 17:55
Nível no Race: Tá começando a andar
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 ?
Ajuda Excel: Duplicar Última Linha de Várias Tabelas - #8 de 9
rapa_m  95º
em 04/02/2021 22:34
Nível no Race: Passou do seix e do douze
@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.
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.