جروان

ارجو العمل على توضيح استعمال 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

مشكور