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
Ö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
Son düzenleme: