Página 1 de 1
Adicionar linhas conforme parametros
Enviado: 21 Mai 2020 às 09:55
por andriessen
Reabri a questao por ter ficado com uma duvida
Bom dia. Exixte alguma maneira do excel entender a quantodade de linhas a inserir?
Ex: Plan1
Linha A B C
Qtde Função
1 1 Assistente
2 2 Tecnicos
3 3 Operadores
Então vou levar para PLAN2 1 linha A1 a informação Assistente
2 linhas A2 e A3 a inf TECNICOS pois preciso que a pessoa que vai receber alimente os nomes deles
3 Linhas com a INF OPERADORES.
Mas sempre 1 abaixo da outra
Espero ter conseguido explicar.
Nosso amigo Osvaldo me deu uma boa solução porem não entendi a formula toda.
Re: Adicionar linhas conforme parametros
Enviado: 21 Mai 2020 às 10:12
por babdallas
Não entendi porque abriu de novo. No outro tópico houve uma solução por fórmula e outra por macro. Também seria possível fazer via PowerQuery. Qual a dúvida em relação ao tópico anterior? O que não entendeu?
Adicionar linhas conforme parametros
Enviado: 21 Mai 2020 às 10:55
por andriessen
Bom dia! Obrigado pelo retorno. Eu tentei adaptar a sua soluçãopor formula porem não consgui. Precisava que ela pegasse de A4 ate C40 modifiquei alguns parametros mas nao funciona.
=SE(LINS($F$4:F4)=1;ÍNDICE($B$4:$B$30;AGREGAR(15;6;(LIN($A$4:$A$6)-LIN($A$4)+1)/($A$4:$A$6>0);1));SE(LINS($F$4:F4)>SOMA($A$4:$A$6);"";ÍNDICE($B$4:$B$6;SE(ÍNDICE($A$4:$A$6;CORRESP(F3;$B$4:$B$6;0))=CONT.SE($F$3:F3;F3);CORRESP(F3;$B$4:$B$6;0)+1;CORRESP(F3;$B$4:$B$6;0)))))
Tb nao entendi o que significam os''''' AGREGAR(15;6;''''''''
Obrigado
Re: Adicionar linhas conforme parametros
Enviado: 21 Mai 2020 às 11:00
por babdallas
Re: Adicionar linhas conforme parametros
Enviado: 21 Mai 2020 às 11:44
por osvaldomp
Veja no arquivo anexado.
Adicionar linhas conforme parametros
Enviado: 21 Mai 2020 às 13:14
por andriessen
Ola, esta funcionando mas so copia a coluna B, o que acrescento para copiar a Col "C e "D" por favor.
Re: Adicionar linhas conforme parametros
Enviado: 21 Mai 2020 às 13:19
por babdallas
Veja se é o que deseja. Se não for, poste outro anexo com toas as colunas que deseja e o resultado esperado.
Re: Adicionar linhas conforme parametros
Enviado: 21 Mai 2020 às 13:24
por osvaldomp
Experimente este no lugar do anterior.
Código: Selecionar todosSub ReplicaDados()
Dim c As Range
Sheets("PLAN 2").[A:C] = ""
For Each c In Range("A4:A" & Cells(Rows.Count, 1).End(3).Row)
Sheets("PLAN 2").Cells(Rows.Count, 1).End(3)(2).Resize(c.Value, 3) = c.Offset(, 1).Resize(, 3).Value
Next c
End Sub
Re: Adicionar linhas conforme parametros
Enviado: 21 Mai 2020 às 14:06
por andriessen
Obrigado a todos. Consegui fazer levar as 3 colunas , com a macro.
Re: Adicionar linhas conforme parametros
Enviado: 21 Mai 2020 às 18:00
por babdallas
Fiz uma solução com PowerQuery também.