Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Excel - copiar celdas activas a otra hoja

Vista:
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
Responder
información
Otras secciones de LWP con contenido similar...
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
Comentar