Help on loop

[tigersden]

I am using a user form to enter a start date & end date. The dates are found using the find method and set the rows where bith dates are on the worksheet.
I need advice on how to loop to set the 2 variables for the dates rows at present I have the same code twice but using the dates see below:

        'Start Date 
        strStartDate = Format(txtStartDT, "Short Date")
 
        'Find Start Date Row
        Set rng = rngCol.Find(What:=CDate(strStartDate), _
                After:=Cells(1), _
                LookIn:=xlValues, _
                LookAt:=xlPart, _
                SearchOrder:=xlByRows, _
                SearchDirection:=xlNext, _
                MatchCase:=False, _
                SearchFormat:=False)
            
    'Set Start Date Row
    lngStartRow = rng.Row
    
    'End Date
    strEndDate = Format(txtEndDT, "Short Date")
 
        'Find Stop Date
        Set rng = rngCol.Find(What:=CDate(strEndDate), _
                          After:=Cells(1), _
                          LookIn:=xlValues, _
                          LookAt:=xlPart, _
                          SearchOrder:=xlByRows, _
                          SearchDirection:=xlNext, _
                          MatchCase:=False, _
                          SearchFormat:=False)
    
        
    'Set Stop Date Row For Copying
    lngStopRow = rng.Row

Thanks in advance

 

[Von Pookie]

I haven't tested this, but I think you could use a small array:

Dim myDates As Variant, i As Long

'set start date and end date
strstartdate = Format(txtStartDT, "Short Date")
strenddate = Format(txtEndDT, "Short Date")

'put the variables in an array
myDates = Array(strstartdate, strenddate)

For i = LBound(myDates) To UBound(myDates)
    Set rng = rngCol.Find(What:=CDate(myDates(i)), _
    After:=Cells(1), LookIn:=xlValues, LookAt:=xlPart)
    
    If Not rng Is Nothing Then
        If i = 0 Then
            lngStartRow = rng.Row
        Else
            lngStopRow = rng.Row
        End If
    Else
        MsgBox "Value was not found"
    End If
Next i

 

[tigersden]

Von Poolie thanks for your help!