La Web del Programador: Comunidad de Programadores
http://www.lawebdelprogramador.com/foros/Excel/1282279-copiar_celdas_activas_a_otra_hoja.html
Mensajes realizados anteriormente (No estaban la última vez que entraste)copiar celdas activas a otra hoja
vanesa (29/08/2011 05:02:51)
1.166 visitas
1 respuesta
copiar celdas activas a otra hoja
Victor hugo (04/09/2011 14:11:16)
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

copiar celdas activas a otra hoja

Autor:vanesa (1 intervención)
Fecha:29/08/2011 05:02:51
hola no tengo mucha conocimiento en esto y ya busque por todo google.
pero estoy tratando de que me copie las celdas activas pero me copia todo como tengo que hacer muchas gracias.
Range("H2", Range("P18").End(xlDown)).Select 'seleciona desde A2 hacia abajo

Range("H2", Range("P18").End(xlToRight)).Select 'selecciona desde A2 hacia la derecha

'copia pedido

Range("H2:P18").Select
Selection.Copy

'pega pedido
Range("R2:Z18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

'pega pedido en listado de ventas

Selection.Copy
Sheets("LISTADO DE VENTAS").Select
ActiveWindow.SmallScroll Down:=-9
Range("A2").Select
Selection.Insert Shift:=xlDown
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

copiar celdas activas a otra hoja

Autor:Victor hugo (3 intervenciones)
Fecha:04/09/2011 14:11:16
Acabo de leer tu inquietud Vanesa, no lo tengo tan claro lo que necesitas pero puede que te ayude este codigo en algo.

Sub AyudaCopia()
' Activamos la Hoja1 y copia la seleccion actual

Worksheets("Hoja1").Activate
ActiveCell.CurrentRegion.Select
Selection.Copy

' Selecciona la celda A2 y copiamos la selccion anterior

Range("A10:A10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

End Sub