een tijd vinden

[pasan]

Met onderstaande code vind ik in kolom C een datum (Label1).
in kolom D staan tijden
hoe vind ik nu de eerste cel in kolom C waarbij in Kolom D een tijd staat vanaf 07:00:00 uur

Private Sub CommandButton4_Click()
    Dim FindString As Date
    Dim Rng As Range
    FindString = Label1
    With Sheets("Blad1").Range("C:C")
        Set Rng = .Find(What:=FindString, _
                        After:=.Cells(.Cells.Count), _
                        LookIn:=xlFormulas, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False)
        If Not Rng Is Nothing Then
        
            MsgBox Rng.Row
        Else
            MsgBox "Nothing found"
        End If
        
    End With
End Sub

mijn doel is om vanaf de datum van gisteren en dan vanaf 07:00:00 uur tot vandaag 07:00:00 uur het bereik te kopieeren

 

[daan108]

Je vraag is mij niet helemaal duidelijk.
Zoek je de eerste tijd in kolom D >= 07:00 vanaf het rijnummer dat je met je code gevonden hebt? En wil je dan weer de datum (kolom C) weergeven die je bij die tijd gevonden hebt?

 

[pasan]

ik heb het inmiddels met behulp van een hulp kolom opgelost
in de hulp kolom komen ook datums te staan, als het uur getal van de huidige tijd < 7 dan dan komt in de hulp kolom de datum vandaag (dag) -1 te staan (van gisteren dus).
Nu filter ik op de hulp kolom datums en krijg ik de juiste gegevens te zien van 7 uur tot 06:59:59 omdat vanaf 00:00:00 uur de datum van gisteren krijgt.