Yazı içindeki rakamları alma

[veyselemre]

Kodları bir module yerleştirin.
u15,v15,w15 seçin
=satislariAyir(A15)
yazıp CTRL+SHIFT+ENTER yapın.
Aşağıya doğru çoğaltın.
Diğer satıcı2 için A15 i E15 yapın.

Dim objRegEx As Object
Dim arr

Function satislariAyir(met As String) As Variant
    Dim sonuc(1 To 3) As Integer
    If objRegEx Is Nothing Then
        arr = Array("BMezoterapi", "SMezoterapi", "Şampuan")
        Set objRegEx = CreateObject("VBscript.RegExp")
        objRegEx.Pattern = "\d+[BMezoterapi|SMezoterapi|Şampuan]+"
        objRegEx.Global = True
    End If
    met = Replace(met, " ", "")
    If objRegEx.test(met) Then
        For Each elem In objRegEx.Execute(met)
            For i = 0 To 2
                If InStr(elem, arr(i)) Then
                    sonuc(i + 1) = Val(Replace(elem, arr(i), ""))
                    Exit For
                End If
            Next i
        Next elem
    End If
    satislariAyir = sonuc
End Function

 

[surfacetk]

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

Yardımlarınız için tekrardan çok teşekkür ederim. Sağlıklı günler dilerim.