Hoe verplaatst u een gehele rij naar een ander werkblad op basis van een celwaarde in Excel?
Dit artikel helpt u bij het verplaatsen van een gehele rij naar een ander werkblad op basis van een celwaarde.
Verplaats Gehele rij naar een ander werkblad op basis van een celwaarde met VBA-code
Verplaats Gehele rij naar een ander werkblad op basis van een celwaarde met Kutools voor Excel
Verplaats Gehele rij naar een ander werkblad op basis van een celwaarde met VBA-code
Zoals in de onderstaande schermafbeelding te zien is, moet u de gehele rij van Blad1 naar Blad2 verplaatsen wanneer het woord „Done” voorkomt in kolom C. Probeer de volgende VBA-code.
1. Druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het venster.
VBA code 1: Move entire row to another sheet based on cell value
Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
xRg(K).EntireRow.Delete
If CStr(xRg(K).Value) = "Done" Then
K = K - 1
End If
J = J + 1
End If
Next
Application.ScreenUpdating = True
End SubOpmerking: In de code is Blad1 het werkblad dat de rij bevat die u wilt verplaatsen, en is Blad2 het doelwerkblad waarheen u de rij wilt verplaatsen. „C:C” is de kolom met de betreffende waarde, en „Done” is de specifieke waarde op basis waarvan u de rij wilt verplaatsen. Pas deze waarden aan aan uw eigen situatie.
3. Druk op de toets F5 om de code uit te voeren. De rij in Blad1 die voldoet aan de criteria wordt dan onmiddellijk naar Blad2 verplaatst.
Opmerking: De bovenstaande VBA-code verwijdert rijen uit de oorspronkelijke gegevens nadat ze naar een opgegeven werkblad zijn verplaatst. Als u rijen alleen wilt kopiëren op basis van een celwaarde in plaats van ze te verwijderen, gebruik dan de onderstaande VBA-code 2.
VBA code 2: Copy entire row to another sheet based on cell value
Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
J = J + 1
End If
Next
Application.ScreenUpdating = True
End SubVerplaats Gehele rij naar een ander werkblad op basis van een celwaarde met Kutools voor Excel
Bent u nieuw met VBA-code? Dan stel ik u hier het handige hulpprogramma Specifieke cellen selecteren van Kutools voor Excel voor. Met dit hulpprogramma selecteert u in een handomdraai alle rijen op basis van één of meerdere celwaarden in een werkblad — en kopieert u de geselecteerde rijen direct naar het gewenste doelwerkblad. Volg hiervoor de onderstaande stappen.
1. Selecteer de kolommen met de celwaarde waarop u rijen wilt verplaatsen en klik vervolgens op Kutools > Selecteren > Specifieke cellen selecteren. Zie schermafbeelding:
2. Kies in het venster Specifieke cellen selecteren dat verschijnt Gehele rij in het gedeelte Selecteer type, selecteer Gelijk aan bij de keuzelijst Specificeer type, voer de celwaarde in het tekstvak in en klik op de knop OK.
Er verschijnt een nieuw venster: Specifieke cellen selecteren, waarin het aantal geselecteerde rijen wordt weergegeven. Tegelijkertijd zijn alle rijen met de opgegeven waarde in de geselecteerde kolom geselecteerd. Zie schermafbeelding:
3. Druk op de toetsencombinatie Ctrl+C om de geselecteerde rijen te kopiëren en plak ze vervolgens in het gewenste doelwerkblad.
Opmerking: Als u rijen naar een ander werkblad wilt verplaatsen op basis van twee verschillende celwaarden, bijvoorbeeld „Done” of „Processing”, kunt u de voorwaarde Ofinschakelen in het venster Specifieke cellen selecterenzoals in de onderstaande schermafbeelding wordt getoond:
Wilt u een gratis proefversie (30 dagen) van deze tool gebruiken?Klik dan hier om deze te downloaden en volg daarna bovenstaande stappen om de bewerking toe te passen.
Gerelateerde artikelen:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins