Merhaba arkadaşlar,
Sitemizin sayfalarında gördüğüm aşağıdaki çokludüşeyara formülünde bulunan değerler benzer değerler olabiliyor. Düşeyara formülündeki gibi 0 koyup tıpatıp aynı değeri getirir şekilde yapabilirmiyiz?Örnek kz-7011 i bul dediğimde kz-7011-01 i de getiriyor.
Function ÇOKLUDÜŞEYARA(aranan As String, alan As Range, sutun As Integer) As String
If aranan = "" Or sutun = 0 Then GoTo cik
veri = alan.Value2
For i = 1 To UBound(veri)
If veri(i, 1) Like "*" & aranan & "*" Then
ÇOKLUDÜŞEYARA = ÇOKLUDÜŞEYARA & veri(i, sutun) & "&"
End If
Next i
ÇOKLUDÜŞEYARA = Mid(ÇOKLUDÜŞEYARA, 1, Len(ÇOKLUDÜŞEYARA) - 1)
Exit Function
cik: ÇOKLUDÜŞEYARA = ""
End Function
Sitemizin sayfalarında gördüğüm aşağıdaki çokludüşeyara formülünde bulunan değerler benzer değerler olabiliyor. Düşeyara formülündeki gibi 0 koyup tıpatıp aynı değeri getirir şekilde yapabilirmiyiz?Örnek kz-7011 i bul dediğimde kz-7011-01 i de getiriyor.
Function ÇOKLUDÜŞEYARA(aranan As String, alan As Range, sutun As Integer) As String
If aranan = "" Or sutun = 0 Then GoTo cik
veri = alan.Value2
For i = 1 To UBound(veri)
If veri(i, 1) Like "*" & aranan & "*" Then
ÇOKLUDÜŞEYARA = ÇOKLUDÜŞEYARA & veri(i, sutun) & "&"
End If
Next i
ÇOKLUDÜŞEYARA = Mid(ÇOKLUDÜŞEYARA, 1, Len(ÇOKLUDÜŞEYARA) - 1)
Exit Function
cik: ÇOKLUDÜŞEYARA = ""
End Function
