Meerdere cellen selecteren als er voldaan is aan een voorwaarde

[wpayanda]

Hallo,

Hoe kan ik meerdere cellen onder elkaar selecteren als er aan 1 eis voldaan is. Voorbeeld:

In kolom C worden datums ingevoerd
In cel G3 van een andere sheet wordt ook datum ingevoerd.
Als de datum in kolom C van de eerste sheet overeenkomt met de datum in cel G3 van sheet 2 dan moet de hele rij van sheet 1 met dezelfde datum gekopierd worden,

Echter kan het voorkomen dat er 3 cellen onder elkaar dezelfde datum hebben. dan moet hij dus alle drie cellen met de bijbehorende rijen kopieren en in sheet 3 plakken.

ik gebruik momenteel volgende code om datums te controleren:

Sub datum()
Sheets("Gegevens").Activate
For Each c In Range("C6:C101")
    If c.Value = Worksheets("Formulier").Range("G3").Value Then
    c.Select
    ActiveCell.EntireRow.Columns("K:M").Select
    Selection.copy
    
    Sheets("Formulier").Activate
    Range("G22").Select
    ActiveSheet.Paste
    Range("B3").Select
      Sheets("Gegevens").Select
          Application.CutCopyMode = False
    Sheets("Formulier").Activate
            End If
           Next c
End Sub

Hoe kan ik dit oplossen?

 

[Wigi]

Sub datum()

    For Each c In Sheets("Gegevens").Range("C6:C101")
        
        If c.Value = Sheets("Formulier").Range("G3").Value Then _
            c.Offset(0, 8).Resize(1, 3).Copy Sheets("Formulier").Range("G22")
        End If
        
    Next
    
End Sub

Wigi

 

[wpayanda]

bedankt Wigi, het probleem is opgelost!:thumb: