Página 1 de 1
Arrastar fórmulas personalizado
Enviado: 25 Jul 2020 às 15:17
por BrunoLuiel
Olá! Meu nome é Bruno e preciso de ajuda que resumidamente é o problema que não estou conseguindo terminar o trabalho na empresa.
Como consigo fazer pra poder arrastar pra baixo e seguir a seguinte lógica:
Coluna A da planilha 2
=planilha1!A1
=planilha1!B1
=planilha1!C1
Vazia
Vazia
Vazia
=planilha1!A2
=planilha1!B2
=planilha1!C2
Vazia
Vazia
Vazia
=planilha1!A3
=planilha1!B3
=planilha1!C3
Vazia
Vazia
Vazia....
Desde já, agradeço muito toda ajuda
Re: Arrastar fórmulas personalizado
Enviado: 25 Jul 2020 às 16:11
por mucascosta
Via macro:
Código: Selecionar todosSub CopiaInsere()
Dim L As String
Dim n As String
Dim i As Integer
n = 3 'Colunas A, B e C
L = 1 'Linha inicial
For i = 1 To n
Planilha2.Cells(L, 1) = Planilha1.Cells(i, 1)
Planilha2.Cells(L, 2) = Planilha1.Cells(i, 2)
Planilha2.Cells(L, 3) = Planilha1.Cells(i, 3)
L = L + 4 'Incrementa 3 linhas em branco
Next
End Sub
Re: Arrastar fórmulas personalizado
Enviado: 26 Jul 2020 às 07:48
por Deciog
BrunoLuiel, Bom Dia.
Tenta desta forma
=INDIRETO("Planilha1!"&ENDEREÇO(1;LIN(A1);1))
E arrasta para baixo
Se minha resposta foi útil, clique em obrigado é uma forma de agradecimento da ajuda
Decio
Re: Arrastar fórmulas personalizado
Enviado: 26 Jul 2020 às 09:57
por osvaldomp
Experimente a fórmula abaixo na linha 1 de qualquer coluna da
Planilha2 e arraste para baixo.
Código: Selecionar todos=SE(ÉERRO(ESCOLHER(INT(MOD(LIN();6));1;7;1));"";INDIRETO("'Planilha1'!"&DESLOC(A$1;INT((LINS(A$1:A1)-1)/6);MOD(LIN()-1;3))))
Re: Arrastar fórmulas personalizado
Enviado: 26 Jul 2020 às 14:34
por BrunoLuiel
Acho que uma das maravilhas do mundo é o fórum e pessoas como vocês, muito obrigado, deu certo!