اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

أخوك بن علية

items_2.rar

رابط هذا التعليق
شارك

السلام عليكم

===========

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

حاول اصلاحها

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

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

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

رابط هذا التعليق
شارك

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

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

أخوك بن علية

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

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

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

رابط هذا التعليق
شارك

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

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

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

تحياتي

أبو عبدالله

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

أخوك بن علية

رابط هذا التعليق
شارك

السلام عليكم

===========

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

أبو عبدالله

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information