Aynı Hücredeki Rakam ve Yazıyı Ayırmak

[iplikci_80]

Arkadaşlar EK'te gönderdigim listesi aynı hücredeki rakam ve yazıları nasıl ayırabilirim. Herkese TEŞEKKÜRLER

 

[Vedat Özer]

Selamlar,

Rakamları almak için,

Function RAKAMAYIR(Hücre As Range)
    For X = 1 To Len(Hücre)
    If IsNumeric(Mid(Hücre, X, 1)) Then SONUÇ = SONUÇ & Mid(Hücre, X, 1)
    Next
    SONUÇ = IIf(SONUÇ = 0, "Rakam Bulunamadı!", SONUÇ * 1)
    RAKAMAYIR = SONUÇ
End Function

Harfleri almak için,

Function HARFAYIR(Hücre As Range)
    For X = 1 To Len(Hücre)
    If Not IsNumeric(Mid(Hücre, X, 1)) Then SONUÇ = SONUÇ & Mid(Hücre, X, 1)
    Next
    SONUÇ = IIf(SONUÇ = 0, "Harf Bulunamadı!", SONUÇ)
    HARFAYIR = SONUÇ
End Function

C2 Hücresine,

=EĞER(A2="";"";HARFAYIR(A2))

D2 Hücresine,

=EĞER(A2="";"";RAKAMAYIR(A2))

Kodları yazan : Korhan Ayhan

 

[Huseyinkis]

Arkadaşlar EK'te gönderdigim listesi aynı hücredeki rakam ve yazıları nasıl ayırabilirim. Herkese TEŞEKKÜRLER

B2 Hücresine

=SOLDAN(A2;7)

C2 Hücresine

=PARÇAAL(A2;9;999)

formullerini yazıp aşağı doğru çekin.

 

[İhsan Tank]

Arkadaşlar EK'te gönderdigim listesi aynı hücredeki rakam ve yazıları nasıl ayırabilirim. Herkese TEŞEKKÜRLER

merhaba
verileriniz hep bu şekilde ise
yani başında rakam boşluk sonra metin ise
B2 hücresine

=PARÇAAL(A2;1;BUL(" ";A2)-1)

C2 hücresine

=PARÇAAL(A2;UZUNLUK(B2)+2;UZUNLUK(A2))

bu formülü yazıp aşağıya doğru çekiniz.

 

[iplikci_80]

Teşekkürler

 

[Vedat Özer]

Selamlar,


Bende,

Sayın,

Hüseyinkis
İhsan Tank

kendilerine Teşekkür ederim.

 

[truvali27m]

Selamlar,


Bende,

Sayın,

Hüseyinkis
İhsan Tank

kendilerine Teşekkür ederim.

Merhaba,başka bir kod ile de yapılabiliyor diye biliyorum ben rakamları ayırmayı.Aşağıdaki kodun kullanım alanları neler mesela,bu gibi işlemlerde kullanılabilir mi?


Sub rakam_al()
Range("b2").Value = Val(Range("a2"))


End Sub

 

[messiah]

Selamlar,

Rakamları almak için,

Function RAKAMAYIR(Hücre As Range)
    For X = 1 To Len(Hücre)
    If IsNumeric(Mid(Hücre, X, 1)) Then SONUÇ = SONUÇ & Mid(Hücre, X, 1)
    Next
    SONUÇ = IIf(SONUÇ = 0, "Rakam Bulunamadı!", SONUÇ * 1)
    RAKAMAYIR = SONUÇ
End Function

Harfleri almak için,

Function HARFAYIR(Hücre As Range)
    For X = 1 To Len(Hücre)
    If Not IsNumeric(Mid(Hücre, X, 1)) Then SONUÇ = SONUÇ & Mid(Hücre, X, 1)
    Next
    SONUÇ = IIf(SONUÇ = 0, "Harf Bulunamadı!", SONUÇ)
    HARFAYIR = SONUÇ
End Function

C2 Hücresine,

=EĞER(A2="";"";HARFAYIR(A2))

D2 Hücresine,

=EĞER(A2="";"";RAKAMAYIR(A2))

Kodları yazan : Korhan Ayhan

Vedat bey peki benimde şöyle bir sorunum var

A1 hücresi = 000586451 YI-DB AKPOS PES ODE 20120716 KS:0.85TL
A2 hücresi = 000586452 AX-MC AKPOS FZS ISK ODE 20120716 KS:142.39TL
bu satırlardan 0,85 ve 142,39 u nasıl alırım sızın fonksiyon 85 ve 14239 olarak alıyor yani KS: dan sonra ne gelırse gelsın al gıbı bırsey yapamazmıyız sonra ben tlyi kırparım
yardımcı olursanız sevinirim.tşk.

 

[Korhan Ayhan]

Merhaba,

A1 hücresindeki veriden aşağıdaki formülle istediğiniz bölümü alabilirsiniz.

B1 hücresine uygulayın;

=YERİNEKOY(PARÇAAL(A1;MBUL("KS:";A1;1)+3;255);"TL";"")

 

[askm]

Bu kodu tüm sutuna nasıl uygularız. Function olayınız koda nasıl çeviririz.

 

[celilcetiner]

hücre içindeki fatura numarasını çekme

arkadaşlar merhaba
B2 HÜCRESİ ŞU ŞEKİLDE = Kardeniz Amb.Ltd.Şti. 286588 Nolu Fatura

bu hücre içerisindeki 286588 i nasıl çekebilirim

 

[iplikci_80]

Cevap 2'ye bakınız.

 

[baydeniro]

Sayın Vedat Özer üstad, paylaşım için teşekkürler.

 

[5353]

=PARÇAAL('veri gelir'!A17;1;BUL(" ";'veri gelir'!A17)-1)
veri gelir sayfasında A17 hücresinde "102740 HIZIR KANDEMİR" yazıyor. Parçalıyorum rakamlar "102740" değer geliyor fakat, rakam başka bir hücre rakam olarak görmeyip yok diyor. Hücre ayarları Genel sorun ne olabilir.?

 

[Korhan Ayhan]

PARÇAAL fonksiyonu metinsel fonksiyondur.

 

[5353]

PARÇAAL fonksiyonu metinsel fonksiyondur.

Rakamları nasıl ayırabilirim. Soldan ile de denedim olmadı.

 

[5353]

=SAYIYAÇEVİR(SOLDAN('veri gelir'!A17; 6))
biraz daha deneme ile çözebildim. Teşekkürler.