Página 1 de 1

Inserir botão macro

Enviado: Seg Jan 09, 2012 10:13 am
por Arivan Donadia
Preciso salvar valores de dados de uma planilha preenchida em outra planilha para ficar como histórico.
Alguem pode me ajudar?

Re: Inserir botão macro

Enviado: Ter Jan 10, 2012 6:10 pm
por Sistema.CE
Boa tarde.

Para salvar dados em uma nova pasta(workbook)

Código: Selecionar todos

Sub Copia_novaworkbook()
    Range("A2:B11").Select ' Intervalo a ser copiado
    Selection.Copy ' copia
    Workbooks.Add ' adiciona nova pasta
    ActiveSheet.Paste ' ativa pasta
    Application.CutCopyMode = False ' sai do modo copiar
    Windows("Pasta1").Activate 'ativa pasta
End Sub
Para salvar em uma pasta ja existente

Código: Selecionar todos

Sub Copia_pastaexistente()
    Range("A2:B11").Select ' intervalo a ser copiado
    Selection.Copy
    Windows("Pasta4").Activate ' Substitua o nome Pasta4 pelo nome de pasta
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("Pasta1").Activate
End Sub
Abraço.

Re: Inserir botão macro

Enviado: Qui Jan 12, 2012 3:53 pm
por Arivan Donadia
Primeira mente, muito obrigado pela atenção. Preciso saber como faço para este botão, ao salvar estes dados em outra planilha, ao mesmo tempo limpar os dados inseridos, tem como? pode me ajudar?

Re: Inserir botão macro

Enviado: Qui Jan 12, 2012 3:59 pm
por Sistema.CE
ao salvar estes dados em outra planilha, ao mesmo tempo limpar os dados inseridos,
Qual seria estes dados? os existentes ou o que vão ser inseridos?

Se puder, poste um exemplo de sua planilha para facilitar.(Lembre de zipar a pasta antes de postar no forum)

Abraço.

Re: Inserir botão macro

Enviado: Sex Jan 20, 2012 8:09 am
por Arivan Donadia
Muito obrigado, consegui adequar e ficou muito bom.
Sistema.CE escreveu:Boa tarde.

Para salvar dados em uma nova pasta(workbook)

Código: Selecionar todos

Sub Copia_novaworkbook()
    Range("A2:B11").Select ' Intervalo a ser copiado
    Selection.Copy ' copia
    Workbooks.Add ' adiciona nova pasta
    ActiveSheet.Paste ' ativa pasta
    Application.CutCopyMode = False ' sai do modo copiar
    Windows("Pasta1").Activate 'ativa pasta
End Sub
Para salvar em uma pasta ja existente

Código: Selecionar todos

Sub Copia_pastaexistente()
    Range("A2:B11").Select ' intervalo a ser copiado
    Selection.Copy
    Windows("Pasta4").Activate ' Substitua o nome Pasta4 pelo nome de pasta
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("Pasta1").Activate
End Sub
Abraço.