Saltar al contenido

macro copiar pegar


Invitado Juan Pelfort

Recommended Posts

Invitado Juan Pelfort

Hola a todos de nuevo, no se como se hace lo siguiente, necesito copiar datos de una celda a otra pero, la macro funciona y me los copia, pero en la celda de donde se copian me queda el rango de datos copiado MARCADO, como si le faltara un enter o algo así, envío un sencillo ejemplo de lo me pasa, quiero que se copien los contenidos de las regiones en la hoja primera y se copian pero en la hoja de la región correspondiente queda marcada, falta hacer algo ahí, pero no sé, 

Gracias

Prueba de macro.xlsm

Enlace a comentario
Compartir con otras webs

'Application.CutCopyMode = False

Sub IrACataluña()
'
' IrACataluña Macro
' Ir a Cataluña
'

'
    Sheets("Cataluña").Select
    Range("C2:C5").Select
    Selection.Copy
    Sheets("Datos").Select
    Range("C2").Select
    ActiveSheet.Paste
	Application.CutCopyMode = False
    Range("A1").Select
End Sub

Hola, tienes que colocar Application.CutCopyMode = False

Enlace a comentario
Compartir con otras webs

Invitado Juan Pelfort

Hola Rolano, en primer lugar gracias, luego te diré que he probado tu aportación al tema y si ya no queda marcado como pendiente de ejecutar algo (el rango con lineas discontinuas y moviéndose, esperando algo) esto ya no lo hace, pero ...

si ejecuto la macro y vuelvo a IrACatalunña, me sigue marcada (seleccionada) fija como una celda que le pones el cursor, se puede eliminar esto ?

Muy agradecido rolano

Enlace a comentario
Compartir con otras webs

Sub IrACataluña()
'
' IrACataluña Macro
' Ir a Cataluña
'

'
    Sheets("Cataluña").Select
    Range("C2:C5").Select
    Selection.Copy
    Range("A1").Select 'celda donde queires que se estacione.
    Sheets("Datos").Select
    Range("C2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

Sub IrAComunidadValenciana()
'
' IrAComunidadValenciana Macro
' Ir a Comunidad Valenciana

   Worksheets("Comunidad Valenciana").Range("C2:C6").Copy Worksheets("Datos").Range("C2")

End Sub

Hola, así para todas las rutinas. La segunda macro es mas corta.

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.