aynı kişiye ait bilgileri listelemek

[benoman]

ekteki örnek dosyada bir veri sayfadaki aynı kişiye ait bilgilerin başka bir sayfada sadece adı girilen kişilerin bilgileri görünecek şekilde düzenlenmesini istiyorum..bildiğim bir kaç formülü denedim ama beceremedim. örnek dosyada bazı açıklamalar yaptım.istediğim bir sayfadaki aynı sütünda bulunan aynı isimlere ait satırları başka bir tabloya ver kaybına yada karışıklığa neden olmadan aktarmak . becerebilecekmiyim bilmiyorum.. bilgi ve yardımlarınız için şimdiden teşekürler..

 

[Selçuk1]

sn. benoman;

formunuzun Tespi Formu sayfasında L sütunundaki hücre birleştirmeyi kaldırıp aşağıdaki kodları da bir modul içerisine kopyalarsanız istediğiniz gerçekleşmiş olur. dosyanız ektedir. inceler misiniz?

Sub guncelle()
Set s1 = Sheets("Mevki")
Set s2 = Sheets("Tespi Formu")
s2.[b9:L23].ClearContents
If s2.[c4] = "" Then
MsgBox "Lütfen Kişi İsmini Yazınız!..", vbOKOnly + vbExclamation
Exit Sub
End If
If WorksheetFunction.CountIf(s1.[f:f], s2.[c4]) = 0 Then
MsgBox "Belirttiğiniz Kişiye Ait Kayıt Bulunamamıştır!..", vbOKOnly + vbInformation
Exit Sub
End If
For a = 5 To s1.[f65535].End(3).Row
If s2.[c4] = s1.Cells(a, "f") Then
c = c + 1
s2.Cells(c + 8, "b") = s1.Cells(a, "g") 'mevki
s2.Cells(c + 8, "c") = s1.Cells(a, "d") 'ada no
s2.Cells(c + 8, "d") = s1.Cells(a, "e") 'parsel no
s2.Cells(c + 8, "j") = s1.Cells(a, "k") 'ürün
s2.Cells(c + 8, "l") = s1.Cells(a, "n") 'açıklamalar
s2.Cells(c + 8, "e") = Int(s1.Cells(a, "j") / 1000) 'parsel da
s2.Cells(c + 8, "f") = s1.Cells(a, "j") Mod 1000 'parsel m
s2.Cells(c + 8, "g") = Int(s1.Cells(a, "j") / 1000) 'kullanılan da
s2.Cells(c + 8, "h") = s1.Cells(a, "j") Mod 1000 'kullanılan m
End If
Next
End Sub

iyi çalışmalar.

 

[benoman]

teşekkürler

yardımlarınız için sonsuz teşekkürler..