hücredeki sayı karakterini sayma

[Z3U519]

Arkadaşlar merhaba. Örneğin a1 hücresinde 000001 yazıyor. Ben uzunluk formülünü kullanınca karakter sayısını 1 veriyor. Sıfırları da sayarak 6 sonucunu vermesini nasıl sağlarım? Sıfırları saymıyor.

 

[Merhum İdris SERDAR]

Deneyin.

=LEN(TEXT(A1;"000000"))

.

 

[Z3U519]

Teşekkür ederim ama tüm hucredeki sayilar 6 karakterli değil bazıları 7 bazilari 8 9 veya 10 karakterli. Bu formulu kullaninca onlari da 6 karakter görüyor.

 

[Korhan Ayhan]

A1 hücresinin sayı biçimi nedir?

 

[Z3U519]

İsteğe uyarli yapilip basina bir kac tane sifir eklendi

 

[Korhan Ayhan]

Bu durumda KTF (Makro) kullanmanız daha uygun olacaktır.

Örnek dosyayı inceleyiniz.

Hücrede kullanımı ; =K_UZUNLUK(A1)

Function K_UZUNLUK(Alan As Range)
    K_UZUNLUK = Len(Alan.Text)
End Function

 

[Z3U519]

Teşekkür ederim.

 

[htsumer]

G2 Hücresinde yüzlece kelime var örnek

dört b ek ders, ek ders 4b, sözleşmeli ek ders, sözleşmeli öğretmen ek ders ücreti, sözleşmeli öğretmen ek ders, sözleşmeli öğretmen ek ders ücreti 2020, sözleşmeli öğretmen ek ders hesaplama,

Bunları sayacak karakter sayısı 120 olunca almayacak şekilde başka hücreye yazacak.. Karakter sayısı. Yalnız virgük ve boşluğu saymaması gerekiyor

 

[Korhan Ayhan]

Bu şekilde saydırabilirsiniz.

=UZUNLUK(YERİNEKOY(YERİNEKOY(G2;" ";"");",";""))

 

[htsumer]

Bu şekilde saydırabilirsiniz.

=UZUNLUK(YERİNEKOY(YERİNEKOY(G2;" ";"");",";""))

Hariha oldu sağolasınız hocam..

 

[htsumer]

Hocam son bişeydaha istesem
bazı hücrelerde 2300 gib ibu tür kelimeler var 120 dahil yukarısını silecek bir kod yazma imkanı varmı?
Saatlerimi alacak..
Örnek 4850 kelimelik yukardaki gibi örnek var, kod çalıştığında boşluk ve virgül hariç karakterleri 120 düşürecek ve
üstünü silecek makroda olabilir

 

[Korhan Ayhan]

Bir örnek dosya eklermisiniz.

 

[htsumer]

Bir örnek dosya eklermisiniz.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Sil()
    Dim X As Integer, Say As Integer
    For X = 1 To Len(Range("G2"))
        Select Case Mid(Cells(2, "G"), X, 1)
            Case " ", ","
            Case Else
                Say = Say + 1
        End Select
        If Say = 120 Then
            Cells(2, "G") = Left(Cells(2, "G"), X)
            Exit For
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[htsumer]

Deneyiniz.

Option Explicit

Sub Sil()
    Dim X As Integer, Say As Integer
    For X = 1 To Len(Range("G2"))
        Select Case Mid(Cells(2, "G"), X, 1)
            Case " ", ","
            Case Else
                Say = Say + 1
        End Select
        If Say = 120 Then
            Cells(2, "G") = Left(Cells(2, "G"), X)
            Exit For
        End If
    Next
   
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Çok çok teşekkür ederim süper oldu elinize sağlık