Note: The other languages of the website are Google-translated. Back to English

Hoe maak je een opdrachtknop om gegevens in Excel te kopiëren en te plakken?

Stel dat u regelmatig een reeks cellen naar een andere plaats moet kopiëren nadat u de gegevens hebt gewijzigd, dan zal de handmatige kopieer- en plakmethode lastig en tijdrovend zijn. Hoe zorg je ervoor dat deze kopieer- en plak-affaire automatisch wordt uitgevoerd? In dit artikel wordt uitgelegd hoe u een opdrachtknop gebruikt om gegevens met slechts één klik te kopiëren en te plakken.

Maak een opdrachtknop om gegevens met VBA-code te kopiëren en te plakken


Maak een opdrachtknop om gegevens met VBA-code te kopiëren en te plakken

Ga als volgt te werk om gegevens automatisch te kopiëren en te plakken wanneer u op een opdrachtknop klikt.

1. Voeg een Command-knop in door te klikken Ontwikkelaar > Invoegen > Commandoknop (ActiveX-besturingselement). Zie screenshot:

2. Teken een opdrachtknop in uw werkblad en klik er met de rechtermuisknop op. Selecteer Bekijk code vanuit het contextmenu.

3. In het opduiken Microsoft Visual Basic voor toepassingen venster, vervang dan de originele code in het codevenster door onderstaande VBA-code.

VBA-code: gebruik de Command-knop om gegevens in Excel te kopiëren en te plakken

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("A1:C17 ").Copy
            xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If

    Application.ScreenUpdating = True
End Sub

Opmerking:: In de code is CommandButton1 de naam van uw ingevoegde Command-knop. A1: C17 is het bereik dat u moet kopiëren en J1: L17 is het doelbereik om gegevens te plakken. Wijzig ze indien nodig.

4. druk op anders + Q toetsen om de Microsoft Visual Basic voor toepassingen venster. En schakel de ontwerpmodus uit onder het tabblad Ontwikkelaar.

5. Klik nu op de Command-knop, alle gegevens in bereik A1: C17 worden gekopieerd en geplakt in bereik J1: L17 zonder de celopmaak.


