فصل الاسم عن باقي النص

[ام عبدالرحمن عوف]

السلام عليكم

فصل الاسم عن باقي النص وكما مبين بالمثال المرفق

مثال.rar

[ياسر خليل أبو البراء]

وعليكم السلام أخي الكريم عبد الرحمن

جرب الكود التالي عله يفي الغرض

Sub Test()
    Dim arr     As Variant
    Dim str     As String
    Dim i       As Long

    arr = Sheet1.Range("A1:A" & Sheet1.Cells(Rows.Count, 1).End(xlUp).Row).Value

    For i = LBound(arr, 1) To UBound(arr, 1)
        str = arr(i, 1)
        arr(i, 1) = Trim(Split(Mid(str, InStrRev(str, "\") + 1), ".")(0))
    Next i

    Sheet1.Range("B1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
End Sub

 

[ام عبدالرحمن عوف]

تم وضع الكود في موديل وظهور هذه الرسالة

[ياسر خليل أبو البراء]

احذف كلمة Sheet1 من هذا السطر (ستجدها مرتين) ..ومعها النقطة التي تليها أيضاً

وكذلك احذفها من آخر سطر بالنقطة التي تليها

 

أو ... استبدل كلمة Sheet1 بكلمة ورقة1

[ام عبدالرحمن عوف]

تم استبدالها بـ ورقة1

 

تمام اشتغل الكود

شكرأ وجزيت خيرا

[ياسر خليل أبو البراء]

وجزيت خيراً بمثل ما دعوت لي أخي الكريم 

تقبل تحياتي