none
Macro RRS feed

  • Pergunta

  • Senhores, sou novo aqui e preciso de auxilio com a criação de uma macro.

    Estou desenvolvendo uma planilha, e criei uma macro para copiar os dados de uma planilha chamada "Impute" para outra chamada "Compilação".

    A dificuldade é que os dados estão sendo gravados na mesma linha, preciso fazer com que toda vez que acionar o comando da macro, os dados sejam copiados em uma linha nova, ou seja linha vazia, automaticamente alimentando a planilha.

    A macro ficou assim:

     Range("I7:L7").Select
        Selection.Copy
        Sheets("Compilação").Select
        Range("B4").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("Impute").Select
        Range("I9:L9").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Compilação").Select
        Range("C4").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("D4").Select
        Sheets("Impute").Select
        Range("I11:L11").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Compilação").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("E4").Select
        Sheets("Impute").Select
        Range("I13:L13").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Compilação").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("F4").Select
        Sheets("Impute").Select
        Range("D17:G20,J17:O20").Select
        Range("J17").Activate
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Compilação").Select
        ActiveSheet.Pictures.Paste.Select
        ActiveSheet.Shapes.Range(Array("Picture 20")).Select
        ActiveWindow.SmallScroll ToRight:=8
        Range("T4").Select
        Sheets("Impute").Select
        Range("I24:J24").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Compilação").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("T7").Select
        Sheets("Impute").Select
        Application.CutCopyMode = False
        
    End Sub

    Ressalto que são duas abas.

    Aguardo orientações.


    • Editado Diego BML terça-feira, 20 de fevereiro de 2018 18:45
    terça-feira, 20 de fevereiro de 2018 18:41

Todas as Respostas