Gerelateerde artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren 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. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, 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 vermindert elke dag honderden muisklikken!
officetab onderkant
Comments (43)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Ik heb deze functie in mijn werkboek gebruikt. Ik gebruik actieve x-knoppen om gegevens binnen hetzelfde blad op meerdere bladen te kopiëren en te plakken. Er zijn echter bladen zonder actieve x-knoppen of macro's die gegevens uit de respectieve velden op het blad geplakt krijgen die ik niet wil. Helpen?
Dom
Deze opmerking is gemaakt door de moderator op de site
Kan ik de code hebben die bereik I4: L26 van Sheet2 (TransferSheet genaamd) (knop zal op dit blad) naar Sheet1 (genaamd JobsToDo) op C-rij zal kopiëren (1e regel die leeg is, omdat hier constant gegevens aan worden toegevoegd, alstublieft
Razvan Gaina
Deze opmerking is gemaakt door de moderator op de site
Hoe kunt u de code wijzigen om de resultaten op een andere pagina in de werkmap te plakken? en hoe krijg je een rij invoegen voordat je de nieuwe gegevens erin plaatst, zodat deze deze niet overschrijven?
Jason
Deze opmerking is gemaakt door de moderator op de site
Hallo Jason,
Als u de resultaten naar andere werkbladen in de werkmap wilt plakken, probeer dan de onderstaande VBA-code.

Private Sub CommandButton1_Click ()
Dim xSheet, xDWS als werkblad
Dim xFNum als geheel getal
Dim xSRg als bereik

On Error Resume Next
Set xSRg = Application.InputBox ("Selecteer de cel om het bereik te plakken:", "Kutools for Excel", xTxt, , , , , 8)
Als xSRg niets is, sluit dan Sub af

Application.ScreenUpdating = False
Bereik ("A1:C17"). Kopiëren
xSRg.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.ScreenUpdating = True

End Sub
crystal
Deze opmerking is gemaakt door de moderator op de site
hoe is de formule voor ons om bestanden te kopiëren?
plak het dan op het volgende blad. en plak de volgende maak een spatie of blijf naar beneden gaan zonder de vorige plak te verwijderen.
Azam as
Deze opmerking is gemaakt door de moderator op de site
Goede dag,
De onderstaande VBA-code kan u helpen het probleem op te lossen. Probeer het alsjeblieft. Dank u.

Private Sub CommandButton1_Click ()
Dim xSheet, xDWS als werkblad
Dim xFNum als geheel getal
Dim xSRg als bereik

On Error Resume Next
Set xSRg = Application.InputBox ("Selecteer de cel om het bereik te plakken:", "Kutools for Excel", xTxt, , , , , 8)
Als xSRg niets is, sluit dan Sub af

Application.ScreenUpdating = False
Bereik ("A1:C17"). Kopiëren
xSRg.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.ScreenUpdating = True

End Sub
crystal
Deze opmerking is gemaakt door de moderator op de site
Wat als ik een wachtrij voor plakken wil maken?
Verder uit te leggen. Ik klik op CommandButton1 en kopieer vervolgens A1. Als ik plakken heb gebruikt, de kopie van A1 - Dan wil ik A2 kopiëren zonder op een andere knop te klikken, zodat ik A2 meteen ergens anders kan plakken. Dan Als ik plakken heb gebruikt, de kopie van A2 kopieer dan A3. Als dat mogelijk is? Kan dit ook op de achtergrond werken als ik een normaal Excel-blad gebruik, en probeer deze actie uit te voeren waar ik uit Excel kopieer en dan in een heel ander programma plak, zoals een internetbrowser, een ander programma, word, txt-bestand, enzovoort ?

Dit artikel was in ieder geval zeer nuttig, heel erg bedankt!
Magnus
Deze opmerking is gemaakt door de moderator op de site
Hallo Magnus,
Sorry kan je daar niet mee helpen. Bedankt voor je reactie.
crystal
Deze opmerking is gemaakt door de moderator op de site
Ik wil deze stap uitbreiden... Na het plakken van de werkelijke waarden en niet van formules... moet ik de nieuwe cel kopiëren en in een ander programma plakken dat niet Excel is, als ik gewoon op de knop moet klikken kopieer de formule van een specifieke cel en voorbij de werkelijke waarde in een andere, kopieer vervolgens die nieuwe waarde naar het klembord van Windows om in een andere app te plakken. Ik hoop dat dit logisch is, en waardeer uw hulp bij het weten hoe u de nieuwe code moet toevoegen ... Ik weet wat ik wil dat het doet, alleen niet bekend met hoe het te coderen ...
Bedankt
Jeff McCollum
Deze opmerking is gemaakt door de moderator op de site
Hoi,
De code is bijgewerkt in het artikel, probeer het alstublieft. Bedankt voor je reactie.
crystal
Deze opmerking is gemaakt door de moderator op de site
Zou het mogelijk zijn om met de opdrachtknop het geselecteerde bereik onmiddellijk in een bepaald blad (in de volgende lege cel) te plakken in plaats van elke keer in te voeren waar u de gegevens wilt plakken?
Adam
Deze opmerking is gemaakt door de moderator op de site
Hallo Adam,
De onderstaande VBA-code kan u helpen het probleem op te lossen.
U moet de "Blad4" en "A1:C17" in de code vervangen door uw opgegeven blad en bereik.

Private Sub CommandButton1_Click ()
Dim xSWName als string
Dim xSheet als werkblad
Dim xPSheet als werkblad
Dim xIntR als geheel getal
xSWName = "Blad4"
On Error Resume Next
Application.ScreenUpdating = False
Stel xSheet = ActiveSheet in
Als xSheet.Name <> "Definities" en xSheet.Name <> "fx" en xSheet.Name <> "Needs" dan
xSheet.Bereik ("A1:C17"). Kopiëren
Stel xPSheet = Worksheets.Item (xSWName) in
xIntR = xPSheet.UsedRange.Rows.count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = True
End Sub
crystal
Deze opmerking is gemaakt door de moderator op de site
heel goed, ik moet vaak kopiëren en plakken is het mogelijk om een ​​keuze te maken om een ​​rij gegevens in 3 rijen of 5 rijen te plakken, wat ik maar wil?
Mohammed shoman
Deze opmerking is gemaakt door de moderator op de site
Sorry kan je daar niet mee helpen
crystal
Deze opmerking is gemaakt door de moderator op de site
meneer, hoe kopieer je het bereik van de cel in het huidige werkblad en plak je het in een ander werkblad?
MangkaNorr
Deze opmerking is gemaakt door de moderator op de site
Hoi,
De onderstaande VBA-code kan u helpen het probleem op te lossen.
U moet de "Blad4" en "A1:C17" in de code vervangen door uw opgegeven blad en bereik.

Private Sub CommandButton1_Click ()
Dim xSWName als string
Dim xSheet als werkblad
Dim xPSheet als werkblad
Dim xIntR als geheel getal
xSWName = "Blad4"
On Error Resume Next
Application.ScreenUpdating = False
Stel xSheet = ActiveSheet in
Als xSheet.Name <> "Definities" en xSheet.Name <> "fx" en xSheet.Name <> "Needs" dan
xSheet.Bereik ("A1:C17"). Kopiëren
Stel xPSheet = Worksheets.Item (xSWName) in
xIntR = xPSheet.UsedRange.Rows.count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = True
End Sub
crystal
Deze opmerking is gemaakt door de moderator op de site
Als ik dit niet in de huidige werkmap wil kopiëren, maar naar een andere werkmap (die nog steeds niet is geopend) in Excel. Hoe wijzig ik deze VBA-code dienovereenkomstig?
Robbert
Deze opmerking is gemaakt door de moderator op de site
Hallo Robbert,
Sorry kan je daar niet mee helpen. Bedankt voor het commentaar.
crystal
Deze opmerking is gemaakt door de moderator op de site
Ik heb een vraag. Ik heb blad 1 met een kolom met datum b3:b33 en ik wil dat dat gekopieerd wordt naar blad 2 B33:b63 de tekst ervan, maar ik heb hetzelfde formaat nodig voor tekst, dwz kleurgrootte
Jim
Deze opmerking is gemaakt door de moderator op de site
Hallo auteur,

Het artikel dat je hierboven noemde is erg nuttig voor mij. Ik ben niet gewend om code en commando uit te blinken. Ik moet het nog steeds weten in plaats van dit artikel. Ik ben in orde met het kopiëren en plakken in het volgende blad. Maar ik moet nog steeds weten "hoe te plakken en toe te voegen aan een nieuwe regel in het volgende blad elke keer dat ik op de knop druk". Anders worden mijn gegevens op het volgende blad elke keer vervangen. Ik zou u zeer dankbaar zijn en kijk uit naar uw antwoord.
Kyaw Ye Mino
Deze opmerking is gemaakt door de moderator op de site
Hallo Kyaw Ye Min,
Sorry dat ik zo laat reageer. Volg de stappen en vervang de code door onderstaande. In de code is Sheet4 het bestemmingswerkblad waarnaar u gegevens kopieert, wijzig dit en het gekopieerde bereik A1: C17 indien nodig. Bedankt voor je reactie.

Private Sub CommandButton1_Click ()
Dim xSWName als string
Dim xSheet als werkblad
Dim xPSheet als werkblad
Dim xIntR als geheel getal
xSWName = "Blad4"
On Error Resume Next
Application.ScreenUpdating = False
Stel xSheet = ActiveSheet in
Als xSheet.Name <> "Definities" en xSheet.Name <> "fx" en xSheet.Name <> "Needs" dan
xSheet.Bereik ("A1:C17"). Kopiëren
Stel xPSheet = Worksheets.Item (xSWName) in
xIntR = xPSheet.UsedRange.Rows.Count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = True
End Sub
crystal
Deze opmerking is gemaakt door de moderator op de site
Hallo daar, help alstublieft. Ik heb hetzelfde nodig als hierboven, maar ik hoef alleen maar de actieve cel in een nieuwe regel (indien mogelijk boven eerdere vermeldingen) in een ander werkblad te plakken. Stel alle hulp hierbij zeer op prijs. Met vriendelijke groet
Chris
Deze opmerking is gemaakt door de moderator op de site
hallo, help mijn geval, ik wil een knop hebben om macro te genereren waar ik excel heb en de gegevens exporteren waar in de <" "> naar woord, bedankt
Yesaya
Deze opmerking is gemaakt door de moderator op de site
Hoi,
Sorry dat ik je punt niet begreep. Het zou fijn zijn als je zou kunnen uitleggen met meer details van wat je probeert te doen.
crystal
Deze opmerking is gemaakt door de moderator op de site
Ik ben op zoek naar hulp waarbij een gebruiker op een rijnummer kan klikken en vervolgens op de opdrachtknop kan drukken om een ​​kopie van die rij te maken en deze in de rij eronder in te voegen.
Ted Jillet
Deze opmerking is gemaakt door de moderator op de site
Goede dag,
Sorry kan je daar nog mee helpen. Bedankt voor je reactie.
crystal
Deze opmerking is gemaakt door de moderator op de site
meester bagaimana jika berbeda blad dan gegevens kopiëren yg diinginkan
contoh blad1 hanya data kolom B & kolom D kopie ke blad2
dank je
angela
Deze opmerking is gemaakt door de moderator op de site
stuur alstublieft VBA-code voor het kopiëren van enkele celinhoud met behulp van de opdrachtknop klik zonder het tekstvak te gebruiken, zodat u in elke toepassing zoals kladblok, msword kunt plakken
SJ
Deze opmerking is gemaakt door de moderator op de site
Is het mogelijk om een ​​knop te maken die slechts één geselecteerde cel op het ene blad naar een ander blad kopieert? Bedankt!
Lexi
Deze opmerking is gemaakt door de moderator op de site
Hallo lexi,
De onderstaande VBA-code kan u helpen het probleem op te lossen. Wijzig "Blad3" in de bladnaam als u dat wilt.
Selecteer een cel en druk op de opdrachtknop om deze te laten werken.

Private Sub CommandButton1_Click ()
Dim xSWName als string
Dim xSheet als werkblad
Dim xPSheet als werkblad
Dim xIntR als geheel getal
xSWName = "Blad3"
On Error Resume Next
Application.ScreenUpdating = False
Stel xSheet = ActiveSheet in
Als xSheet.Name <> "Definities" en xSheet.Name <> "fx" en xSheet.Name <> "Needs" dan
Selectie.Huidige Regio.Selecteren
Selection.Copy
Stel xPSheet = Worksheets.Item (xSWName) in
xIntR = xPSheet.UsedRange.Rows.Count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = True
End Sub
crystal
Deze opmerking is gemaakt door de moderator op de site
Hallo!
Is er een manier om een ​​code te maken zodat ik een knop een bereik kan laten kopiëren (laten we zeggen A1:D5).
En plak het vervolgens in A6:D10.

En als ik nogmaals op de knop druk, wordt A1:D5 naar A11:D15 gekopieerd.

Enzovoorts?
Jonas
Deze opmerking is gemaakt door de moderator op de site
Hallo Jonas,
Sorry kan je daar niet aan helpen. Bedankt voor je reactie.
crystal
Deze opmerking is gemaakt door de moderator op de site
Dit is fantastisch - ik heb het aangepast voor mijn s.sheet, maar ik wil dat het dynamischer is en labels gebruikt in plaats van de cellocaties hard te coderen.
Dwz in het bereik van A2-A6 zoek de naam 'Jamie' en zoek dan de naam in kolom K2 en plak

Ik heb ook elke klik nodig om +1 te geven en hetzelfde kopiëren en plakken uit te voeren, maar naar de volgende kolom, dwz

klik op 1 - plakt in Q1, Klik op 2 - plak in Q2 enz

Voorbeeld:

Kolom A Kolom B ...... Kolom K Kolom L
1. Naam Aantal gewerkte uren Naam Q1 Q2 Q3 Q4
2. Jamie 22 Sammy <Plak hier>
3. Sammy 40 Judith <Plak hier>
4. Judith 18 Jamie <Plak hier>
5. Tammy 16 Keith <Plak hier>
6. Keith 42 Tammy <Plak hier>


Alle hulp zou zeer op prijs worden gesteld.
Abi
Deze opmerking is gemaakt door de moderator op de site
hoe te coderen voor het kopiëren van cellen van bereik a1 tot a5 om achtereenvolgens in c1 en naar de volgende beschikbare cel te plakken?
Teddy
Deze opmerking is gemaakt door de moderator op de site
en ook, kopieer en plak cel één voor één..
Dank u voor uw hulp!
Teddy
Deze opmerking is gemaakt door de moderator op de site
Hallo jongens. dit heeft wat hulp nodig, alsjeblieft. Ik moet een 10*-knop maken in mijn werkblad (Blad1) die 3 cellen zal kopiëren, bijvoorbeeld: Blad1, A1, B1, C1. plak dat dan in Blad2 A1, B1, C1. als ik dan op knop 4 klik, bijvoorbeeld: Blad1, A4, B4, C4, moet ik dit in Blad2, A2, B2, C2 plakken. Als ik op Knop 2 klik, moet deze passen in Blad2, A3, B3, C3. Ik hoop dat dit zinvol is.
ryan
Er zijn nog geen reacties geplaatst
Laad meer
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties