none
´Dúvida em macro RRS feed

  • Pergunta

  • Pessoal, eu quero fazer a atividade em negrito, porém dá erro.Alguém saberia me dizer pq?

    Sub Macro1()
    Dim Cell As Range
    Windows("certo.xlsx").Activate

    Range("C3").Select

    For i = 1 To 16
        ActiveCell.Offset(, i).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Windows("Planilha2.xlsx").Activate
        Sheets(" & ActiveCell.Offset(1, i).Value & ").Select
        Range("C2").Select
        ActiveSheet.Paste
       
       
     Next
    End Sub

    quinta-feira, 19 de julho de 2012 13:34

Todas as Respostas

  • Não entendi o que você quer fazer. Onde você obtém erro?

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sexta-feira, 20 de julho de 2012 01:07
    Moderador