¿Cómo copiar automáticamente una celda al portapapeles con solo un clic en Excel?
Normalmente, para copiar una celda al portapapeles, primero debes seleccionarla y luego pulsar las teclas Ctrl+C. ¿Quieres copiar automáticamente una celda con solo hacer clic en ella, sin usar combinaciones de teclas? El método de este artículo te puede ayudar.
Copiar automáticamente una celda al portapapeles al hacer clic con código VBA
Copiar automáticamente una celda al portapapeles al hacer clic con código VBA
El siguiente código VBA le permite copiar una celda al portapapeles con solo hacer clic en ella en Excel. Siga estos sencillos pasos.
1. Abra la hoja de cálculo en la que desea que las celdas se copien automáticamente al portapapeles, haga clic con el botón derecho en la pestaña de la hoja y seleccione Ver código en el menú contextual. Vea la captura de pantalla:
2. En la ventana de Microsoft Visual Basic para Aplicaciones que se abre, copie el código VBA en la ventana de código.
Código VBA: Copiar automáticamente una celda al portapapeles al hacer clic
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A9")) Is Nothing Then
Target.Copy
End If
End SubNota: En el código, A1:A9 es el rango de celdas que se copiará automáticamente. Ajústelo según sus necesidades.
3. Pulse las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.
Al hacer clic en cualquier celda del rango A1:A9, su contenido se copiará automáticamente al portapapeles, tal como se muestra en la siguiente captura de pantalla.
A continuación, seleccione una celda de destino y pulse la tecla Intro para pegar el contenido copiado.
Artículos relacionados:
- ¿Cómo copiar datos de celdas conservando la altura de fila y el ancho de columna en Excel?
- ¿Cómo copiar y pegar automáticamente una celda en la hoja de cálculo actual o entre distintas hojas en Excel?
- ¿Cómo desactivar las funciones de cortar, copiar y pegar en Excel?
- ¿Cómo copiar únicamente los bordes del rango seleccionado en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos