عبدالله فريد قام بنشر سبتمبر 3, 2019 مشاركة قام بنشر سبتمبر 3, 2019 السلام عليكم ارجو المساعدة في الدالة المرفقة في جلب البيانات من الجدول المرفق الشرح بالملف الاكسل match and index.xlsx رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر سبتمبر 3, 2019 مشاركة قام بنشر سبتمبر 3, 2019 جرب هذا الملف ولكن ب VBA match and index.xlsm 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 3, 2019 مشاركة قام بنشر سبتمبر 3, 2019 جرب هذا الملف بالطبع بعد اذن الاخ حسين مأمون VL_FUNTION.xlsx 4 رابط هذا التعليق شارك More sharing options...
عبدالله فريد قام بنشر سبتمبر 3, 2019 الكاتب مشاركة قام بنشر سبتمبر 3, 2019 سليم حاصبيا جزاك الله كل خير تمام التمام مشكور جدا حسين مامون مشكور جدا رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر سبتمبر 3, 2019 أفضل إجابة مشاركة قام بنشر سبتمبر 3, 2019 اخي العزيز حسين أرى انه لا ضرورة لحلقة تكرارية من ثاني صف في العامود C الى ان تجد ما نفتش عنه (ممكن ان يكون الرقم في الصف رقم 5000 مثلاً اذا كانت البيانات كثيرة) يكفي ان نستعمل دالة Find في VBA لايجاد الرقم بسرعة اكبر بكثير ، لان هذه الدالة تضع يدها على الصف المطلوب مباشرة باستعمال هذا الماكرو Sub Find_Me() Dim rng, r% On Error Resume Next With Sheets("Sheet1") .Range("H2") = vbNullString If .Range("G2") = "" Then End Set rng = .Range("c2", Range("c1").End(4)) r = rng.Find(.Range("G2"), lookat:=1).Row If r > 0 Then .Range("H2") = .Cells(r, "D") End With End Sub 6 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر سبتمبر 4, 2019 مشاركة قام بنشر سبتمبر 4, 2019 استادي سليم الف الف تحية اخي لا يمكن لي كتابة مثل هذا الماكرو مازلت مبتدءا في الاكسيل ومعرفتي في الميدان محدودة ، انتم اساتذتنا تعلمنا منكم وما زلنا ماكرو رائع كعادتك دائما وابدا نستمتع بأعمالك جزاك الله خيرا وحفظك وزادك علما . تحياتي لجميع الاساتدة في المنتدى اخوكم في الله حسين مامون من المغرب 3 رابط هذا التعليق شارك 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.