Hoe rijen kopiëren en plakken naar een ander werkblad op basis van datum in Excel? 

Stel dat ik een reeks gegevens heb, en nu wil ik de volledige rijen kopiëren op basis van een specifieke datum en ze vervolgens plakken in een ander werkblad. Heb je goede ideeën om dit te doen in Excel?

Rijen kopiëren en plakken naar een ander werkblad op basis van vandaag's datum

Rijen kopiëren en plakken naar een ander werkblad als de datum groter is dan vandaag

Rijen kopiëren en plakken naar een ander werkblad op basis van vandaag's datum

Als u de rijen moet kopiëren als de datum vandaag is, past u de volgende VBA-code toe:

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Rijen kopiëren en plakken op basis van vandaag's datum:

Sub CopyRow() 'Updateby Extendoffice Dim xRgS As Range, xRgD As Range, xCell As Range Dim I As Long, xCol As Long, J As Long Dim xVal As Variant On Error Resume Next Set xRgS = Application.InputBox("Please select the date column:", "KuTools For Excel", Selection.Address, , , , , 8) If xRgS Is Nothing Then Exit Sub Set xRgD = Application.InputBox("Please select a destination cell:", "KuTools For Excel", , , , , , 8) If xRgD Is Nothing Then Exit Sub xCol = xRgS.Rows.Count Set xRgS = xRgS(1) Application.CutCopyMode = False J = 0 For I = 1 To xCol Set xCell = xRgS.Offset(I - 1, 0) xVal = xCell.Value If TypeName(xVal) = "Date" And (xVal <> "") And (xVal = Date) Then xCell.EntireRow.Copy xRgD.Offset(J, 0) J = J + 1 End If Next Application.CutCopyMode = True End Sub 

3. Nadat u de bovenstaande code hebt geplakt, drukt u op de F5-toets om deze code uit te voeren, en er verschijnt een pop-upvenster dat u eraan herinnert de datumkolom te selecteren waarop u de rijen wilt kopiëren, zie screenshot:

4. Klik vervolgens op de knop OK, in een ander pop-upvenster selecteert u een cel in een ander werkblad waar u de resultaten wilt uitvoeren, zie screenshot:

5. Klik vervolgens op de knop OK, nu worden de rijen waarvan de datum vandaag is onmiddellijk in het nieuwe werkblad geplakt, zie screenshot:

Rijen kopiëren en plakken naar een ander werkblad als de datum groter is dan vandaag

Om de rijen te kopiëren en plakken waarvan de datum groter of gelijk is aan vandaag, bijvoorbeeld als de datum gelijk is aan of meer dan 5 dagen sinds vandaag, kopieer en plak de rijen dan naar een ander werkblad.

De volgende VBA-code kan u helpen:

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Rijen kopiëren en plakken als de datum groter is dan vandaag:

Sub CopyRow() 'Updateby Extentoffice Dim xRgS As Range, xRgD As Range, xCell As Range Dim I As Long, xCol As Long, J As Long Dim xVal As Variant On Error Resume Next Set xRgS = Application.InputBox("Please select the date column:", "KuTools For Excel", Selection.Address, , , , , 8) If xRgS Is Nothing Then Exit Sub Set xRgD = Application.InputBox("Please select a destination cell:", "KuTools For Excel", , , , , , 8) If xRgD Is Nothing Then Exit Sub xCol = xRgS.Rows.Count Set xRgS = xRgS(1) Application.CutCopyMode = False J = 0 For I = 1 To xCol Set xCell = xRgS.Offset(I - 1, 0) xVal = xCell.Value If TypeName(xVal) = "Date" And (xVal <> "") And (xVal >= Date And (xVal < Date + 5)) Then xCell.EntireRow.Copy xRgD.Offset(J, 0) J = J + 1 End If Next Application.CutCopyMode = True End Sub 

Opmerking: In de bovenstaande code kunt u de criteria wijzigen, zoals minder dan vandaag of het aantal dagen zoals u nodig heeft in het scriptcode If TypeName(xVal) = "Date" And (xVal <> "") And (xVal >= Date And (xVal < Date + 5)) Then.

3. Druk vervolgens op de F5-toets om deze code uit te voeren, selecteer in het pop-upvenster de gegevenskolom die u wilt gebruiken, zie screenshot:

4. Klik vervolgens op de knop OK, in een ander pop-upvenster selecteert u een cel in een ander werkblad waar u de resultaten wilt uitvoeren, zie screenshot:

5. Klik op de knop OK, nu zijn de rijen waarvan de datum gelijk is aan of meer dan 5 dagen sinds vandaag gekopieerd en geplakt in het nieuwe werkblad zoals in de volgende screenshot wordt weergegeven: