hücre içinde sıfırdan sonraki ilk sayısal ve metinsel değeri bulma

[Erdem Akdemir]

arkadaşlar merhaba hücre içinde sıfırdan sonraki ilk sayısal ve metinsel değerin sıra numarasını nasıl bulabilirim


BC0002584 > 6 sonucunu vermesi lazım ( 2 sayısı altıncı değer)

BC0A2105 > 4 sonucu almak istiyorum ( a harfi dördüncü sırada)

herkese hayırlı ramazanlar

 

[mustafaine1]

.................

 

[Merhum İdris SERDAR]

arkadaşlar merhaba hücre içinde sıfırdan sonraki ilk sayısal ve metinsel değerin sıra numarasını nasıl bulabilirim


BC0002584 > 6 sonucunu vermesi lazım ( 2 sayısı altıncı değer)

BC0A2105 > 4 sonucu almak istiyorum ( a harfi dördüncü sırada)

herkese hayırlı ramazanlar

.

A1 hücresinde;
BC0002584 ise =FIND("02";A1)+1 veya =FIND("0"&"2";A1)+1

A2 hücresinde:
BC0A2105 ise =FIND("0A";C16)+1 veya =FIND("0"&"A";C16)+1


.

 

[Erdem Akdemir]

sayın yurttaş sorumu biraz daha netleştirmek istiyorum

BC0002584 > 6 sonucunu vermesi lazım ( 2 sayısı altıncı değer)

buradaki 2 rakamı standart değil,benim istediğim hücre içinde sıfırdan sonraki ilk sayısal değerin sıra numarasını bulmak


BC0A2105 > 4 sonucu almak istiyorum ( a harfi dördüncü sırada)

burada sıfırdan sonraki ilk metin değerin sıra numarasını bulmak

 

[hamitcan]

KTF ile çözüm.

Function ilksayi(deger As String)
    s = WorksheetFunction.Search(0, deger) + 1
    For i = s To Len(deger)
        a = Mid(deger, i, 1)
        If a <> 0 Then
            If IsNumeric(a) Then ilksayi = a * 1: Exit Function
        End If
    Next
End Function
Function ilkmetin(deger As String)
    s = WorksheetFunction.Search(0, deger) + 1
    For i = s To Len(deger)
        a = Mid(deger, i, 1)
        If a <> 0 Then
            If IsNumeric(a) = False Then ilkmetin = a: Exit Function
        End If
    Next
End Function

 

[mustafaine1]

ktf cok guzel calisiyor.. tesekkurler..

 

[Erdem Akdemir]

sayın hamitcan ktf için teşekkür ederim

yerleşik fonksiyonlar ile de çözülür diye umuyorum

 

[huseyin610]

A1 Hücresi için;

=BUL((BİRLEŞTİR(0&(PARÇAAL((YERİNEKOY((PARÇAAL(A1;(BUL("0";A1;1));UZUNLUK(A1)-(BUL("0";A1;1))+1));0; ));1;1))));A1;1)+1

 

[Erdem Akdemir]

hüseyin bey elinize sağlık

giriş tarihiniz 2004 gözüküyor, keşke forumdan bu kadar uzak kalmasaydınız

 

[Merhum İdris SERDAR]

.

Şeklinde deneyin.

=FIND(0&(MID((SUBSTITUTE((MID(A1; (FIND("0";A1;1));LEN(A1)-(FIND("0";A1;1))+1));0; ));1;1));A1;1)+1

.

 

[Erdem Akdemir]

iki tane fantastik formül sayın yurttaş ve hüseyin bey'in

insan kıskanmadan yapamıyor, 100 fırın ekmek yesemde yazamam

 

[Erdem Akdemir]

dün kendime haksızlık etmişim

uğraşınca böyle birşey çıktı

=BUL("0"&SOLDAN(YERİNEKOY(PARÇAAL(A1;BUL(0;A1;1);99);0;"");1);A1;1)+1

 

[Merhum İdris SERDAR]

dün kendime haksızlık etmişim

uğraşınca böyle birşey çıktı

=BUL("0"&SOLDAN(YERİNEKOY(PARÇAAL(A1;BUL(0;A1;1);99);0;"");1);A1;1)+1

.

Tebrikler. Bu daha kısa olmuş. Hayıflanmak sırası bana geldi. Ben neden bunu bulamadım.

.

 

[Erdem Akdemir]

.

Tebrikler. Bu daha kısa olmuş. Hayıflanmak sırası bana geldi. Ben neden bunu bulamadım.

.

sizler yolumuzu aydınlatıyorsunuz, yoksa önümüzü göremeyiz