ed1903' Alıntı:Hocam dosyayı ya da örneğini paylaşabilirsen yardımcı olunabilir sanırım
hocam çok teşekkür ederim . Süpersinmokumus67' Alıntı:Sub Bull()
Application.ScreenUpdating = False
Range("L1:M1000") = ""
x = 1
a = WorksheetFunction.CountIf(Range("A:A"), "T.C. Kimlik Numarası")
For i = 1 To a
Range("A" & x & ":A10000").Find("T.C. Kimlik Numarası").Activate
Cells(i + 4, 12) = ActiveCell.Offset(0, 1)
Cells(i + 4, 13) = ActiveCell.Offset(1, 1)
x = ActiveCell.Row
Next
Range("L1").Select
Range("L4") = "TC"
Range("M4") = "ADI SOYADI"
End Sub
Kod çalıştığı sayfada L ve M sütunlarında TC ve isimleri listeler.