İki tarih arasında küçük olan tarihi getirme

[ersoyalan]

Arkadaşlar merhaba,

Koşula bağlı iki tarih arasındaki birinci küçük tarihi nasıl getirebilirim.

A sütununda ID
B sütununda Tarih.

D sütununda ID
E sütununda Arıza Başlangıç
F sütununda Arıza Bitiş

Benim yapmak istediğim ise şudur.

AA-D2 sütunu eşleşiyor ise E-F sütunlarındaki tarihlerin arasına denk den gelen en küçük tarihi B sütununda bulup G2 hücresine en küçük tarihi nasıl yazdırmak.

Yardımlarınızı rica ederim.

 

[YUSUF44]

A1, D1'e eşitse E1 ve F1'den küçük olanı getirir:

=EĞER(A1=D1;MİN(E1;F1);"")

 

[ersoyalan]

Merhabalar,

Ufak bir güncellemeye ihtiyacım olacak. E1 - F1 den küçük olan değil.
E1 F1 aralığına den gelen küçük tarihi B sütununda bulunması gerekli.

 

[YUSUF44]

Başlangıç olarak şöyle bir kod yazdım, bir modüle kopyalayıp denediğimde doğru sonuç verdiğini gördüm, siz de deneyin gerekirse güncellemeye çalışırım:

Sub kontrol()
If [A1] = [D1] Then
tarih = ""
For i = 1 To Cells(Rows.Count, "B").End(3).Row
    If Cells(i, "B") >= [E1] And Cells(i, "B") <= [F1] Then
    yenitarih = Cells(i, "B")
        If yenitarih < tarih Then
            tarih = yenitarih
        End If
    End If
Next
[g1] = tarih
End If
End Sub