Macro para copiar filas

22/11/2006 - 20:19 por nicojose2000 | Informe spam
Hola. Alguien me puede ayudar? Necesito una macro para copiar filas completas
en otra hoja, por ejemplo al pulsar el número de fila.

Gracias.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
23/11/2006 - 03:05 | Informe spam
hola, nico !

Alguien me puede ayudar?
Necesito una macro para copiar filas completas en otra hoja, por ejemplo al pulsar el numero de fila.



el siguiente ejemplo copia la fila 11 de la hoja1 -> a la fila 7 de a hoja2 [con todo y todo]

Sub Copiar_una_fila_entre_hojas()
Dim Fila_origen As Integer, Fila_destino As Integer
Fila_origen = 11
Fila_destino = 7
' OJO: la siguiente instruccion SUSTITUYE lo que tenga 'Fila_destino' '
Worksheets("hoja1").Rows(Fila_origen).Copy Worksheets("hoja2").Cells(Fila_destino, 1)
End Sub

si lo que necesitas es que la fila 'copiada'... -> desplace la fila 'ocupada' una fila abajo y se incruste 'en su lugar'...

Sub Copiar_una_fila_entre_hojas()
Dim Fila_origen As Integer, Fila_destino As Integer
Fila_origen = 11
Fila_destino = 7
Worksheets("hoja1").Rows(Fila_origen).Copy
Worksheets("hoja2").Cells(Fila_destino, 1).Insert (xlDown)
Application.CutCopyMode = False
End Sub

[seguramente] habra algunas 'cosillas' que no coincidan entre mis supuestos y tu realidad :-(
comprenderas que con el 'volumen' de detalles que has expuesto en tus consultas -???-

si cualquier duda [o informacion adicional... -> mas 'precisa']... comentas ?
saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida