كيف استخرج فقط الحرف الاول من رقم الصنف ؟؟؟

[الأسد الجريح]

السلام عليكم ورحمة الله

ارجو مساعدتي في الملف المرفق

ولكم جزيل الشكر

items.rar

[هشام شلبى]

السلام عليكم

===========

يوجد اخطاء فى الكتابة

حاول اصلاحها

items.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم، حجز المعلومات في الملف لم تتم بالطريقة نفسها (هناك خلل كما قال أخي وحبيبي هشام)... الصيغة التي كتبتها لم تعمل جيدا في حالتين فقط (كتبتهما بالأحمر في خلية ملونة بالأصفر)... وقد تم تصحيحهما في الخلايا المقابلة بإظافة بعض الفراغات.... كل هذا تجده في الملف المرفق...

أخوك بن علية

items_2.rar

[الأسد الجريح]

السلام عليكم

===========

يوجد اخطاء فى الكتابة

حاول اصلاحها

اشكرك اخي هشام ..

ولكنني لم اكتبها .. بل عملت لها export من برنامج محاسبي ولم اضيف اليها اي شيء .. بل اردت استخراج الحرف الاول فقط لمساعدتي في معرفة ( الموردون ) ..

ولك الشكر الجزيل ... اخي الكريم..

[الأسد الجريح]

السلام عليكم ورحمة الله

أخي الكريم، حجز المعلومات في الملف لم تتم بالطريقة نفسها (هناك خلل كما قال أخي وحبيبي هشام)... الصيغة التي كتبتها لم تعمل جيدا في حالتين فقط (كتبتهما بالأحمر في خلية ملونة بالأصفر)... وقد تم تصحيحهما في الخلايا المقابلة بإظافة بعض الفراغات.... كل هذا تجده في الملف المرفق...

أخوك بن علية

اهلا بالغالي hben

اشكرك جدا على ما بذلته معي .. وتقريبا هي الانسب لي .. وما تبقى سيكون سهلا ..

شكرا جزيلا اخي العزيز ..

[أبوعبد الله]

أخي العزيز / الأسد الجريح

إضافة إلى ماتفضل به إخواني الأعزاء هذا حل بكود لعله يناسبك .

تحياتي

أبو عبدالله

items-1.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي العزيز / الأسد الجريح

إضافة إلى ماتفضل به إخواني الأعزاء هذا حل بكود لعله يناسبك .

تحياتي

أبو عبدالله

أخي أبو عبد الله جزاك الله كل خير ، والله كود بسيط ورائع جدا، أكرمك الله وعافاك من كل شر وحفظك من كل سوء...

أخوك بن علية

[هشام شلبى]

السلام عليكم

===========

ماشاء الله اخى الحبيب بن علية

بارك الله فيك استاذى الحبيب ابو عبدالله دائما مدرستك ابوابها مفتوحة

وهذان حلان اخران لتلافى الاخطاء الناتجة عن الاستيراد احدهما بالمعادلات والاخر بالكود

Desktop.rar

[الأسد الجريح]

والله اني عاجز عن الشكر

الله يكرمكم جميعا ..

وجزاكم الله خير ...

الف الف شكر لكم جميعا ... دون استثناء ...

[عبد الفتاح كيرة]

شكرا للجميع على الإفادة

Sub SplitThem()

      Application.ScreenUpdating = False

      For Each cel In Range("a3:a100")

        cel.Offset(0, 1) = Split(cel.Value, "-")

        cel.Offset(0, 1) = Right(cel.Offset(0, 1), 1)

            If cel = "" Then Exit For

     Next cel

    Application.ScreenUpdating = True

  End Sub

[أبوعبد الله]

أخي الحبيب / بن علية

أشكرك بشدة على مرورك الكريم وكلماتك الجميلة .

أخي الحبيب / هشام شلبي

أشكرك من كل قلبي على كلماتك الجميلة وعلى حلولك الرائعة والمتميزة بكل تأكيد .

أخي العزيز / الأسد الجريح

أشكرك على كلماتك الجميلة

أخي العزيز / كيماس

أشكرك على مرورك الكريم .

مع حبي وتقديري

أبو عبدالله