Este fórum está sendo desativado

[Djaramos]

Boa noite.
Na planilha anexada, preciso fazer uma cópia das células B11:E19, criar uma segunda planilha , colar os valores e renomear a planilha.
Farei isso mês a mês.
Conto com vcs.

Obrigado

[elitexis]

Boa noite meu amigo, não ficou muito claro se você queria abrir uma nova planílha de excel mesmo, ou apenas uma aba, eu considerei o código para uma nova aba conforme segue:

Sheets(1).Select
Range("B11:E19").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Range("A1").Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit

n = Month(Range("a2"))

If n = 1 Then

ActiveSheet.Name = "Janeiro"

End If

If n = 2 Then

ActiveSheet.Name = "Fevereiro"

End If

If n = 3 Then

ActiveSheet.Name = "Março"

End If

If n = 4 Then

ActiveSheet.Name = "Abril"

End If

If n = 5 Then

ActiveSheet.Name = "Maio"

End If

If n = 6 Then

ActiveSheet.Name = "Junho"

End If

If n = 7 Then

ActiveSheet.Name = "Julho"

End If

If n = 8 Then

ActiveSheet.Name = "Agosto"

End If

If n = 9 Then

ActiveSheet.Name = "Setembro"

End If

If n = 10 Then

ActiveSheet.Name = "Outubro"

End If

If n = 11 Then

ActiveSheet.Name = "Novembro"

End If

If n = 12 Then

ActiveSheet.Name = "Dezembro"

End If

End Sub