Copiar intervalo de uma planilha
Enviado: 31 Jul 2016 às 22:59
por 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
Re: Copiar intervalo de uma planilha
Enviado: 01 Ago 2016 às 00:58
por 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