Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe voorkom je kopiëren en plakken over cel met vervolgkeuzelijst in Excel?

Voor een cel met een valideringslijst voor gegevensvalidatie, wanneer u inhoud van een andere cel kopieert en plakt, is de vervolgkeuzelijst verdwenen en vervangen door de nieuwe inhoud voor plakken. In sommige gevallen wilt u voorkomen dat andere inhoud in de cel wordt gekopieerd en geplakt met de vervolgkeuzelijst. Wat zou u doen om ermee om te gaan? In dit artikel krijgt u een VBA-methode om dit probleem aan te pakken.

Voorkom kopiëren en plakken over cel met vervolgkeuzelijst in Excel


Snel dubbele vermeldingen in een kolom voorkomen in Excel

Doordat uw bureau Kutools for Excel's Voorkom dubbele invoer hulpprogramma, kunt u gemakkelijk dubbele vermeldingen in een kolom in Excel voorkomen.

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel - De beste Office-productiviteitstool lost de meeste van uw Excel-problemen op
  • Alles hergebruiken: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en hergebruik ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.

pijl blauwe rechterbel Voorkom kopiëren en plakken over cel met vervolgkeuzelijst in Excel


1. Open het werkblad met de vervolgkeuzelijst die u wilt kopiëren en plakken.

2. druk op anders + F11 toetsen tegelijkertijd om de Microsoft Visual Basic-toepassingen venster.

3. In de Microsoft Visual Basic-toepassingen venster, dubbelklik op de huidige werkbladnaam in het linkerdeelvenster en kopieer en plak de onderstaande VBA-code in de codebewerker. Zie screenshot:

VBA-code: voorkom kopiëren en plakken over cel met vervolgkeuzelijst

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

4. druk op anders + Q om het te verlaten Microsoft Visual Basic-toepassingen venster.

5. Wanneer u inhoud in een cel plakt met een vervolgkeuzelijst, verschijnt er een dialoogvenster om u eraan te herinneren dat plakken niet is toegestaan. Zie screenshot:

Notes: Deze VBA werkt alleen in plakken met één cel. Als u in meerdere cellen kopieert en plakt, zal het niet werken.


pijl blauwe rechterbelGerelateerde artikelen:


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Eva · 1 years ago
    I works BUT after you put the code you cannot UNDO anything. Not a single step back is allowed.
  • To post as a guest, your comment is unpublished.
    Dilip · 2 years ago
    No, I did not figure it out. I didn't try to resolve after a while.
  • To post as a guest, your comment is unpublished.
    arvind raj · 2 years ago
    did you manage to resolve the issue of copying and pasting into multiple cells? Thanks in advance!
  • To post as a guest, your comment is unpublished.
    Amit Jain · 2 years ago
    Hi Dilip,

    are you able to fix the issue of allowing data using paste values
  • To post as a guest, your comment is unpublished.
    Amit Jain · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    jepson · 3 years ago
    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
    • To post as a guest, your comment is unpublished.
      G · 3 years ago
      Jepson, did you manage to resolve the issue of copying and pasting into multiple cells? Thanks in advance!
  • To post as a guest, your comment is unpublished.
    Abhijeet · 3 years ago
    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
  • To post as a guest, your comment is unpublished.
    chandan · 3 years ago
    Hi,

    above mention vba code is not run.kindly resolve.
  • To post as a guest, your comment is unpublished.
    Jai · 3 years ago
    Hi,

    While I running this macro I got this debug error "Application.Undo". Pls resolve this ASAP
  • To post as a guest, your comment is unpublished.
    Dilip · 4 years ago
    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.
    • To post as a guest, your comment is unpublished.
      Rao · 2 years ago
      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