HÜcrede BİrleŞİk Olarak Yazili Metİn Ve Sayiyi Ayirmak

[taseraydin]

HÜcrede 1142525aydin TaŞdemİr DeĞerİnİ BİrleŞİk Olan Sayidan Ayirarak BaŞka Bİr HÜcreye Nasil Yazdirabİlİrİm Saygilar,sevgİler

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[kombo]

Veriler böyle mi?

1142525aydin TaŞdemİr

Yoksa böyle mi?

1142525 aydin TaŞdemİr

 

[Ali]

HÜcrede 1142525aydin TaŞdemİr DeĞerİnİ BİrleŞİk Olan Sayidan Ayirarak BaŞka Bİr HÜcreye Nasil Yazdirabİlİrİm Saygilar,sevgİler

Alt+F11 ile VBA düzenleyici açıp Insert menüsünden bir module ekleyip aşağıdaki kodları ekleyiniz.

Rakamları almak için

Function RakamAl(Hücre)
Dim Karakter, i As Integer
Dim Sonuç
For i = 1 To Len(Hücre)
Karakter = Mid(Hücre, i, 1)
If IsNumeric(Karakter) = True Then
Sonuç = Sonuç & Karakter
End If
Next i
RakamAl = Sonuç
End Function

=RakamAl(A1) yazınız.


Harfleri almak için

Function HarfAl(Hücre)
Dim Karakter, i As Integer
Dim Sonuç
For i = 1 To Len(Hücre)
Karakter = Mid(Hücre, i, 1)
If IsNumeric(Karakter) = False Then
Sonuç = Sonuç & Karakter
End If
Next i
HarfAl = Sonuç
End Function

=HarfAl(A1) yazınız.

 

[Merhum İdris SERDAR]

HÜcrede 1142525aydin TaŞdemİr DeĞerİnİ BİrleŞİk Olan Sayidan Ayirarak BaŞka Bİr HÜcreye Nasil Yazdirabİlİrİm Saygilar,sevgİler

1142525aydin TaŞdemİr yada 1142525 aydin TaŞdemİr A1 hücresinde ise:


=LEFT(A1;MAX(IF(ISNUMBER(--MID(A1;ROW(INDIRECT("1:1024"));1));ROW(INDIRECT("1:1024")))))


=SOLDAN(A1;MAK(EĞER(ESAYIYSA(--PARÇAAL(A1;SATIR(DOLAYLI("1:1024"));1));SATIR(DOLAYLI("1:1024")))))

formülünü CTRL+SHIFT tuşlarını basılı tutarken, ENTER ile girin.

Formül aşağıdaki şekli alacak:

{=LEFT(A1;MAX(IF(ISNUMBER(--MID(A1;ROW(INDIRECT("1:1024"));1));ROW(INDIRECT("1:1024")))))}


...

 

[taseraydin]

HÜcrede Metnİ Sayidan AyriŞtirmak

HÜcrede BİtİŞİk Olarak Sayi Ve Metİn Var Metİn Gereklİ OlduĞu İÇİn MbaŞka Bİr HÜcreye Sadece Metnİ Almak İstİyorum Ek Dosyayi İlİŞİkte GÖnderİyorum

 

[AS3434]

B1 hücresine Sn. yurttaşın formülünü yazın. (Ctrl+Shift+Enter) ile girmeyi unutmayın.
F1 hücresine de
=YERİNEKOY(A1;B1;"")&C1
Yazın aşağıya çekerek kopyalayın.

 

[Merhum İdris SERDAR]

HÜcrede BİtİŞİk Olarak Sayi Ve Metİn Var Metİn Gereklİ OlduĞu İÇİn MbaŞka Bİr HÜcreye Sadece Metnİ Almak İstİyorum Ek Dosyayi İlİŞİkte GÖnderİyorum

Dosyanız ekte.

..

 

[taseraydin]

TesekÜrler

TÜm İlgİlenen Arkadaslara İcten TesekÜr Ve Saygilar

 

[korki]

Function RakamAl(Hücre)
Dim Karakter, i As Integer
Dim Sonuç
For i = 1 To Len(Hücre)
Karakter = Mid(Hücre, i, 1)
If IsNumeric(Karakter) = True Then
Sonuç = Sonuç & Karakter
End If
Next i
RakamAl = Sonuç
End Function

arkadaşlar bu kodu kullanıp sayının başındaki sıfrılarıda silmesini nasıl sağlarım burda
ör 000150 ise 150 yapıcak onu

 

[korki]

hocalarım yardımlarınızı bekliyorum...

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Function RakamAl(Hücre)
Dim Karakter, i As Integer
Dim Sonuç
For i = 1 To Len(Hücre)
Karakter = Mid(Hücre, i, 1)
If IsNumeric(Karakter) = True Then
Sonuç = Sonuç & Karakter
End If
Next i
RakamAl = [B][COLOR=red]Val([/COLOR][/B]Sonuç[COLOR=red][B])
[/B][/COLOR]End Function