COPIAR I PEGAR CON UN DOBLE CLICK

4 envíos / 0 nuevos
Último envío
GATO
Imagen de GATO
Offline
última acción: Hace 7 años 9 meses
Nivel 1 - 200 puntos
alta: 14/12/2011 - 00:24
Puntos: 260
COPIAR I PEGAR CON UN DOBLE CLICK

Como hago para copiar i pegar con un doble click sobre una celda qualquiera

ejemplo:

Tengo que copiar  una celda qualquiera de un listado i pegarlo a una celda determinada de otra hoja excel.

os agradecere que me ayudeis, estoy perdido.

gracias

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 19 horas 39 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
evento before double click

lo único que se me ocurre es utilizar el evento antes del doble clic de la hoja (no hay un evento doble clic)

Este evento está en la hoja, así que el código tendría que estar en la hoja de destino, donde vas a hacer doble clic.

para que el doble clic no active la edición de la celda, que es lo que hace por defecto, cancelaremos con Cancel=true

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Cancel = True   'para no activar el modo edición de la celda

    Target.PasteSpecial xlPasteAll    'pegamos en la celda selecionada

End Sub

 

Aquí tienes otro truco que intercepta el evento doble clic de la aplicación. Está copiado/adaptado de http://excelexperts.com/VBA-Tips-Double-Click este puede ser más interesante, porque el código puedes colocarlo en cualquier lugar, no tiene por qué estar en la hoja. Tiene una macro para activar y otra para desactivarlo. simplemente asocia el evento dobleclic de Excel a una macro

Sub IniciarPegarConDobleClic()

    Application.OnDoubleClick = "PegarConDobleClic"

End Sub

Sub FinalizarPegarConDobleClic()

    Application.OnDoubleClick = ""

End Sub

 

Sub PegarConDobleClic()

    On Error Resume Next

    Selection.PasteSpecial

End Sub



 

------
Ya sé Excel, pero necesito más.

GATO
Imagen de GATO
Offline
última acción: Hace 7 años 9 meses
Nivel 1 - 200 puntos
alta: 14/12/2011 - 00:24
Puntos: 260
Copiar i pegar con un Doble Click

 

Lo he probado pero no me sale.

lo he resuelto parcialmente en la hoja Excel que os mando. Aunque de esta manera no puedo hacer más operaciones en la hoja de las que ya estén establecidas.

Seguro que se puede mejorar.

gracias.

AdjuntoTamaño
File libro2.xlsm20.48 KB
Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
HolaParece bastante correcto

Hola

Parece bastante correcto tu código. Hace exactamente lo que quieres que haga.

Podrías mejorarlo en los siguientes aspectos:

  1. Localiza la celda seleccionada en la hoja 1. Lanza el resto únicamente si las celdas están en el rango que te interesa, en tu caso en la columna con datos.
  2. Antes de hacer el pegado de los datos, selecciona la celda correspondiente de la hoja 2. De esta manera no necesitarás tener bloqueada toda la hoja.
  3. Combinando 1 y 2, podrías seleccionar una celda destino en función del rango de las celdas origen. Es decir, si pinchas en la columna X, te lo copia en la celda B1, y si pinchas en la columna Y, te lo copia en la celda H8, por ejemplo.
  4. Podrías sustituir el Copy y Paste por un manejo de variables de esta manera:

              Dim VALOR

              VALOR = Selection.value

              Sheets("Hoja2").Select

              Cells(4,8).select        'Por ejemplo, la celda H4

              Selection.Value = VALOR

Un saludo