Parçaal

[karakayalı]

hücre içerisinde yazılmış bulunan 11 rakamlı tc numarasını ayrı bir sutuna atmak istiyorum...yardımlarınız içi şimdiden tşk.ler

 

[Korhan Ayhan]

Verinizin formatı nasıl?

 

[karakayalı]

salim yıldız xxxx xxxxxx 11111111111 asdfasf asfasfa
ali ak xxx xxxxx 22222222222 aaaa aa mmmm şeklinde devam ediyor...
11 rakamlı tc numarası kelimelerin arasında

 

[Korhan Ayhan]

Peki hücrelerde tc kimlik no dışında başka sayısal veri olma olasılığı var mı?

 

[karakayalı]

hayır yok...sadece 11 rakamlı tc numarası var...

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Sn Korhan Ayhan'a
Ait Kodlar
Arşivimde Vardı
İncelermisiniz

 

[Korhan Ayhan]

Alternatif olarak aşağıdaki fonksiyonuda kullanabilirsiniz.

Boş bir modüle uygulayıp deneyin.

Hücrede aşağıdaki şekilde kullanabilirsiniz.

=TCNO(A1)

Function TCNO(Veri As Range) As String
    Dim X As Integer, No As Variant
    
    No = Split(Veri.Text, " ")
    
    For X = 0 To UBound(No)
        If Len(No(X)) = 11 And IsNumeric(No(X)) Then
            TCNO = No(X)
            Exit Function
        End If
    Next
End Function

 

[karakayalı]

tşk.ler korhan bey..

 

[Merhum İdris SERDAR]

salim yıldız xxxx xxxxxx 11111111111 asdfasf asfasfa
ali ak xxx xxxxx 22222222222 aaaa aa mmmm şeklinde devam ediyor...
11 rakamlı tc numarası kelimelerin arasında

.

Bu da formülle...


.

 

[ramizan83]

kolay gelsin,

bozkır muhtarı
yazdamı muhtarı
ardahan muhtarı gibi
sutunlardan muhtarından önceki gelen kısmı başka bir hücreye kopyalayacak kodu arıyorum
forumda arıyorum ama bulamadım daha yeniyim, yazar arkadaşlara tşk ederim