DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=EĞER(B2=B3;"";MAK(A$1:A1)+1)
Function sonuncu(deg As Range, alan As Range)
Dim k As Range, son
If deg = "" Then Exit Function
For Each k In alan
If UCase(Replace(Replace(k.Value, "ı", "I"), "i", "İ")) = _
UCase(Replace(Replace(deg, "ı", "I"), "i", "İ")) Then
son = k.Offset(0, 1).Value
End If
Next k
sonuncu = son
End Function