Düşeyara formulu

[alfa&omega]

merhaba arkadaslar, ekte dosyada sorunun acık bı sekılde gorebılırsınız..25.000 satırlık bır verıde a sutunundakı verılerı b sutununda arayıp c sutununda buna karsılık gelen verıyı bulma

 

[Orion1]

Düşeyara formülü görevini yapmış.Siz tam olarak ne istiyorsunuz ? Dağa açıklayıcı bilgi vermeniz gerekiyor.

 

[alfa&omega]

duseyara ısımlerı tamamen aynı olan hucrelerın karsılıklarını bulmus. benım ıstedıgım a sutunundakı verılerın ilk 10 harfıne gore arama yapması ve bauna karslılık gelenlerı yazması...

 

[Orion1]

duseyara ısımlerı tamamen aynı olan hucrelerın karsılıklarını bulmus. benım ıstedıgım a sutunundakı verılerın ilk 10 harfıne gore arama yapması ve bauna karslılık gelenlerı yazması...

İlk 10 harfe göremi bulmak istiyorsunuz? ne bir eksik ne bir fazla.

 

[Orion1]

Sizin için bir KTF hazırladım.Ekli dosyayı inceleyiniz.

Function D_ARA(kriter As Range, alan As Range)
Dim hucre As Range
For Each hucre In alan
    If LCase(Replace(Replace(Left(kriter, 10), "I", "ı"), "İ", "i")) = LCase(Replace(Replace(Left(hucre, 10), "I", "ı"), "İ", "i")) Then
        deg = Cells(hucre.Row, "E").Value
    End If
Next
D_ARA = deg
End Function