Düşeyara yerine elma...

[zeliha]

Arkadaşlar ben şunu istiyorum: Excelde düşeyara fonksiyonu gibi bir makro yazayım, formüle düşeyara değilde elma yazayım ve düşeyaranın yaptığı işi aynen yapsın.Yardımlarınız için teşekkür ederim.

 

[Leoncio]

Bu dediğiniz fonksiyon ile olur. Aşağıdaki fonksiyonu deneyin.

Formülü aşağıdaki şekilde kullanmalısınız.
=elma(D3;A1:B3;1)


Function elma(arancak, alan As Range, sütun As Integer)
Dim aranacak As String
For Each a In alan
If a.Value = arancak Then
bu = a.Offset(0, sütun) & b & bu
elma = bu
b = ", "
End If
Next a
If elma = "" Then
elma = "veri yok"
End If
End Function