none
Criar nova planilha com nome de célula RRS feed

  • Pergunta

  • 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!

    quarta-feira, 5 de julho de 2017 14:04

Todas as Respostas

  • 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

    • Sugerido como Resposta AndersonFDiniz2 quarta-feira, 5 de julho de 2017 14:52
    quarta-feira, 5 de julho de 2017 14:52
  • 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. 

    quarta-feira, 5 de julho de 2017 15:45
  • 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

    • Sugerido como Resposta AndersonFDiniz2 quarta-feira, 5 de julho de 2017 16:37
    quarta-feira, 5 de julho de 2017 16:37
  • Valeu Anderson...perfeito!!

    Muito obrigado!

    quarta-feira, 5 de julho de 2017 18:22
  • FAVOR MARCAR COMO RESPONDIDO.

    Anderson Diniz

    quarta-feira, 5 de julho de 2017 18:27