Este fórum está sendo desativado

[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

[mucascosta]

Via macro:

Código: Selecionar todos

Sub 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

[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

[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))))

[BrunoLuiel]

Acho que uma das maravilhas do mundo é o fórum e pessoas como vocês, muito obrigado, deu certo!