excel yardım

Kodla Büyü

talcid

Aktif Üye
Mesajlar
102
Arkadaşlar merhaba

elimde 700 sayfalık bir dosya var bunun içinden sadece Tc Kimlik nosunun ve yanındaki hücreyi alabileceğim bir makro var mı?

3 gündür ugraşıyorum yapamadım

Not : elimdeki liste yatay değil dikey
 
ed1903' Alıntı:
Hocam dosyayı ya da örneğini paylaşabilirsen yardımcı olunabilir sanırım

hocam sadece 3 kişilik olanı göndereyim. Size zahmet bu dikey sayfayı yatay olarak içindeki verileri almam lazım
 

Ekli dosyalar

  • ornek.rar
    8.3 KB · Görüntüleme: 33
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.
 
mokumus67' 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.
hocam çok teşekkür ederim . Süpersin
 
Geri
Üst