Parça al

[ilkayturk83]

Merhabalar Ad Soyad ve Tc Numaralarından oluşan Hücrenin Tc Numarasını Nasıl Keserek Alabilirim Yardımcı olurmusunuz

 

[ilkayturk83]

Yok mu Kimseler

 

[uzmanamele]

Merhaba

Bu mudur?

=ARA(9,99999999999999E+307;--SAĞDAN(A1;SATIR($A$1:$A$1024)))

 

[ilkayturk83]

Keserek Almam gerekli Yani A1 Hücresinde T.C Numarası Kalmayacak Sizin göndermiş olduğunuzda tc yi alıyor ama tc numarası halen a1 hücresinde duruyor keserek almam gerekli tşkler

 

[Korhan Ayhan]

Merhaba,

Kesip başka alana yazmak için makro kullanmanız daha uygun olur.

Option Explicit
 
Sub TC_KİMLİK_NO_AYIR()
    Dim X As Long
    
    Range("B:B").ClearContents
    
    For X = 1 To Cells(Rows.Count, 1).End(3).Row
        If Val(Trim(Right(Cells(X, 1), 13))) > 0 Then
            Cells(X, 2) = Right(Cells(X, 1), 13)
            Cells(X, 1).Replace What:=Cells(X, 2), Replacement:="", LookAt:=xlPart
            Cells(X, 2) = Trim(Cells(X, 2))
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır."
End Sub