Criar nova planilha com nome de célula

Question

Conforme exemplo:

https://social.msdn.microsoft.com/Forums/pt-BR/a99d8e3c-5f1f-4b2e-8753-7b6489282f20/criar-nova-planilha-com-nome-de-clula?forum=vbapt

Como faço para que as células copiadas para a nova planilha, sejam copiadas somente valores e formatação?

Por exemplo, quando criar a nova planilha as células de A7 até i11, deverá ser copiado somente valores e formatação, sem as fórmulas. 

Obrigado!

Answer 1

A macro a seguir copia os dados e fórmulas da planilha ativa e cola somente os valores no mesmo lugar:

Sub Macro1()
ActiveSheet.UsedRange.Copy

ActiveSheet.UsedRange.Cells(1, 1).Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
ThisWorkbook.Save

End Sub

---

Anderson Diniz

Answer 2

Anderson, grato pela ajuda. Mas eu preciso que execute:

 

Sub fMain()
 ThisWorkbook.Worksheets("Matriz").Copy _
 Before:=ThisWorkbook.Sheets(1)
    ActiveSheet.Name = Range("k1")
 Worksheets("Plan2").Activate
End Sub

Porém a única coisa que preciso ajustar nessa Macro é que ao colar os dados na planilha criada, as células de A7 a i11, sejam coladas somente valores e formatação. 

Answer 3

DEPOIS QUE VOCÊ JÁ COLOU OS DADOS, EXECUTE ESTA MACRO:

Sub Macro2()
ActiveSheet.Range("A7:I11").Copy

ActiveSheet.Range("A7").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
ThisWorkbook.Save

End Sub

---

Anderson Diniz

Answer 4

Valeu Anderson...perfeito!!

Muito obrigado!

Answer 5

FAVOR MARCAR COMO RESPONDIDO.

---

Anderson Diniz