جروان

ارجو العمل على توضيح استعمال array في كتابة الاكواد و اهميتها و توضيح الكود باللون الاحمر Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 2), Array(9, 2), Array(50, 1), Array(58, 9)), _ TrailingMinusNumbers:=True Columns("A:A").Select Application.CutCopyMode = False Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 2), Array(2, 2), Array(3, 1), Array(4, 9), Array(5, 9)), _ TrailingMinusNumbers:=True

إنا لله وإنا إليه راجعون الله يرحمه ويغفر له ويسكنه فسيح جناته

1000000000000000000000000000000000000000000000000 شكر يا عبقري الله يزيدك من علمة و راحة البال و المال يارب

عزيزي ابو نصار اثقلت عليك وانا اسطر اعجابي بك وفي المنتدى الصرح التعليمي العظيم بس في اضافة لعلك تجد لها حل باذن الله ALIDROOS1_JC.rar

ابو نصار و عبدالله الله يعطيكو العافية مشكورين والله اساتذة كبار

الله يجزيك كل خير اتعبناك

والله انك كبير بس ممكن الاسم في عمود يختلف عن عمود الرقم

ارجوNew Microsoft Excel Worksheet.rarNew Microsoft Excel Worksheet.rar اني وضحت الفكرة و انا عاجز عن شكرك

لم يعمل معي بالشكل الصحيح

الفكرة انه عندي هذة البيانات في ملف اكسل و عند التعامل معها لا تكون بنفس الترتيب الورقي مما يؤدى الى صعوبة في الادخال و التدقيق كل المطلوب من الملف هو الترتيب يعني البحث من خلال رقم الحساب الاساسي يتم استعدا الاسم و رقم الحساب كاملا هل من الممكن استدعا رقم الحساب كاملا بجانب الاسم من خلال البحث 6 ارقام

ارجو ارسال ملف لم يعمل معي

في ملف لاحد الاخوة في المنتدى عدلت علية كان ناقص على معادلة mid لاستثناء الارقام اصبح الكود لا يعمل Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [a8:a1000]) Is Nothing Then On Error GoTo 100 Application.ScreenUpdating = False Range(Target.Offset(0, 1), Target.Offset(0, 5)) = Empty Dim c As Range, c1 As Range For Each c In Sheet1.[a6:a1000] If c.Value = Target.Value Then Target.Offset(0, 1) = c.Offset(0, 1) For Each c1 In Sheet2.[d7:f7] If c1.Value = c.Offset(0, 2).Value Then Target.Offset(0, c1.Column - 1) = c.Offset(0, 34).Value End If Next c1 End If Next c End If 100 End Sub

والله انك محترم حلك سهل علي كثير رايح ادعيلك في الليل و النهار بس ضلت عندي مشكلة

يسلمو يا ابو نصار جاري التجربة

نرجو الافادة في كيفية استثناء محتويات خلية حسب المثال التالي البيانات في خلية A1 حسب التالي 321-123456-8-200 المطلوب في خلية B1 حسب التالي 123456 فقط 6 خانات في الوسط شكرا

مشكور على المحاولة ما راح تصعب عليك انشالله

لم يؤدي الكود المطلوب منة او انني لم اتمكن فهمة عند ادخال الرقم كاملا او جزئي تظهر مسج بوكس ادخال خاطى

ارجو المساعدة في امكانية البحث الجزئي في كامل الجدول من خلال الرقم حسب المثال المرفق مع مراعاة تنسيق الارقام شكرا بحث جزئي.rar

جزاك الله كل خير

للرفع

ارجو اني وفقت بالتوضيح في المرفق Bo2222ok1.rar

اقسم بالله العظم انك متميز و اشكرك جدا على مساعدتك الكريمة يرجى العلم ان اول 4 خانات ليست باضرورة ان تكون 181 الارقام الموجودة تشكل ارقام حسابات وهي موجودة عندي في ملف و عند ورود ملف رواتب من الشركة يتم ادخالة يدويات الا انه عند الادخال يكون اختلاف ما بين كشف الرواتب الورقي و كشف الاكسل الموجود عندي مما يسبب صعوبة في الادخال الكشف مطلوب منة الترتيب بحيث يتم اخذ COPYE من الاسماء و ارقام الحسابات في الخانة الرقم ( 0) و الاسم (0) و عند ادخال ارقام الحسابات من 6 خانات فقط في الخانة الرقم (1) يتم استيراد الاسما مما يرتب الملف حسب الكشف الورقي شكرا لتعاون و جزاك الله كل خير

جزاك الله كل خير وجعل الله ذلك في ميزان حسناتك انشاء الله موضوع جميل جدا

الف مبروك الترقية و عقبال الاعلى

الاخ عبدالله المجرب اشكركBo22ok1.rar مشكور