nova planilha....!!!!!

Question

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.

Answer 1

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,

Answer 2

 

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

 

Um abraço.

Answer 3

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

 

 

Answer 4

Deu certo!!

Answer 5

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.

Answer 6

Bom dia...pode mandar

 

[e-mail]