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.217 visitas
1 respuesta
Mensajes realizados anteriormente (No estaban la última vez que entraste)copiar celdas activas a otra hoja
Victor hugo (04/09/2011 14:11:16)

copiar celdas activas a otra hoja

Publicado por vanesa (1 intervención) el 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

copiar celdas activas a otra hoja

Publicado por Victor hugo (3 intervenciones) el 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