işte benden size güzel bir function

[MuratFe]

Buradaki fonksiyonumuz aranan değerin bulunduğu satırdaki farklı bir sutundaki veriyi getirir ve ListBox1 adındaki liste kutusuna ekler.

Örnekle açıklamak gerekirse

A Sütunuda ad ve soyad bilgileri var bu birden fazla aynı bilgi olabilir.
B sutununda Yakının adı ve sayao bilgileri var
Buna göre
A Sütunu Bsütunu

Mehmet Oğlu
Ali Oğlu
Nuriye Eşi
Mehmet Eşi
Veli Oğlu
Mehmet Kızı
Nuriye Kızı


Private Sub Worksheet_Change(ByVal Target As Range)
ListBox1.Clear
Doldur (Range("c10").Value)
'Burda sayfa1 den C10 hücresinin değerini gönderiyoruz.
'Mehmet değerini gönderelim
End Sub

Sub işlemini bitirdikten sonra liste kutusu şu şekilde olur

Oğlu
Eşi
Kızı


Sub Doldur(Aranan As String)
Dim i As Integer
For i = 1 To 250
If Sayfa2.Cells(i, 1).Value = Aranan Then
ListBox1.AddItem Sayfa2.Cells(i, 2).Value
End If
Next i
End Sub
Buda örnek

Ekli dosyayı görüntüle 11621