Metnin İçinden TC Kimlik Numarasını Ayırma
24 Şubat 2021
1315
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 | |
|---|---|
| Bir Ekran Sağa Git | Alt PgDn |
| Bir Ekran Sola Git | Alt PgUp |
| Yapılanı İptal Etme | Esc |
| Bir Ekran Yukarı Git | PgUp |
| Binlik Ondalık Ayırıcı Ekleme | Ctrl Shift 1 |