............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Copia de datos de una hoja a otra

Ver el tema anterior Ver el tema siguiente Ir abajo

Copia de datos de una hoja a otra

Mensaje por cbyto el Sáb Jul 25, 2009 4:57 pm

Buenas tardes a todos, espero que esten disfrutando de este fin de semana (aunque haga frio y este nublado)
Los molesto esta ves para ver si me pueden orientar de como hacer algo......
Tengo una macro que copia los datos de la hoja1 a la hoja2.
En la hoja1 uso la columna A de la fila 2a la 6.....al darle un click a un boton me copi esos datos a la hoja2, pero en una fila (en la fila siguiente a la ultima usada)....Hasta ahi todo bien.......lo que no puedo lograr hacer es que me copie (estando en la hoja1) los datos de la fila 9 a la 13 a la hoja2 peo debajo de los datos copiados en el mismo paso (A2:A6).

Adjunto el archivo con lo que tengo hecho y asi se entiende mejor (espero).....

[Tienes que estar registrado y conectado para ver este vínculo]

cbyto

Masculino Cantidad de envíos : 58
Edad : 39
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Copia de datos de una hoja a otra

Mensaje por avalencia el Dom Jul 26, 2009 10:26 pm

Una opcion siguiendo tus mismas pautas:

Private Sub CommandButton1_Click()

filalibre = Sheets("Oca").Range("A65536").End(xlUp).Row + 1

If ActiveCell.Address = "$A$2" Then

Sheets("Oca").Cells(filalibre, 1) = Date
Sheets("Oca").Cells(filalibre, 2) = ActiveSheet.Range("a2")
Sheets("Oca").Cells(filalibre, 4) = ActiveSheet.Range("a3")
Sheets("Oca").Cells(filalibre, 5) = ActiveSheet.Range("a4")
Sheets("Oca").Cells(filalibre, 6) = ActiveSheet.Range("a5")
Sheets("Oca").Cells(filalibre, 7) = ActiveSheet.Range("a6")

Exit Sub
End If

If ActiveCell.Address = "$A$9" Then

Sheets("Oca").Cells(filalibre, 1) = Date
Sheets("Oca").Cells(filalibre, 2) = ActiveSheet.Range("a9")
Sheets("Oca").Cells(filalibre, 4) = ActiveSheet.Range("a10")
Sheets("Oca").Cells(filalibre, 5) = ActiveSheet.Range("a11")
Sheets("Oca").Cells(filalibre, 6) = ActiveSheet.Range("a12")
Sheets("Oca").Cells(filalibre, 7) = ActiveSheet.Range("a13")

Exit Sub
End If

MsgBox "Selecciona la celda A2 o A9"

End Sub


Abraham

avalencia
MS MVP
MS MVP

Masculino Cantidad de envíos : 99
Edad : 38
Ciudad - Pais : Lima - Peru
Version de Excel : 2003 - 2007 - 2010
Fecha de inscripción : 28/06/2009

http://abrahamexcel.webcindario.com/

Volver arriba Ir abajo

Re: Copia de datos de una hoja a otra

Mensaje por cbyto el Lun Jul 27, 2009 9:12 pm

Gracias Abraham. Funciona de 10!!
Ahora te consulto algo.....hay forma de que haga la copia de los "2 cuadros" al msmo tiempo sin seleccionar la celda

Saludos

cbyto

Masculino Cantidad de envíos : 58
Edad : 39
Ciudad - Pais : Argentina
Version de Excel : 2003-2007-2010
Fecha de inscripción : 31/07/2008

Volver arriba Ir abajo

Re: Copia de datos de una hoja a otra

Mensaje por avalencia el Lun Jul 27, 2009 11:23 pm

Pues, cuestion de simplemente usar la logica. Te recomiendo comenzar a leer sobre VBA, pero, por sobretodo, tratar de entender los codigos usados:

Private Sub CommandButton1_Click()

filalibre = Sheets("Oca").Range("A65536").End(xlUp).Row + 1

Sheets("Oca").Cells(filalibre, 1) = Date
Sheets("Oca").Cells(filalibre, 2) = ActiveSheet.Range("a2")
Sheets("Oca").Cells(filalibre, 4) = ActiveSheet.Range("a3")
Sheets("Oca").Cells(filalibre, 5) = ActiveSheet.Range("a4")
Sheets("Oca").Cells(filalibre, 6) = ActiveSheet.Range("a5")
Sheets("Oca").Cells(filalibre, 7) = ActiveSheet.Range("a6")

filalibre = Sheets("Oca").Range("A65536").End(xlUp).Row + 1

Sheets("Oca").Cells(filalibre, 1) = Date
Sheets("Oca").Cells(filalibre, 2) = ActiveSheet.Range("a9")
Sheets("Oca").Cells(filalibre, 4) = ActiveSheet.Range("a10")
Sheets("Oca").Cells(filalibre, 5) = ActiveSheet.Range("a11")
Sheets("Oca").Cells(filalibre, 6) = ActiveSheet.Range("a12")
Sheets("Oca").Cells(filalibre, 7) = ActiveSheet.Range("a13")

End Sub

Abraham

avalencia
MS MVP
MS MVP

Masculino Cantidad de envíos : 99
Edad : 38
Ciudad - Pais : Lima - Peru
Version de Excel : 2003 - 2007 - 2010
Fecha de inscripción : 28/06/2009

http://abrahamexcel.webcindario.com/

Volver arriba Ir abajo

Re: Copia de datos de una hoja a otra

Mensaje por Contenido patrocinado Hoy a las 11:25 pm


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.