Metindeki İstediğimiz Değeri Ayırmak

[by_ufuk]

Merhaba,
Eklediğim örnekte, A sütununda rakam ve harflerden oluşan değerler bulunmaktadır. B sütununa bu A sütununda bulunan değerlerden sadece fiyatları çekmeyi başardım. Ancak aynı işlemi stok kodları için yapamıyorum. C sütununa A sütununda bulunana değerlerden B sütununda yazılanları çıkararak değerleri yazması için bir formül yazabilir miyiz?

 

[Necdet]

Merhaba,

B2

=SAĞDAN(A2;5)+0

C2

=YERİNEKOY(A2;SAĞDAN(A2;5);"")

formülleri diğer hücrelere kopyalayınız.

Fiyatın virgül ile birlikte 5 karakter uzunluğunda olduğu varsayılmış. Yanlış yazıma karşı birde makrolu çözüm öneriyorum.

Sub AYIR()
 
    Dim i   As Long, _
        j   As Integer, _
        s
    
    Application.ScreenUpdating = False
    Range("B:C").ClearContents
    Range("B1") = "FİYAT"
    Range("C1") = "STOK KODU"
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        s = Split(Cells(i, "A"), " ")
        Cells(i, "B") = s(UBound(s)) + 0
        Cells(i, "C") = Trim(Replace(Cells(i, "A"), s(UBound(s)), ""))
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

 

[uzmanamele]

merhaba

fiyatlar 14,00 değilde 114,00 gibiyse =SAĞDAN(A2;5) formülü hatalı sonuç verir.

ek dosya işinizi görür mü?

 

[by_ufuk]

merhaba

fiyatlar 14,00 değilde 114,00 gibiyse =SAĞDAN(A2;5) formülü hatalı sonuç verir.

ek dosya işinizi görür mü?

Evet şuan işimi görüyor, yardımınız için teşekkür ederim.