Soru Veri çekme hakkında

[emre67z]

Merhaba,

SİCİL/TC numaralarından ad-soyad seçimi. Belli düzen içerisinde yer alan sicil/tc numaralarının yanında yer alan sütuna ad-soyad yazılabilir mi?.

sicil/tc no başlığı altındaki verileri. ad-soyad başlıklı sutünlara yazdırmak istiyorum. "1.grup 2.grup ve 3.grup" toplam 3 grupluk alanın yanına otomatik veri çekilecek
toplam 1200 satırlık bir veri havuzu var.

aynı zamanda 1.grup 2.grup ve 3.grup sütunları altında virgül ile ayrılmış en fazla 8 tc/sicil no bulunabilir.
Yardımcı olan herkese teşekkür ederim.

 

[emre67z]

Private Sub Worksheet_Change(ByVal Target As Range)
deger = "": satir = Target.Row
If Target.Column = 7 Then
For Each i In Split(Target.Value, ",")
If Not Sayfa1.Range("D").Find(What:=i, LookAt:=xlWhole) Is Nothing Then
deger = deger & "," & Sayfa1.Cells(Sayfa1.Range("D").Find(What:=i, LookAt:=xlWhole).Row, 3)
End If
Next i
Sayfa2.Cells(satir, 9) = Mid(deger, 2, Len(deger))
End If
End Sub


yine bu forumdan faydanarak elde ettiğim bir kod var ancak bu kullanışlılık açısından elverişli değil.
Mantık olarak sayfa1 de yer alan verilere bakarak.
sayfa ikide 9 sütuna verileri yazmakta.