(08/04/2020, 22:26)berduş yazdı: Yalniz @feraz bey topu topu 4 olasılık var bir de arada 1den fazla bosluk olabilme ihtimali

Gecici=Trim(metin) 

tüm fazla boşlukları teke düşürür
Aşağıdaki 3 satır olasılıkları teke düşürür

Gecici=Replace(Gecici, "% 52", "%52")

Gecici=Replace(Gecici, "52%", "%52")

Gecici=Replace(Gecici, "52 %", "%52")

Gerisi sadece replace ile %52'yi istenen degerle degistirmek yada eğer ayrı bir sütuna eklenecekse
If instr ile kontrol edip varsa yeni alana eklemek
Atladığım nokta neresi? Dizi kullanmaya gerek var mı burada

Split ilede alttaki gibi aptım hocam.

Sizin kod neree eklenecek?
Varsayıma göre aptık gerisi accessman hocamıza kalmış
 

    Dim arr1, arr2

    Dim i As Integer

    Dim say As Integer

    

    If IsNull(Metin1.Value) Or Metin1.Value = "" Then Exit Sub

    arr1 = Array("%52", "% 52", "52%", "52 %")

    arr2 = Array(3, 4, 3, 4) 'uzunluk

    say = 0

    With Me.Metin1

        For i = LBound(arr1) To UBound(arr1)

            If InStr(.Value, arr1(i)) > 0 Then

                say = say + 1

                MsgBox Split(.Value, arr1(i))(0) & Split(.Value, arr1(i))(1)

                  Exit For

            End If

        Next

    End With



    If say = 0 Then MsgBox "Aranan bulunamadi"

    Erase arr1: Erase arr2