Aktar Butonu doğru aktarsın

[eminuslu]

Sevgili arkadaşlar liste sayfasındaki isimleri açılan kutu ile seçip Tekli isimli sayfamdaki Aktar Butonları ile tarihleri 1.2,3, ve 4. sayfalara aktarabiliyorum Benim siz değerli hocalarıma sorum şu açılan kutuda hangi isim yazılı ise tarihler o isime aktarılsın istiyorum
Oysa benim yaptığım programda örneğin Açılanda isim Nuh yazmasına rağmen tarihleri İlhan ÇETİN’e veya Emin USLU’ya aktarabiliyorsunuz yani benim istediğim açılan kutudaki isim kim ise tarihler ona aktarılsın

 

[halit3]

bu kodu denermisiniz.

Sub aktar()
For n = 1 To ActiveWorkbook.Sheets.Count
yer = Worksheets(Sheets.Name).Cells(5, 1).Value
If yer <> "" Then
If Worksheets(ActiveSheet.Name).Cells(8, 2).Value = yer Then
sat = Worksheets.[c65536].End(3).Row + 1
If sat < 9 Then sat = 9
Worksheets.Cells(sat, "C") = [F8]
Worksheets.Cells(sat, "D") = [H8]
MsgBox "işlem tamam"
Exit Sub
End If
End If
Next n
End Sub