(13/05/2021, 03:59)berduş yazdı: yada modüle gerek yok klasik for döngüsüyle
güncelleme ve kaydete eklenecek kod

        Degr = TextBox_Gsm.Value

        For x = 1 To Len(Degr & "")

            If IsNumeric(Mid(Degr, x, 1)) Then DegrSon = DegrSon & Mid(Degr, x, 1)

        Next x

        .Cells(Guncelle, 30) = "+90" & DegrSon

@berduş ve @feraz Hocam döngüde sorunsuz çalıştı ve işlem gerçekleşiyor çok teşekkür ederim. Bu proje bazında düşünmesek büyük bir projenin küçük bir bölümü olduğunu varsayarsak programcıların gözünde genelde hangi çözümün uygulanması daha efektif olur. Her iki kodu da anladım sadece bilmediğim detaylar var onları öğrendiğimde her iki çözümü de  kavramış olurum.