copiar automaticamente

"jose miguel ramirez" escribió...

Amigos no se nada de macros pero grave esto que es para que copie unas

filas

(56:57) en ditintas posiciones , pero no se como decirle que las copie en

la

posicion activa que le voy a ir dando.
Gracias


Rows("56:57").Select
Selection.Copy
ActiveSheet.ActiveCell
Selection.Insert Shift:=xlDown
Range("B65").Select
End Sub

saludos
jm

Rows("56:57").Select <=Esto selecciona las filas 56 y 57
a partir de ahí la macro copia lo que haya seleccionado etc, etc
de modo que quitando la primera fila, la macro actuará sobre las celdas que
estén seleccionadas.

Es decir, antes debes seleccionar las filas, con el ratón las que tu quieras
y después
ejecutas la macro.

Lo que no veo muy claro es el destino. ¿Donde lo quieres copiar?
¿Un número de filas fijo después de las seleccionadas? ¿Siempre en el mismo
sitio?

Si lo dejas tal y como está siempre lo copiará a partir de la celda B65

El destino yo se lo doy ubicandolo con el raton ya que no son siempre
constantes (cada tantas filas) y siempre las filas que se copian son las
mimas
gracias de ante mano

Rows("56:57").Select <=Esto selecciona las filas 56 y 57
a partir de ahí la macro copia lo que haya seleccionado etc, etc
de modo que quitando la primera fila, la macro actuará sobre las celdas

que

estén seleccionadas.

Es decir, antes debes seleccionar las filas, con el ratón las que tu

quieras

y después
ejecutas la macro.

Lo que no veo muy claro es el destino. ¿Donde lo quieres copiar?
¿Un número de filas fijo después de las seleccionadas? ¿Siempre en el

mismo

sitio?

Si lo dejas tal y como está siempre lo copiará a partir de la celda B65

"jose miguel ramirez" escribió...

El destino yo se lo doy ubicandolo con el raton ya que no son siempre
constantes (cada tantas filas) y siempre las filas que se copian son las
mimas
gracias de ante mano

Cualquier método que se me ocurre resulta casi tan complicado como copiar y
pegar, quizá no merezca la pena hacer una macro para esto. Pero ahí van unas
ideas
¿Quieres que la macro te pregunte donde colocar las celdas copiadas?

Sería así:

Sub Macro1()

'de dos en dos (las dos filas juntas)

Selection.Copy
fila = InputBox("Introduzca el número de la fila donde quiere copiar la
selección")
Rows(CStr(fila) & ":" & CStr(fila + 1)).Select
ActiveSheet.Paste

End Sub

Sub Macro2()
'de una en una

Selection.Copy
fila = InputBox("Introduzca el número de la fila donde quiere copiar la
selección")
Rows(CStr(fila) & ":" & CStr(fila + 1)).Select
ActiveSheet.Paste

End Sub

> Rows("56:57").Select <=Esto selecciona las filas 56 y 57
> a partir de ahí la macro copia lo que haya seleccionado etc, etc
> de modo que quitando la primera fila, la macro actuará sobre las celdas
que
> estén seleccionadas.
>
> Es decir, antes debes seleccionar las filas, con el ratón las que tu
quieras
> y después
> ejecutas la macro.
>
> Lo que no veo muy claro es el destino. ¿Donde lo quieres copiar?
> ¿Un número de filas fijo después de las seleccionadas? ¿Siempre en el
mismo
> sitio?
>
> Si lo dejas tal y como está siempre lo copiará a partir de la celda B65
>
>

"Individuo Desconocido" escribió...

Sub Macro2()
'de una en una

Selection.Copy
fila = InputBox("Introduzca el número de la fila donde quiere copiar

la

selección")
Rows(CStr(fila) & ":" & CStr(fila + 1)).Select
ActiveSheet.Paste

End Sub

Perdón, me he equivocado.
Copié y pegué la macro2 sin comprobar :-( sería así:

Sub Macro2()
'de una en una

Selection.Copy
fila = InputBox("Introduzca el número de la fila donde quiere copiar la
selección")
Rows(CStr(fila) & ":" & CStr(fila)).Select
ActiveSheet.Paste

End Sub