locked
nova planilha....!!!!! RRS feed

  • Pergunta

  • copiei a planilha de "out" e criei a planilha de "nov". gostaria de saber se tem como eu não precisar mais ficar editando minha macro, onde ela copia as células "E7:E28"  do mês de "set", e sim de "out" e colasse no mês novo onde criei a planilha nova de "nov" ???

     

    segue exemplo

     

    \ago/\set/\out/\nov/

     

    Sheets("SET").Select
        Range("E7:E28").Select
        Selection.Copy
        Sheets("OUT").Select
        Range("E7:E28").Select
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

     

    desde já agradeço.

    sexta-feira, 14 de dezembro de 2007 13:06

Todas as Respostas

  • Existem mil maneiras...

     

    Code Block

    Sub Copiar()

    '1ª forma
    Dim rng As Range
    Dim rng2 As Range

    Set rng = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count - 1).Range(ThisWorkbook.Sheets(Sheets.Count - 1).Cells(1, 1), ThisWorkbook.Sheets(Sheets.Count - 1).Cells(30, 5))
    Set rng2 = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Range(ThisWorkbook.Sheets(Sheets.Count).Cells(1, 1), ThisWorkbook.Sheets(Sheets.Count).Cells(30, 5))
    rng.Copy rng2

    2 ª forma
    ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count - 1).Range(ThisWorkbook.Sheets(Sheets.Count - 1).Cells(1, 1), ThisWorkbook.Sheets(Sheets.Count - 1).Cells(30, 5)).Copy ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Range(ThisWorkbook.Sheets(Sheets.Count).Cells(1, 1), ThisWorkbook.Sheets(Sheets.Count).Cells(30, 5))


    End Sub

     

     

    Abs,

    sexta-feira, 14 de dezembro de 2007 22:07
  •  

    Bom dia Zerick_sp vlw pela força kra, mas ñ deu certo nenhuma das duas opções.....

     

    Um abraço.

    segunda-feira, 17 de dezembro de 2007 12:02
  • Eu tinha entendido errado..apenas uma pequena mudança

     

     

     

    Sub transferir()

    Dim FOLHA As Integer

       
        ActiveSheet.Range("E7:E28").Select
        Selection.Copy
        FOLHA = ActiveSheet.Index
        Sheets(FOLHA + 1).Select
        Range("E7:E28").Select
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False


    End Sub


     

     

    segunda-feira, 17 de dezembro de 2007 12:33
  • Deu certo!!

    segunda-feira, 17 de dezembro de 2007 16:18
  • bom dia...

     

    não deu certo, vc ker q eu mande a planilha pra vc dar uma olhada ????

     

    me passe o seu e-mail !!!!!!!!

     

    um abraço.

    quarta-feira, 19 de dezembro de 2007 10:47
  • Bom dia...pode mandar

     

    evangelistalion@gmail.com

     

    quarta-feira, 19 de dezembro de 2007 12:42