Metnin İçinden TC Kimlik Numarasını Ayırma
24 Şubat 2021
1436
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 | |
|---|---|
| İşlem Yapılmış En Alt Hücreye Gitme | Ctrl End |
| Soldaki Veriyi Kopyalama | Ctrl R |
| Hücreyi Araya Çoğaltarak Yerleştirme | Ctrl Shift Sürükle |
| Çalışma Sayfasının Tümünü Seçme | Ctrl A |
| Sayfa Yapısı Kenar Boşlukları Sekmesini Açma | Alt P J Ö |