Saltar al contenido principal

¿Cómo evitar copiar y pegar sobre la celda con la lista desplegable en Excel?

Para una celda con lista desplegable de validación de datos, cuando copie contenido de otra celda y lo pegue, la lista desplegable desaparecerá y se reemplazará con el nuevo contenido pegado. En algunos casos, desea evitar copiar y pegar otro contenido en la celda con la lista desplegable, ¿qué haría para solucionarlo? En este artículo, obtendrá un método VBA para lidiar con este problema.

Evite copiar y pegar sobre la celda con la lista desplegable en Excel


Evite copiar y pegar sobre la celda con la lista desplegable en Excel

1. Abra la hoja de trabajo con la celda de la lista desplegable que desea evitar copiar y pegar.

2. Prensa otro + F11 teclas simultáneamente para abrir el Aplicaciones de Microsoft Visual Basic ventana.

3. En el Aplicaciones de Microsoft Visual Basic ventana, haga doble clic en el nombre de la hoja de trabajo actual en el panel izquierdo, luego copie y pegue el código VBA a continuación en el editor de código. Ver captura de pantalla:

Código de VBA: evite copiar y pegar sobre la celda con la lista desplegable

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20200903
    Dim xValue As String
    Dim xCheck1 As String
    Dim xCheck2 As String
    Dim xRg As Range
    Dim xArrCheck1() As String
    Dim xArrCheck2() As String
    Dim xArrValue()
    Dim xCount, xJ As Integer
    Dim xBol As Boolean
'    If Target.Count > 1 Then
'        Exit Sub
'        End If
    xCount = Target.Count
    ReDim xArrCheck1(1 To xCount)
    ReDim xArrCheck2(1 To xCount)
    ReDim xArrValue(1 To xCount)
    Application.EnableEvents = False
    On Error Resume Next
    xJ = 1
    For Each xRg In Target
        xArrValue(xJ) = xRg.Value
         xArrCheck1(xJ) = xRg.Validation.InCellDropdown
        xJ = xJ + 1
    Next

    Application.Undo

    xJ = 1
    For Each xRg In Target
        xArrCheck2(xJ) = xRg.Validation.InCellDropdown
        xJ = xJ + 1
    Next

    xBol = False
    For xJ = 1 To xCount
        If xArrCheck2(xJ) <> xArrCheck1(xJ) Then
            xBol = True
            Exit For
        End If
    Next

    If xBol Then
       MsgBox "The selected cells containg data validation drop-down lists, no pasting allowed."
    Else
        xJ = 1
        For Each xRg In Target
            xRg.Value = xArrValue(xJ)
            xJ = xJ + 1
        Next

    End If

    Application.EnableEvents = True
End Sub

4. Prensa otro + Q llaves para salir del Aplicaciones de Microsoft Visual Basic ventana.

5. Cuando pegue contenido en una celda con una lista desplegable, aparecerá un cuadro de diálogo para recordarle que no se permite pegar. Ver captura de pantalla:

Note: Este VBA solo funciona en el pegado de una sola celda. Si copia y pega en varias celdas, no funcionará.

Cree fácilmente una lista desplegable con casillas de verificación en Excel:

La Lista desplegable con casillas de verificación utilidad de Kutools for Excel puede ayudarlo a crear fácilmente una lista desplegable con casillas de verificación en un rango específico, hoja de trabajo actual, libro de trabajo actual o todos los libros de trabajo abiertos según sus necesidades.
¡Descargue la función completa de prueba gratuita de 30 días de Kutools para Excel ahora!


Artículos relacionados:

¿Cómo crear una lista desplegable con múltiples casillas de verificación en Excel?
Muchos usuarios de Excel tienden a crear una lista desplegable con varias casillas de verificación para seleccionar varios elementos de la lista cada vez. En realidad, no puede crear una lista con varias casillas de verificación con Validación de datos. En este tutorial, le mostraremos dos métodos para crear una lista desplegable con múltiples casillas de verificación en Excel. Este tutorial proporciona el método para resolver el problema.

Crear una lista desplegable de otro libro de trabajo en Excel
Es bastante fácil crear una lista desplegable de validación de datos entre hojas de trabajo dentro de un libro. Pero si los datos de la lista que necesita para la validación de datos se encuentran en otro libro de trabajo, ¿qué haría? En este tutorial, aprenderá a crear una lista desplegable de otro libro en Excel en detalle.

Cree una lista desplegable de búsqueda en Excel
Para una lista desplegable con numerosos valores, encontrar uno adecuado no es tarea fácil. Anteriormente, hemos introducido un método para completar automáticamente la lista desplegable cuando ingresa la primera letra en el cuadro desplegable. Además de la función de autocompletar, también puede hacer que la lista desplegable se pueda buscar para mejorar la eficiencia de trabajo al encontrar los valores adecuados en la lista desplegable. Para hacer búsquedas en la lista desplegable, pruebe el método de este tutorial.

Completar automáticamente otras celdas al seleccionar valores en la lista desplegable de Excel
Digamos que ha creado una lista desplegable basada en los valores en el rango de celdas B8: B14. Cuando selecciona cualquier valor en la lista desplegable, desea que los valores correspondientes en el rango de celdas C8: C14 se completen automáticamente en una celda seleccionada. Para resolver el problema, los métodos de este tutorial le harán un favor.

Más tutoriales para la lista desplegable ...

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I works BUT after you put the code you cannot UNDO anything. Not a single step back is allowed.
This comment was minimized by the moderator on the site
No, I did not figure it out. I didn't try to resolve after a while.
This comment was minimized by the moderator on the site
did you manage to resolve the issue of copying and pasting into multiple cells? Thanks in advance!
This comment was minimized by the moderator on the site
Hi Dilip, are you able to fix the issue of allowing data using paste values
This comment was minimized by the moderator on the site
Hi Dilip, are you able to fix the issue of allowing data using paste values..i am also facing the same issue..help me on this please
This comment was minimized by the moderator on the site
Thank you very much !! works fine for me !!! copying into a single cell is restricted. but if i copy a list of cells and paste.., the paste is accepted. let me see if i can tune this up ..thanks anyways
This comment was minimized by the moderator on the site
Jepson, did you manage to resolve the issue of copying and pasting into multiple cells? Thanks in advance!
This comment was minimized by the moderator on the site
Private Sub Worksheet_Change(ByVal Target As Range) Dim xValue As String Dim xCheck1 As String Dim xCheck2 As String If Target.Count > 1 Then Exit Sub End If Application.EnableEvents = False xValue = Target.Value On Error Resume Next xCheck1 = Target.Validation.InCellDropdown On Error GoTo 0 Application.Undo On Error Resume Next xCheck2 = Target.Validation.InCellDropdown On Error GoTo 0 If xCheck1 = xCheck2 Then Target = xValue Else MsgBox "No pasting allowed!" End If Application.EnableEvents = True End Sub This Macro not work when copy from different workbook or worksheet then so please tell me how to avoid these things also
This comment was minimized by the moderator on the site
Hi, above mention vba code is not run.kindly resolve.
This comment was minimized by the moderator on the site
Hi, While I running this macro I got this debug error "Application.Undo". Pls resolve this ASAP
This comment was minimized by the moderator on the site
This works but when I paste value this is allowing data which is not from the drop down list. Any way to restrict any value which is not from the list.
This comment was minimized by the moderator on the site
Hi Dilip, Did you able to resolve the issue, i too having similar issue. I have to allow copy,paste only for drop down values in the data validation cell other i have to restrict. Can you share your solution. Thanks Rao
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations