İki Veri sayfasının karşılaştırılması

[BERAS]

Mavi Ekranda Stok koduna ait Döviz Birim Fiyatı :83,50 usd Veri sayfasında Bu stok koduna ait Döviz Birim Fiyatına En yakın Tutarının Getirmesini istiyorum Bu yapılabilirmi Düşey arada yaptım ama en üsteki değeri buraya getiriyor

 

[uzmanamele]

merhaba
ekteki örnek sizin sorunuzla ilgili.
açıkcası sizin dosyaya uyarlayamadım.
öğleden sonra saat 12 yi geçtiği için olsa gerek

not: örnek çözüm syn Ali'nin diye hatırlıyorum.

 

[Orion1]

EN_YAKIN KTF hazırladım
Ekli dosyayı inceleyiniz.

Function EN_YAKIN(alan As Range, deg As Range)
Dim yakin As Double, sonuc As Double, hcr As Range, sorgu As Double
sorgu = WorksheetFunction.Max(alan) + 1
For Each hcr In alan
    If IsNumeric(hcr.Value) Then
        yakin = hcr.Value - deg
        If yakin < 0 Then yakin = yakin * -1
        If yakin = 0 Then
            EN_YAKIN = hcr.Value
            Exit Function
            ElseIf yakin < sorgu Then
            sorgu = yakin
            sonuc = hcr.Value
        End If
    End If
Next hcr
EN_YAKIN = sonuc
End Function

 

[BERAS]

teşekkür ederim çalıştı. Bi sorunum daha var buna benzer 197000 satırlık bir verim var bunu tek stok için uygular isem doğru çalışıyor birden fazla stok için yapar isem yanlış bilgi veriyor

 

[Orion1]

teşekkür ederim çalıştı. Bi sorunum daha var buna benzer 197000 satırlık bir verim var bunu tek stok için uygular isem doğru çalışıyor birden fazla stok için yapar isem yanlış bilgi veriyor

Dosyanız Hazır.

 

[BERAS]

Dosyanız Hazır.

Bu dosya ilk dosya'dan farkı yok ki