Çoklu kritere göre maksimum tarihi bulmak

[mehmet dur]

Merhabalar

A sütununda isimlerin, B sütununda izin türlerinin (Yıllık izin-Mesai izni-Ücretsiz izin vb.) ve C sütununda tarihlerin olduğu (Tarih listesi karışık) "veri" sayfasından , Combobox'tan seçtiğim ismin enson hangi tarihte Yıllık izne çıktığını bulmak istiyorum. Bilgisayarda kısıtlama olduğu için dosya paylaşamıyorum, yardımlarınızı bekliyorum.

 

[ÖmerFaruk]

Userformda mı sayfada mı bu combobox?
Formülle çok daha kolay ve ve hızlı çözüm var. Sorunuzu Makrolarda sormuşsunuz. Makro olarak mı istiyorsunuz?

 

[mehmet dur]

Combobox userformda ve mümkünse formül olarak değil kod olarak istiyorum

 

[ÖmerFaruk]

Örnek dosya olmadığı için deneyemiyorum.
Aşağıdak bir userform içindeki Combobox1 deki değer göre çalışan kod var.
Kendinize uyarlarsınız.

Sub EnSonTarih()
Dim myDate As Date, Bul As Range
    Set Bul = Range("A:A").Find(ComboBox1.Value, , xlValues, xlWhole)
    Set Bul = Range("A:A").Find(TextBox1, , , xlWhole)
    If Not Bul Is Nothing Then
        Adres = Bul.Address
        Do
            If Bul.Offset(0, 1) = "Yıllık izin" Then If Bul.Offset(0, 2) > myDate Then myDate = Bul.Offset(0, 2)
            Set Bul = Range("A:A").FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
    End If
    Sonuc = myDate
End Sub

 

[mehmet dur]

Deneyip geri dönüş yapacağım teşekkürler.

 

[mehmet dur]

Sayın ÖmerFaruk bey kod denedim olmadı ama hala denemeye devam ediyorum

 

[ÖmerFaruk]

Userform oluşturdum. Combobox yerine TextBox2 deki ismi aratıp sonucu TextBox1 yazdım.
Küçük bir liste hazırladım. Sonuçlar doğru.

Private Sub CommandButton1_Click()
Call Me.EnSonTarih
End Sub
Sub EnSonTarih()
Dim myDate As Date, Bul As Range
    Set Bul = Range("A:A").Find(TextBox2)
    If Not Bul Is Nothing Then
        Adres = Bul.Address
        Do
            If Bul.Offset(0, 1) = "Yıllık izin" Then If Bul.Offset(0, 2) > myDate Then myDate = Bul.Offset(0, 2)
            Set Bul = Range("A:A").FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
    End If
    TextBox1 = myDate
End Sub

 

[mehmet dur]

Tamam şimdi oldu, sonuçları dediğiniz gibi doğru gösteriyor. Çok teşekkür ederim hayırlı çalışmalar.