none
Duvida macro para criar planilhas RRS feed

  • Pergunta

  • Boa noite

    Tenho a planilha "Vendas.xls" e na aba "Plan1", tenho muitas informações, formulas, cores e formatação condicional, gostaria de criar um botão onde ao clicar nele, ele pega tudo da "Plan1 da Vendas.xls" e copia tudo para uma nova planilha chamada "Vendas_copia.xls", gostaria que fosse colado todas as informações, cores, formatação condicional, mas a única coisa que não quero é que cole as formulas, pois nesse caso daria problemas nas formulas.

    E nessa nova planilha "Vendas_copia.xls", as informações não podem começar na coluna A e linha 1, devem começar na coluna C e linha 3.

    Obrigado

    segunda-feira, 8 de abril de 2013 02:26

Respostas

  • Boa noite Henrique.

    Abaixo vai uma sugestão para resolução do seu problema, sem muitas formalidades:

    Sub CopiarAba()
    
    
    NomeAba = "Plan1"   'Activesheet.Name   'Edite aqui
    EndArq = ActiveWorkbook.Path            'Edite aqui
    NomeArq = "Vendas_copia.xls"            'Edite aqui
    TipoX = "xls"       'xlsx               'Edite aqui
    EndSalvar = EndArq & "\" & NomeArq & "." & TipoX        'Endereço completo
    
    
    Sheets(NomeAba).Select
    Sheets(NomeAba).Copy
    
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    
    'Deslocando Células
    Columns("A:B").Select
    Selection.Insert Shift:=xlToRight
    
    Rows("1:2").Select
    Selection.Insert Shift:=xlDown
    
    Range("A1").Select
    
    
    If TipoX = "xlsx" Then Formato = xlOpenXMLWorkbook Else Formato = xlNormal
    
    'Salvando
    ActiveWorkbook.SaveAs Filename:=EndSalvar, _
        FileFormat:=Formato, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    End Sub

    As opções desejadas são escolhidas diretamente no código, mas você pode colocá-las em algum local na sua planilha ou solicitar ao usuário via Formulário ou InputBox. Deixo isso a seu critério.

    Espero que ajude.

    Abs.



    Filipe Magno

    segunda-feira, 8 de abril de 2013 03:20