Hoe kopieert u rijen en plakt u deze op basis van datum in een ander werkblad in Excel?
Stel dat ik een gegevensbereik heb en nu de gehele rij wil kopiëren op basis van een specifieke datum om deze vervolgens in een ander werkblad te plakken. Heeft u een goede manier om deze taak in Excel uit te voeren?
Rijen kopiëren en plakken in een ander werkblad op basis van de datum van vandaag
Rijen kopiëren en plakken in een ander werkblad als de datum later is dan vandaag
Rijen kopiëren en plakken in een ander werkblad op basis van de datum van vandaag
Als u rijen wilt kopiëren wanneer de datum vandaag is, past u de volgende VBA-code toe:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications 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 de datum van vandaag:
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 F5 om deze uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd de datumkolom te selecteren op basis waarvan rijen moeten worden gekopieerd; zie screenshot:
4. Klik daarna op OK en selecteer in het nieuwe dialoogvenster een cel op een ander werkblad om daar het resultaat weer te geven; zie screenshot:
5. Klik daarna op OK, waarna de rijen met de datum van vandaag direct in het nieuwe werkblad worden geplakt; zie screenshot:
Rijen kopiëren en plakken in een ander werkblad als de datum later is dan vandaag
Kopieer en plak rijen waarvan de datum groter dan of gelijk aan vandaag is – bijvoorbeeld wanneer de datum vandaag of minstens vijf dagen na vandaag ligt – naar een ander werkblad.
De volgende VBA-code kan u hierbij helpen:
1. Houd de toetsen ALT + F11ingedrukt om het venster Microsoft Visual Basic for Applicationste openen.
2. Klik op Invoegen>Module, en plak de volgende code in het modulevenster.
VBA-code: Rijen kopiëren en plakken als de datum later 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 aanpassen, zoals ‘minder dan vandaag’ of het aantal dagen dat u nodig hebt, in de regel If TypeName(xVal) = „Date" And (xVal "") And (xVal >= Date And (xVal < Date + 5)) Then.
3. Druk vervolgens op F5 om deze code uit te voeren. Selecteer in het dialoogvenster de gegevenskolom die u wilt gebruiken; zie screenshot:
4. Klik vervolgens op OKen selecteer in een nieuw dialoogvenster een cel in een ander werkblad waar u het resultaat wilt weergeven; zie screenshot:
5. Klik op de knop OK. Vervolgens worden de rijen waarvan de datum vandaag is of minstens vijf dagen na vandaag ligt, gekopieerd en geplakt in het nieuwe werkblad, zoals op de volgende screenshot is weergegeven:
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