Metnin İçinden TC Kimlik Numarasını Ayırma
24 Şubat 2021
1349
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 | |
|---|---|
| Otomatik Toplama | Ctrl M |
| Eğik Yazdırma | Ctrl T |
| Farklı Kaydetme | F12 |
| Bitiş Modunu Açma | End |
| Veri Doğrulama Penceresini Açma | Alt X VE V |