crear macro que copie datos de una hoja a otra

**alex_27** · 13-03-2010 18:31

Buen dia!

Soy Alex

se que esta es una seccion de excel sobre VBA sin embargo tengo una idea minima al respecto. aun asi, requiero lograr algo que me automatice una tarea y por lo que he leido y consultado, esto es posible a traves de una macro. por lo que he visto parece una macro no tan complicada pero como menciono arriba mi idea sobre macros es minima.

lo que requiero es lo siguiente: supongamos que tengo un rango de datos en la hoja1 que van de A1:C10. lo que necesito es que al dar clic a un boton (control de formulario) que esa misma macro al correr:

1. me copie estos datos en mi hoja2 tambien a partir de la celda A1 hasta C10 y que despues de ello, en automatico se posicione en la primer celda vacia en la columna A o sea en A11

2. que posteriormente vuelva a la hoja1 y limpie los datos que hay en hoja1 (los que fueron copiados a hoja2). para volver a introducir datos en este mismo rango A1:C10 y que al correr la macro nuevamente copie estos datos en la hoja2 a partir de la celda A11.(que es la primer celda vacia despues de correr la macro por primera vez).

y asi el proceso seria repetitivo

espero haberme dado a entender. y que puedan ayudarme

Gracias!
SALUDOS

**mjrofra** · 13-03-2010 18:54

Hola Alex,

bienvenido al foro.

prueba con algo así:

Código:

Sub prueba()
    
    With Sheets("Hoja2")
        Range("a1:c10").Cut .Cells(IIf(IsEmpty(.Cells(1, 1)), 1, .Cells(Rows.Count, 1).End(xlUp)(2).Row), 1)
    End With

End Sub

revisa el adjunto, es lo que he usado.

**logroastur** · 13-03-2010 18:54

buenas puedes colocar la siguiente macro en un modulo y luego asociar su ejecución a un boton

Sub Traslado()

Range("A1:C10").Select 'seleccionar rango de los datos
Selection.Copy 'copiar el rango de los datos
Sheets("Hoja2").Select ' seleccionar la hoja donde pegar los datos
Range("A3000").Select ' ir a la celda A3000
Selection.End(xlUp).Select 'subir hasta la ultima celda con datos
ActiveCell.Offset(1, 0).Select ' bajar una celda
ActiveSheet.Paste 'pegar los datos
Application.CutCopyMode = False
Sheets("Hoja1").Select 'seleccionar la hoja 1
Range("A1:C10").Select 'seleccionar rango de los datos
Selection.ClearContents 'borrar la seleccion
Range("a1").Select 'posicionarse en la celda A1
MsgBox "Traslado finalizada, puede volver a ingresar datos" ' lanzar mensaje de que se ha finalizado
End Sub

un saludo

**logroastur** · 13-03-2010 18:57

buenas mjrofra perdona esta con el post editando cuando has contestado, la verdad es que tu macro es más sencilla pero le habia creado una macro para que viese el funcionamiento de las macros y comprendiese mejor los terminos

bueno un saludo

**mjrofra** · 13-03-2010 19:02

Iniciado por logroastur

... le habia creado una macro para que viese el funcionamiento de las macros y comprendiese mejor los terminos...

Pues has hecho un muy buen trabajo y muy claro, seguro tu macro será de gran ayuda para alex.

Yo no he podido con la buena costumbre de comentar los códigos

, que veo que tu sigues y es de beneficio para todos.

Un saludo y gracias por tu aporte.

**alex_27** · 15-03-2010 17:58

Antes que nada muchas gracias por tomarse su tiempo en ayudarme. las aportaciones de ambos me ayudaron, ps basicamente resolvieron exactamente lo que necesitaba. probe con las dos macros y efectivamente dieron con el punto. Gracias. sin embargo como apunte desde un principio, mi idea no es mucha sobre macros. por lo que entiendo una de estas macros funciona a traves de condicion (si se cumple o no, arroja cierto resultado). no obstante no logro entender por completo todo el codigo. aunque ya logre gracias a ustedes lo que requeria, me gustaria pudieran explicarme brevemente que hace exactamente cada instruccion del codigo al correr la macro. en el segundo caso, la otra propuesta de macro en lo personal me resulto mas entendible pues aun sin saber mucho sobre macros, resulta comprensible, solo tengo una duda sobre el rango A3000, aunque supongo que ese rango no necesariamente debe ser ese sino otro tambien, incluso hasta A10000 por ejemplo. bueno agradezco mucho su ayuda. me ha servido de mucho.

Saludos!
Alex

Tema: crear macro que copie datos de una hoja a otra

LinkBack

Herramientas

Visualizar

crear macro que copie datos de una hoja a otra

Re: crear macro que copie datos de una hoja a otra

Re: crear macro que copie datos de una hoja a otra

Re: crear macro que copie datos de una hoja a otra

Re: crear macro que copie datos de una hoja a otra

Re: crear macro que copie datos de una hoja a otra

Temas Similares

[CERRADO] Macro que compare + sume + cuente + copie y pegue en otra columna

Macro que copie una hoja y borre los datos originales

Crear grafico desde macro en otra hoja

eccribir un dato en una hoja y que se copie en otra

Crear una lista desplegable con datos de otra hoja

Marcadores

Marcadores

Permisos de Publicación