Yazı içindeki rakamları alma

[surfacetk]

Merhaba,
Benim sorunum aynı hücre içerisinde Örnek "1 B Mezoterapi 2 S Mezoterapi 3 Şampuan" yazan hücrede sonrasındaki ürün adına göre rakamları ayrı hücrelere sayıyaçevir formülü ile almak

hücreye tek bir ürün girildiğinde hata olması durumu da söz konusu olduğu için

=EĞERHATA(SAYIYAÇEVİR(SOL(A1;(BUL("B Mezoterapi";A1;1)-1)));SAYIYAÇEVİR("0"))

bu formülle 2 B Mezoterapinin "2" değerini başka hücreye aktarabiliyorum

fakat dediğim gibi aynı hücrede birden çok ürün girildiğinde her ürün adedini başka hücreye aktaramadım. yardımcı olursanız çok sevinirim.

 

[Ömer]

Merhaba,

Aktarım sonrası verdiğiniz örneğe göre; (veri A1 de ise)
B1=1
C1=2
C3=3

mü olacak?

Yada nasıl olması gerekiyor?

"1 B Mezoterapi 2 S Mezoterapi 3 Şampuan" sayıların yanındaki B ve S neyi ifade ediyor.

 

[surfacetk]

Merhaba,

Aktarım sonrası verdiğiniz örneğe göre; (veri A1 de ise)
B1=1
C1=2
C3=3

mü olacak?

Yada nasıl olması gerekiyor?

"1 B Mezoterapi 2 S Mezoterapi 3 Şampuan" sayıların yanındaki B ve S neyi ifade ediyor.

şöyle açıklayayım a1 hücresinde bulunan 1 Beyaz Mezoterapi, 2 Sarı Mezoterapi, 3 Şampuan içeriklerinin öncesindeki ürün adetlerini a2,a3,a4 hücrelerine ayrı ayrı almak istiyorum. yani sizin belirtiğiniz gibi

 

[Ömer]

A1 deki değerin sayı değerli içeriğini, A2,A3,A4,A5.... alır.
Not: Veriniz boşluk ile ayrıldığı için örneğe uygun olarak yazdım.

Sub ayir()

    Dim d, i As Byte, s As Byte
    
    Application.ScreenUpdating = False
    Range("A2:A" & Rows.Count).ClearContents
    
    d = Split(Range("A1"), " ")
    s = 2
    
    For i = 0 To UBound(d)
        If IsNumeric(d(i)) Then
            Cells(s, "A") = d(i)
            s = s + 1
        End If
    Next i
    
End Sub

 

[Haluk]

Alternatif olarak Google Sheets kullanılabilir;

Veri A1 hücresindeyse; B1 hücresine yazılacak formül:

=SPLIT(LOWER(A1),"abcçdefghıijklmnoöprsştuüvyzqw`-=[]\;',./!@#$%^&*()")

.

 

[surfacetk]

A1 deki değerin sayı değerli içeriğini, A2,A3,A4,A5.... alır.
Not: Veriniz boşluk ile ayrıldığı için örneğe uygun olarak yazdım.

Sub ayir()

    Dim d, i As Byte, s As Byte
   
    Application.ScreenUpdating = False
    Range("A2:A" & Rows.Count).ClearContents
   
    d = Split(Range("A1"), " ")
    s = 2
   
    For i = 0 To UBound(d)
        If IsNumeric(d(i)) Then
            Cells(s, "A") = d(i)
            s = s + 1
        End If
    Next i
   
End Sub

yardımınız için teşekkür ederim ama istediğim olmadı ekteki görselde umarım ne yapmak istediğimi açıklamış olurum

açıklama görseli

 

[Ömer]

Dosyayı görsel olarak değil de kendisini yada bir örneğini yükler misiniz.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

.

 

[surfacetk]

Dosyayı görsel olarak değil de kendisini yada bir örneğini yükler misiniz.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

.

İndir satış

Dosyayı indir satış

dosya.co

 

[Ömer]

Resim dosyasında ürünlerin başlığı vardı bunda kullanmamışsınız. Yada ben göremedim. Dosyayı düzenlerken silmiş olabilir misiniz.

 

[surfacetk]

Resim dosyasında ürünlerin başlığı vardı bunda kullanmamışsınız. Yada ben göremedim. Dosyayı düzenlerken silmiş olabilir misiniz.

resim dosyasında daha açıklayıcı olması için özellikle başlıkarı belirtimiştim Satıcı 1'in U15 B mezo, V15 S Mezo, W15 Şampuan ve sıralı şekilde gidiyor

 

[Ömer]

Başlıkları göre veri alınacağı için o şekilde ekleyebilir misiniz. Doğru dosya üzerinden ilerleyelim ki çözüm net olsun.

 

[surfacetk]

hazırlayıp gönderiyorum

 

[surfacetk]

Başlıkları göre veri alınacağı için o şekilde ekleyebilir misiniz. Doğru dosya üzerinden ilerleyelim ki çözüm net olsun.

Güncel Örnek Dosya

İndir satış

Dosyayı indir satış

dosya.co

 

[Ömer]

Eki inceleyiniz.

İndir satış (1) Kopya

Dosyayı indir satış (1) Kopya

dosya.co

.

 

[surfacetk]

Eki inceleyiniz.

İndir satış (1) Kopya

Dosyayı indir satış (1) Kopya

dosya.co

.

dosyayı indirmek için altın üyelik almaya çalışıyorum. bilgilerimi doğru girmeme rağmen hatalı uyarısı alıyorum. Ünvan kısmında yönetici olduğunuz gözüktüğü için belirtmek istedim

 

[Ömer]

Dosya dışında link eklemiştim.

İndir satış (1) Kopya

Dosyayı indir satış (1) Kopya

dosya.co

 

[surfacetk]

dosyayı indirmek için altın üyelik almaya çalışıyorum. bilgilerimi doğru girmeme rağmen hatalı uyarısı alıyorum. Ünvan kısmında yönetici olduğunuz gözüktüğü için belirtmek istedim

Eki inceleyiniz.

İndir satış (1) Kopya

Dosyayı indir satış (1) Kopya

dosya.co

.

Dosya dışında link eklemiştim.

İndir satış (1) Kopya

Dosyayı indir satış (1) Kopya

dosya.co

indirdim teşekkürler ve tamda istediğim gibi oldu size ne kadar teşekkür etsem azdır. vaktiniz aldım yardımlarınız için gerçekten çok teşekkür ederim

 

[Ömer]

Önemli değil, güle güle kullanın.

 

[surfacetk]

Önemli değil, güle güle kullanın.

Ömer bey şöyle bir sorunum oldu benim bu sayıları çekmemdeki amaç aylık B Mezoterapi, Sarı Mezoterapi, Şampuan toplam satış miktarını hesaplamaktı ama yaptırdığım toplama işlemlerinde sonuç 0 çıkıyor

 

[Ömer]

Formülleri sayıya çevirmek gerekir.

İlk satırdaki formüllerin sonuna yada başına +0 eklemek yeterli olur.

=0+formül yada =formül+0 gibi.

Linki inceleyiniz.

İndir satış (1) Kopya

Dosyayı indir satış (1) Kopya

dosya.co