Metnin İçinden TC Kimlik Numarasını Ayırma
24 Şubat 2021
1355
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 | |
|---|---|
| Tüm Tabloyu Seçme / Alternatif | Ctrl Shift Space |
| Kaydet / Alternatif | Shift F12 |
| Yazdırma Penceresini Açma | Ctrl F2 |
| Satır ve Sütun Başlıklarını Gizleme Gösterme | Alt P Ü |
| Aynı hücre içinde bir alt satıra geçme | Alt Enter |