- Katılım
- 7 Ekim 2010
- Mesajlar
- 12
- Excel Vers. ve Dili
- Office 2021 İngilizce
Merhabalar,
=İNDİS(B$1:B$5;KÜÇÜK(EĞER(A$1:A$5="Hatkoy";
SATIR(A$1:A$5);"");SATIR()))
Bu formülde mükerrer gelenleri engelleyebilir miyiz? Var olanlar listeye tekrar gelmemeli.
Makro olarak aşağıdaki kodlar ile bir hücreye yanyana aralarına virgül koyarak veri çekebiliyorum.
İhtiyacım olan verilen alt alta gelmesi ve mükerrer olanların gelmemesidir.
Yardımcı olabilir misiniz?
Function ÇOKLUDÜŞEYARA(ByVal aranan As String, ByVal AramaAlani As Range, ByVal Kacinci As Integer) As String
Dim metin As String, veri As Variant, i As Long
If aranan = "" Then Exit Function
veri = AramaAlani.Value2
For i = 1 To UBound(veri)
If CStr(veri(i, 1)) = aranan Then
metin = metin & veri(i, Kacinci) & ","
End If
Next i
ÇOKLUDÜŞEYARA = Mid(metin, 1, Len(metin) - 1)
End Function
=İNDİS(B$1:B$5;KÜÇÜK(EĞER(A$1:A$5="Hatkoy";
SATIR(A$1:A$5);"");SATIR()))
Bu formülde mükerrer gelenleri engelleyebilir miyiz? Var olanlar listeye tekrar gelmemeli.
Makro olarak aşağıdaki kodlar ile bir hücreye yanyana aralarına virgül koyarak veri çekebiliyorum.
İhtiyacım olan verilen alt alta gelmesi ve mükerrer olanların gelmemesidir.
Yardımcı olabilir misiniz?
Function ÇOKLUDÜŞEYARA(ByVal aranan As String, ByVal AramaAlani As Range, ByVal Kacinci As Integer) As String
Dim metin As String, veri As Variant, i As Long
If aranan = "" Then Exit Function
veri = AramaAlani.Value2
For i = 1 To UBound(veri)
If CStr(veri(i, 1)) = aranan Then
metin = metin & veri(i, Kacinci) & ","
End If
Next i
ÇOKLUDÜŞEYARA = Mid(metin, 1, Len(metin) - 1)
End Function