Aiuda

oi, Albino!

... una macro que me premita, copiar los datos escritos en una sheet
... copiar esos datos asta una otra sheet e de seguida borrar los datos escritos en la 1ª sheet
... por fim encerrar el programa grabando las alteraciones [...]

o codigo seguinte, copia os conteudos de folha de trabalho ativos em uma folha de trabalho somada nova,
limpa os conteudos de folha copiada, saia da aplicação [e registra o livro de trabalho]
registros prévios são supostos.

Sub CopiaCelas()
Dim EstaFolha As String
EstaFolha = ActiveSheet.Name
With Worksheets.Add
Worksheets(EstaFolha).Cells.Copy .Range("a1")
End With
Worksheets(EstaFolha).Cells.Clear
Application.Quit
ThisWorkbook.Close True
End Sub

receba um abraço
hector.

para uma compreensão de idioma melhor, você poderia querer subscrever a um grupo de notícias em português:
microsoft.public.pt.excel

Estimado Albino,

Puedes utilizar la siguiente macro:

Sub CortarYPegar()
Sheets(1).Select
Cells.Select
Selection.Cut
Sheets(2).Select
Cells.Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub


Si no sabes como usarlo o tienes cualquier duda, responde.

Recuerda modificarla para que se aplique a las hojas sobre las que quieras
realizar la acción deseada.

Cordialmente,

Soporte Técnico de Microsoft.

"Albino" wrote in message
news:

Olá
En primero lugar perdon por mi espanhol, es que soi portugues e no sê
escribir mui bien.
Alguien me poderia ajudar.
Necessito hacer una macro que me premita, copiar los datos escritos en una
sheet, copiar essos datos asta una otra sheet e de seguida borrar los

datos

escritos en la 1ª sheet, e por fim encerrar el programa grabando las
alteraciones.
Pode ser una macro?
Me ajudem com qualquer cosa que pueda hacer esta rotina.
Gracias ...

Gracias por la aiuda.~
Ya la é puesto a funcionar e está mui bien
Una vez más nuchas gracias.
"Luis Miguel Suarez [MS]" escreveu na
mensagem news:%2345$

Estimado Albino,

Puedes utilizar la siguiente macro:

Sub CortarYPegar()
Sheets(1).Select
Cells.Select
Selection.Cut
Sheets(2).Select
Cells.Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub


Si no sabes como usarlo o tienes cualquier duda, responde.

Recuerda modificarla para que se aplique a las hojas sobre las que quieras
realizar la acción deseada.

Cordialmente,

Soporte Técnico de Microsoft.

"Albino" wrote in message
news:
> Olá
> En primero lugar perdon por mi espanhol, es que soi portugues e no sê
> escribir mui bien.
> Alguien me poderia ajudar.
> Necessito hacer una macro que me premita, copiar los datos escritos en

una

> sheet, copiar essos datos asta una otra sheet e de seguida borrar los
datos
> escritos en la 1ª sheet, e por fim encerrar el programa grabando las
> alteraciones.
> Pode ser una macro?
> Me ajudem com qualquer cosa que pueda hacer esta rotina.
> Gracias ...
>
>