En Yakın Tarihi Bul

[baydeniro]

Merhaba arkadaşlar. Tarih ve diğer bilgileri olduğu bir datada girilen tarihten önceki ve yanında "X" yazılı olan tarihlerden girilen tairhe en yakın olanını bulmak mümkün mü ? örnek dosya ekte.

 

[baydeniro]

Merhaba arkadaşlar. Tarih ve diğer bilgileri olduğu bir datada girilen tarihten önceki ve yanında "X" yazılı olan tarihlerden girilen tairhe en yakın olanını bulmak mümkün mü ?

 

[dEdE]

Merhaba,

Aşağıdaki kodu modüle yapıştırıp dener misiniz?

Sub YakınBul()
For i = [A65536].End(3).Row - 1 To 2 Step -1
    If Cells(i, 2).Value = "X" Then MsgBox "Aradığnız tarih : " & Cells(i, 1).Value: Exit Sub
Next
End Sub

 

[baydeniro]

Sayın dEdE çok teşekkür ederim. Kod şu şekilde çalışıyor : A sütununda en son tarihten geriye doğru en uygunu buluyor. Peki kendi belirlediğimiz tarihi dikkate almasını sağlayabilir miyiz ?

 

[dEdE]

...kendi belirlediğimiz tarihi dikkate almasını sağlayabilir miyiz ?

Merhaba,
C1 hücresine yazacağınız tarihe göre yukarıya doğru arar.

Sub YakınBul()
Set Aranan = Sheets("Sheet1").Range("A:A").Find(Sheets("Sheet1").Range("C1").Value, , xlValues, xlWhole)
If Not Aranan Is Nothing Then
    For i = Aranan.Row - 1 To 2 Step -1
        If Cells(i, 2).Value = "X" Then MsgBox "Aradığnız tarih : " & Cells(i, 1).Value: Exit Sub
    Next
End If
End Sub

 

[baydeniro]

Çok teşekkürler sayın dEdE. Tam istediğim gibi olmuş. Sağlıcakla kalın.

 

[baydeniro]

Sayın dEdE, bilgiyi hücreye yazdırmak istersek kodu nasıl değiştirebiliriz !!

 

[dEdE]

Merhaba,
D1 hücresine yazar.

        If Cells(i, 2).Value = "X" Then Cells(1, 4).Value = Cells(i, 1).Value: Exit Sub

 

[baydeniro]

Çok teşekkür ederim sayın dEdE.