Inserir botão macro
Enviado: Seg Jan 09, 2012 10:13 am
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?
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
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,
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