hücre parçalama

[esesyar]

yapmak istediğim listemde fatura seri ve sıra numarası bitişik olan yada fatura serisi yazılmamış olan listede serisi yazılanların serisini listeden almak böylece fatura serisini ve sayısını ayırmak istiyorum fatura serisi olmayanların serisini daha sonra kendim girmek için seri no kısmına yok veya boş bırakabilirmiyim. örnek liste ekte gönderiyorum şimdiden herkese teşekkürler

 

[İhsan Tank]

yapmak istediğim listemde fatura seri ve sıra numarası bitişik olan yada fatura serisi yazılmamış olan listede serisi yazılanların serisini listeden almak böylece fatura serisini ve sayısını ayırmak istiyorum fatura serisi olmayanların serisini daha sonra kendim girmek için seri no kısmına yok veya boş bırakabilirmiyim. örnek liste ekte gönderiyorum şimdiden herkese teşekkürler

merhaba
istediğinizi bir KTF kodu ile yaptım
bu kodu boş bir modüle kopyalayınız

Function Rakam_kelime(txt As String, Optional num As Boolean = True)
Dim m As Object
With CreateObject("VBScript.RegExp")
.Pattern = "[^A-Za-z]+"
.Global = True
If num Then
For Each m In .Execute(txt)
Rakam_kelime = Rakam_kelime & m.Value
Next
Else
Rakam_kelime = .Replace(txt, "")
End If
End With
End Function

hücreye ise
harf yazdırmak için

=Rakam_kelime(B3;0)

rakam yazdırmak için

=Rakam_kelime(B3)

not : ktf (ç)alıntıdır.
örnek dosyayı inceleyiniz

 

[esesyar]

çok teşekkür ederim süper bişey olmuş eline sağlık

 

[İhsan Tank]

çok teşekkür ederim süper bişey olmuş eline sağlık

rica ederim
kolay gelsin

 

[esesyar]

ihsan kardeş formülünü kendi listeme kopyaladım ama olmadı neden olabilir acaba bir fikrin varmı

 

[esesyar]

şunu belirtiyim ben sadece rakam_kelime formülünü kendi listemdeki söz konusu hücreye uyarladım yanlış mı yaptım acaba tşkler

 

[İhsan Tank]

ihsan kardeş formülünü kendi listeme kopyaladım ama olmadı neden olabilir acaba bir fikrin varmı

merhaba

2. mesajımda belirrtiğim gibi module bir kod kopyalamanız gerekmektedir.
ktf : özel kod demektir. ( kişiye tanımlı fonksiyon ) o yüzden bundan normal fonksiyon olarak çalışmaz.
yapamazsanız gönderin düzenliyeyim

 

[esesyar]

tamam hallettim çok teşekkürlür

 

[İhsan Tank]

tamam hallettim çok teşekkürlür

rica ederim
kolay gelsin