Metnin İçinden TC Kimlik Numarasını Ayırma
24 Şubat 2021
1333
Metnin İçinden TC Kimlik Numarasını Ayırma isimli kodumuz, bir hücre içinde karışık bir şekilde yazılmış olan TC Kimlik Numaralarını ayırmaya yarar.
Sub TcNo_Ayir()
Dim XDveri As String
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "(\d{11})"
For sat = 2 To Cells(Rows.Count, "F").End(xlUp).Row
sut = 7
For Each XD In .Execute(Cells(sat, "F"))
XDveri = XD: sut = sut + 1
Cells(sat, sut) = XDveri
Next XD, sat
End With
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve BuÇalışmaKitabı kısmına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Örneğin bir hücrede Ali Veli 11111154267 Tc Kimlik Numaralı çalışan... tarzında bir cümle geçiyorsa, üstteki kod bu cümle içerisinden TC Kimlik Numarasını ayrıştıracaktır. Hücre satır ve sütun bilgilerini çalışmalarınıza göre uyarlamanız gerekecektir.
Etiketler :
| YARARLI KISAYOLLAR | |
|---|---|
| Tablonun Sütununu Seçme | Ctrl Space |
| Ad Kutusunu Seçme | Alt F3 |
| İşlem Yapılmış En Alt Hücreye Gitme | Ctrl End |
| Eş Anlamlılar Sözlüğü | Shift F7 |
| Tablo Seçimi Yapma | Ctrl * |