AyriŞtirma

[ANTALYA 01]

Merhabalar
Ekteki Çalışmada T.C Kimlik No ları ve Vergi Kimlik nolarını ayrı sütunlara ayrıştırmak istiyorum.Yardımcı olursanız sevinirim.

 

[Necdet]

Merhaba, aşağıdaki kodları bir modüle bağlayınız

Public Sub Bul()
For i = 2 To [G65536].End(3).Row
If Len(Cells(i, "G")) = 11 Then Cells(i, "I") = Cells(i, "G")
If Len(Cells(i, "G")) < 11 Then Cells(i, "j") = Cells(i, "G")
Next
End Sub

 

[ANTALYA 01]

s

Teşekkür ederim.