hücrelerde sadece sayılar kalsın

[sevensuleyman]

merhaba ; örnek olarak gönderdiğim excell dosyasında müktar sütununda sayıların yanındaki ibarelerin silinerek sadece sayıların kalmasını makro veya buton yardımıyla yapmak istiyorum. sayılardan sonraki ibareler değişebilmektedir. makro çalıştıgında veya butona basıldıgında b sütundaki sayılar haricindeki bilgilerin silnmesini istiyorum.

Stokta Yoktur = 0

stokta yoktur ibaresininde sıfır olarak gelmesini istiyorum.
miktar 3 adetten küçükse sıfır olarak gelmesini istiyorum


yardımlarınızı bekliyorum . şimdiden teşekkürler

 

[YUSUF44]

Aşağıdaki KTF ile yapabilirsiniz. Kodları bir modüle kopyalayın ve sonuç almak istediğiniz hücrede (C2) aşağıdaki formülü kullanın :

=EĞER(EĞER(ESAYIYSA(B2);B2;EĞER(B2="stokta yoktur";0;say(B2)*1))<3;0;EĞER(ESAYIYSA(B2);B2;EĞER(B2="stokta yoktur";0;say(B2)*1)))

Public Function say(Data As Variant)
    Dim RegExp As Object
    Set RegExp = CreateObject("VBScript.Regexp")

    RegExp.Pattern = "[^0-9\,-]"
    RegExp.Global = True
    say = RegExp.Replace(Data, "")
End Function

Eğer illa ayrı makroyla çözmek istiyorum derseniz aşağıdaki makroyu deneyin:

Sub miktarlar()
son = Cells(Rows.Count, "A").End(3).Row
Dim RegExp As Object
Set RegExp = CreateObject("VBScript.Regexp")

RegExp.Pattern = "[^0-9\,-]"
RegExp.Global = True
    

For i = 2 To son
    Cells(i, "B") = Replace(Cells(i, "B"), "+", "")
    If IsNumeric(Replace(Cells(i, "B"), "+", "")) Then
        Cells(i, "C") = Replace(Cells(i, "B"), "+", "")
    ElseIf RegExp.Replace(Replace(Cells(i, "B"), "+", ""), "") = "" Then
        Cells(i, "C") = 0
    ElseIf RegExp.Replace(Replace(Cells(i, "B"), "+", ""), "") * 1 = 0 Then
        Cells(i, "C") = 0
    Else
        Cells(i, "C") = RegExp.Replace(Replace(Cells(i, "B"), "+", ""), "") * 1
    End If
    If Cells(i, "C") < 3 Then Cells(i, "C") = 0
Next
End Sub

 

[sevensuleyman]

teşekkür ederim , işimi gördü