Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Inserir botão macro
-
- Acabou de chegar
- Mensagens: 7
- Registrado em: Qua Jan 04, 2012 10:17 am
Inserir botão macro
Preciso salvar valores de dados de uma planilha preenchida em outra planilha para ficar como histórico.
Alguem pode me ajudar?
Alguem pode me ajudar?
- Sistema.CE
- Colaborador
- Mensagens: 21
- Registrado em: Sáb Set 17, 2011 10:12 am
Re: Inserir botão macro
Boa tarde.
Para salvar dados em uma nova pasta(workbook)
Para salvar em uma pasta ja existente
Abraço.
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
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
-
- Acabou de chegar
- Mensagens: 7
- Registrado em: Qua Jan 04, 2012 10:17 am
Re: Inserir botão macro
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?
- Sistema.CE
- Colaborador
- Mensagens: 21
- Registrado em: Sáb Set 17, 2011 10:12 am
Re: Inserir botão macro
Qual seria estes dados? os existentes ou o que vão ser inseridos?ao salvar estes dados em outra planilha, ao mesmo tempo limpar os dados inseridos,
Se puder, poste um exemplo de sua planilha para facilitar.(Lembre de zipar a pasta antes de postar no forum)
Abraço.
-
- Acabou de chegar
- Mensagens: 7
- Registrado em: Qua Jan 04, 2012 10:17 am
Re: Inserir botão macro
Muito obrigado, consegui adequar e ficou muito bom.
Sistema.CE escreveu:Boa tarde.
Para salvar dados em uma nova pasta(workbook)Para salvar em uma pasta ja existenteCó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
Abraço.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