جروان قام بنشر يناير 6, 2012 مشاركة قام بنشر يناير 6, 2012 نرجو الافادة في كيفية استثناء محتويات خلية حسب المثال التالي البيانات في خلية A1 حسب التالي 321-123456-8-200 المطلوب في خلية B1 حسب التالي 123456 فقط 6 خانات في الوسط شكرا رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 6, 2012 مشاركة قام بنشر يناير 6, 2012 تم التوصل الى حل في الموضوع السابق وتكرار المواضيع اضنه مخالف لقواعد المشاركة رابط هذا التعليق شارك More sharing options...
جروان قام بنشر يناير 6, 2012 الكاتب مشاركة قام بنشر يناير 6, 2012 والله انك محترم حلك سهل علي كثير رايح ادعيلك في الليل و النهار بس ضلت عندي مشكلة رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 6, 2012 مشاركة قام بنشر يناير 6, 2012 ماهي المشكلة ؟؟ رابط هذا التعليق شارك More sharing options...
جروان قام بنشر يناير 7, 2012 الكاتب مشاركة قام بنشر يناير 7, 2012 في ملف لاحد الاخوة في المنتدى عدلت علية كان ناقص على معادلة 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 رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 7, 2012 مشاركة قام بنشر يناير 7, 2012 (معدل) كنت اعمل على كود وتوصلت الى حل حط هذه الاكواد في حدث ورقة sheet1 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("E3:E101")) Is Nothing Then Application.EnableEvents = False Application.ScreenUpdating = False E = Cells(Rows.Count, 1).End(xlUp).Row Range("C3", Cells(E, "C")).FormulaR1C1 = "=MID(RC[-2],4,6)" ALI Dim ALI_R As Range Set ALI_R = Range("C3:C101").Find(what:=Target, lookat:=xlWhole) If Not ALI_R Is Nothing Then Target.Offset(0, -1).Value = ALI_R.Offset(0, -1).Value Else Target.Offset(0, -1).Value = Empty End If End If Application.EnableEvents = True Application.ScreenUpdating = True End Sub Sub ALI() Application.EnableEvents = False Application.ScreenUpdating = False For Each R In Range("C3:C101") If R.Value <> Empty Then R.Value = R.Value End If Next R Application.EnableEvents = True Application.ScreenUpdating = True End Sub تم تعديل يناير 7, 2012 بواسطه alidroos رابط هذا التعليق شارك More sharing options...
جروان قام بنشر يناير 7, 2012 الكاتب مشاركة قام بنشر يناير 7, 2012 ارجو ارسال ملف لم يعمل معي رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 7, 2012 مشاركة قام بنشر يناير 7, 2012 تفضل جرب وابلغنى بالنتائج Bo2_ALIDROOS.rar رابط هذا التعليق شارك More sharing options...
جروان قام بنشر يناير 7, 2012 الكاتب مشاركة قام بنشر يناير 7, 2012 الفكرة انه عندي هذة البيانات في ملف اكسل و عند التعامل معها لا تكون بنفس الترتيب الورقي مما يؤدى الى صعوبة في الادخال و التدقيق كل المطلوب من الملف هو الترتيب يعني البحث من خلال رقم الحساب الاساسي يتم استعدا الاسم و رقم الحساب كاملا هل من الممكن استدعا رقم الحساب كاملا بجانب الاسم من خلال البحث 6 ارقام رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 7, 2012 مشاركة قام بنشر يناير 7, 2012 استبدل هذا الكود علية اضافة مسح المعادلة للعمود الاضافي Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("E3:E101")) Is Nothing Then Application.EnableEvents = False Application.ScreenUpdating = False E = Cells(Rows.Count, 1).End(xlUp).Row Range("C3", Cells(E, "C")).FormulaR1C1 = "=MID(RC[-2],4,6)" ALI Dim ALI_R As Range Set ALI_R = Range("C3:C101").Find(what:=Target, lookat:=xlWhole) If Not ALI_R Is Nothing Then Target.Offset(0, -1).Value = ALI_R.Offset(0, -1).Value Else Target.Offset(0, -1).Value = Empty End If End If Range(Cells(3, "C"), Cells(E, "C")).ClearContents Application.EnableEvents = True Application.ScreenUpdating = True End Sub Sub ALI() Application.EnableEvents = False Application.ScreenUpdating = False For Each R In Range("C3:C101") If R.Value <> Empty Then R.Value = R.Value End If Next R Application.EnableEvents = True Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك More sharing options...
جروان قام بنشر يناير 7, 2012 الكاتب مشاركة قام بنشر يناير 7, 2012 لم يعمل معي بالشكل الصحيح رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 7, 2012 مشاركة قام بنشر يناير 7, 2012 نرجو ارفاق الملف الاساسي ان كان به اسرار عمل ارسلة على ايميلي maicl2010ye@gmail.com وان شاء الله نحل المشكلة تحياتي رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 7, 2012 مشاركة قام بنشر يناير 7, 2012 (معدل) يعني تريد اظهار الاسم ورقم الحساب كامل في عمود D هل هذا هو المطلوب ؟؟؟ جرب المرفق Bo2_ALIDROOS_1.rar تم تعديل يناير 7, 2012 بواسطه alidroos رابط هذا التعليق شارك More sharing options...
جروان قام بنشر يناير 7, 2012 الكاتب مشاركة قام بنشر يناير 7, 2012 ارجوNew Microsoft Excel Worksheet.rarNew Microsoft Excel Worksheet.rar اني وضحت الفكرة و انا عاجز عن شكرك رابط هذا التعليق شارك More sharing options...
جروان قام بنشر يناير 7, 2012 الكاتب مشاركة قام بنشر يناير 7, 2012 والله انك كبير بس ممكن الاسم في عمود يختلف عن عمود الرقم رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 7, 2012 مشاركة قام بنشر يناير 7, 2012 اخي هكذا بيروح وقت وجهد على الفاضي كنت ترفق ملف وعليه توضيح كامل الله المستعان لي محاولة في الغد ان شاء الله رابط هذا التعليق شارك More sharing options...
جروان قام بنشر يناير 7, 2012 الكاتب مشاركة قام بنشر يناير 7, 2012 الله يجزيك كل خير اتعبناك رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 7, 2012 مشاركة قام بنشر يناير 7, 2012 السلام عليكم جرب المرفق واي ملاحظات انا موجود تحياتي ALIDROOS_JC.rar رابط هذا التعليق شارك More sharing options...
جروان قام بنشر يناير 7, 2012 الكاتب مشاركة قام بنشر يناير 7, 2012 عزيزي ابو نصار اثقلت عليك وانا اسطر اعجابي بك وفي المنتدى الصرح التعليمي العظيم بس في اضافة لعلك تجد لها حل باذن الله ALIDROOS1_JC.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 7, 2012 مشاركة قام بنشر يناير 7, 2012 طلبك رخيص تفضل المرفق ALIDROOS_JC_1.rar رابط هذا التعليق شارك More sharing options...
جروان قام بنشر يناير 7, 2012 الكاتب مشاركة قام بنشر يناير 7, 2012 1000000000000000000000000000000000000000000000000 شكر يا عبقري الله يزيدك من علمة و راحة البال و المال يارب رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.