ياسر خليل أبو البراء

بدون ملف مرفق يصعب فهم المشكلة .. ارفق الملف الذي به عدد الصفوف بالكامل للوقوف على المشكلة بشكل أدق

صراحة لم افهم المطلوب .. إزاي ورقتين في ورقة .. طيب هل تستطيع أن تقوم بعملها يدوياً ... اشرح لنا عملها يدوياً عشان نفهم اللي بيحصل .. تقبل تحياتي

الأخ الحبيب خيماوي كووووول بارك الله فيك ومشكور على مرورك العطر .. وخليك كوووووول يا مان الأخ الحبيب الغالي محمد أبو عباس جزيت خيراً على مرورك الكريم وعلى ردك الطيب وكلماتك الرقيقة و و و تعجز الكلمات أمامكم ..فهمها قلت فلن أوفيك حقك أبداً ، ولا أنسى أبداً أنك أستاذي ومعلمي فمنكم تعلمنا وعلى أيديكم تربينا جمعنا الله في الفردوس الأعلى من الجنة اللهم آمين تقبلوا تحياتي

أخي الحبيب خزاني .. جزيت خيراً أخي الغالي وبارك الله فيك تعطيني الدالة المعرفة خطأ ..يرجى إرفاق ملف لمعرفة سبب المشكلة تقبل تحياتي

الأخ الحبيب أحمد مرجان نعتذر عن التأخير في تقديم المساعدة (وكل تأخيرة فيها عطلة للناس بس أكيد فيها خيرة بردو) إليك الكود التالي (وعشان غرامة التأخير مرفق شرح لكل أسطر الكود عشان تقدر تعدل بما يناسبك إن شاء الله) Sub ImportDataFromClosedWBUsingVLOOKUP() 'تعريف المتغيرات Dim WBK As Workbook Dim Rng As Range Dim LastRow As Long 'إيقاف تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'إيقاف خاصية رسائل التنبيه Application.DisplayAlerts = False 'ليساوي المصنف المسمى 1 والموجود في نفس مسار المصنف الحالي [WBK] تعيين قيمة للمتغير 'يقوم هذا السطر أيضاً بفتح المصنف في المسار المذكور Set WBK = Workbooks.Open(ThisWorkbook.Path & "\1.xlsx") 'تعيين قيمة للنطاق المراد جلب البيانات منه من المصنف المسمى 1 Set Rng = Range("A2:C" & Cells(Rows.Count, 1).End(xlUp).Row) '[Sheet1] بدء التعامل مع المصنف الحالي في ورقة العمل With ThisWorkbook.Sheets("Sheet1") 'تحديد رقم صف آخر خلية بها بيانات في العمود الأول LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 'وضع معادلة دالة البحث في العمود الثاني والحصول على النتيجة من العمود الثاني في المصنف 1 With .Range("B2").Resize(LastRow - 1) .Formula = "=IFERROR(VLOOKUP(A2," & Rng.Address(, , , True) & ",2,False),"""")" .Value = .Value End With 'وضع معادلة دالة البحث في العمود الثالث والحصول على النتيجة من العمود الثالث في المصنف 1 With .Range("C2").Resize(LastRow - 1) .Formula = "=IFERROR(VLOOKUP(A2," & Rng.Address(, , , True) & ",3,False),"""")" .Value = .Value End With End With 'إغلاق المصنف المأخوذ منه البيانات بدون حفظ WBK.Close SaveChanges:=False 'إعادة تفعيل خاصية رسائل التنبيه Application.DisplayAlerts = True 'إعادة تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub وبكدا نكون دفعنا غرامة التأخير والحمد لله تقبل تحياتي Import Data From Closed WB Using VLOOKUP YasserKhalil.rar

جزاك الله خيراً أخي هاني وبارك الله فيك في انتظار المزيد إن شاء الله (هتلاقي قايمة كبيرة في Downloads هناك فيه بالفعل درر .. )

لم يتم التصحيح .. أخي الفاضل تقبل تحياتي (أنا وراك لحد ما تعرف تتعامل مع المنتدى)

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

الأخ الكريم محمود كويك إنت حددت أي مشاركة كأفضل إجابة (مشاركتك ..مقبولة منك ..عشان لسه جديد بس) لو حد تاني عملها كنت قطعته بسناني المهم : افتح أي ملف إكسيل ، أكيد طبعاً عارف الطريقة ، من قايمة Start وبعدين Programs وافتح البرامج هتلاقي Microsoft Offce وجنبه رقم الإصدار اللي إنت شغال عليه فتحنا الملف ..قول الحمد لله . من لوحة المفاتيح اضغط Alt + F11 ( كدا غلط .. مش كدا أنا مقلتش Alt وبعدين تسيب ايدك من على اللوحة .. خلي صبعك رااااااشق على مفتاح Alt وفي نفس الوقت اضغط F11 هيفتح معاك صفحة غريبة اسمها (محرر الأكواد) .. في الجنب الشمال هتلاقي نافذة اسمها نافذة المشروع Project Window وهتلاقي كلمة ThisWorkbook .. تعال على الكلمة دي واضغط دبل كليك (لو مفتحتش معاك صفحة بيضا .. اعمل دبل كليك تاني هتلاقي الماوس بتاعك بااااااايظ) لما تعمل دبل كليك هيظهر لك قايمتين منسدلتين اللي ع الشمال هتلاقي فيها كلمة Workbook كدا تعرف إنك واقف في المكان المظبوط خد الكود نسخ والصقه هناك في الحتة البيضا Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim X As Long X = Range("A1").Value Range("A1").Value = X + 1 End Sub وبكدا يكون الملف جاهز ..اعمل حفظ من علامة الحفظ أكيد عارفها ... ولاحظ الخلية A1 في كل مرة بتحفظ فيها الملف .. بس بالمناسبة في الاول هيطلعلك رسالة فيها Yes و No و Cancel اختار No أيوا اختار لا (اعترض) ولما يتفتح معاك نافذة الحفظ اختار من Save as type اختار Excel Macro enabled وفي الحقل المسمى File name اكتب اسمي (شايفك بتكتب اسمك انت .. مش مهم هعديها دي) كدا الملف جاهز بعد الحفظ امسح محتويات الخلية A1 وجرب تحفظ الملف واحفظ تاني وكمان مرة احفظ وشوف النطاق A1 أرجو ان أكون قد أفدتك

أخي منير يعني ايه بيقع Block وضح هذه النقطة أنا جربت الملف وسحبت المعادلة بشكل عادي ونفذت الكود ومفيش أي بلوك ولا حتى طوب أحمر

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

أخي الفاضل ارفق الملف الذي تعمل عليه كيف تتم عملية اللصق؟ هل اللصق كقيم فقط ؟؟ وما هو شكل النطاق الذي يتم نسخه ؟

صراحة لم أفهم المطلوب بشكل جيد ... عشان كدا مكانش فيه رد مني ... ارفق ملف لتوضيح المطلوب بشكل أكثر تفصيلاً تقبل تحياتي

الأخ الحبيب بكري .. أهلا بك في المنتدى أخاً جديداً .. رويداً رويداً .. إحنا مش صوااااريخ يا بكري .. الصبر يا أخي الفاضل هل اطلعت على التوجيهات : http://www.officena.net/ib/index.php?showtopic=60147 هذا لأن عنوان الموضوع غير معبر .. سيتم تغيير العنوان إن شاء الله ما في بارقة أمل .. صدقني ولا بارقة عمر! لأني فتحت الملف ولاقيت 7 طلباات ... لو قريت التوجيهات هتلاقي إن الأعضاء بتنفر من الموضوعات متعددة الطلبات .. فيكفي أن تطرح طلب في موضوع حتى إذا تم على أكمل وجه اطرح موضوع جديد بطلب جديد ..وهكذا إلى أن يكتمل العمل (هذه مجرد نصيحة وليس إلزام .. لكن خدها من واحد خبرة) تقبل تحياتي

أخي الفاضل منير ..موضوع طويل عريض وفي الآخر حل مشكلتك أبسط مما تتخيل لأن مفيش مشكلة في الأساس .. المعادلة موجود بالفعل في الخلية G2 تمام (قول تمام) اسحب المعادلة لحد تحت .. شوية كدا قيمة 10 صفوف .. وروح نفذ الكود بتاعك وارجع لورقة العمل المسماة Données هتلاقي النتائج زي ما إنت عايز ... تقبل تحياتي

إليك الملف التالي حسب ما فهمت من طلبك Saving Workbook Counter.rar

الأخ الفاضل محمود كويك أولاً : أهلا ومرحباً بك في المنتدى ونورت بين إخوانك ثانياً : يجب الإطلاع على هذا الرابط (توجيهات للأعضاء الجدد) http://www.officena.net/ib/index.php?showtopic=60147 ثالثاً : تم تغيير عنوان الموضوع ليعبر عن محتواه رابعاً : قم بإرفاق ملف موضحاً به ما تريد أو شكل النتائج المطلوبة .. قم بضغط الملف أولاً قبل رفعه خامساً : تقبل تحياتي

أخي وحبيبي الغالي حسام عيسى صقر المنتدى المشاغب مشكور على مرورك العطر .. قولي إنت باصص لي في البطة اللي لسه مكلتهاش أمال لو كلتها هتعمل فيا ايه !! وبعدين مستخسر فيا وردة ..أنا هرد الإساءة بالإحسان وهاديك ورد :fff: :fff: وكلمة تانية هقلب ع الوش العكر تقبل تحياتي

أخي الكريم أحمد العربي في ورقة العمل "بيان حالة الطباعة" يمكن استخدام معادلات Vlookup ..مثلاً .. في الخلية C8 يمكن استخدام المعادلة بهذا الشكل =IFERROR(VLOOKUP($E$2,ورقة1!$A$2:$S$7,2,0),"") بدون الداعي إلى استخدام الفورم في ترحيل البيانات .. ويرجى التوضيح إذا لم يكن المطلوب كافي

الأخ الغالي محبوب ... إليك إصدار آخر من الملف ..عله ينال رضاك ..قمت ببعض الإضافات ليكون الملف شامل وكافي ووافي لكل السنوات ... جرب الملف التالي (ولو عجبك غير أفضل إجابة وحددها هنا ..ليسهل للباحث فيما بعد الوصول بسرعة للحل المطلوب) متنساش تدعي لي ..ومتنسناش بفردة كاوتش من معرض السيارات (أي مصلحة منك ..!!) Three Loops In Two Excel Files By YasserKhalil V2.rar

الأخ الحبيب محبوب بداية أشكرك على كلماتك الرقيقة ودعائك الطيب بالنسبة لطلبك الثاني فهو أبسط مما تتخيل ، وكان من الممكن لو دققت في الكود توصله غير سطر الشرط فقط ..هنزود عليه شرط السنة وبس If Month(Cell.Value) = MonthNumber(SH.Name) And Year(Cell.Value) = 2015 Then شفت الدنيا سهلة إزاي تقبل تحياتي

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

الأخ الكريم محمد يوسف اضغط الملف المراد رفعه أولاً ثم قم برفعه أهلا بك في المنتدى وشرفت ونورت تقبل تحياتي

الاخ الغالي محمد الخازمي مشكور على مرورك العطر وكلماتك الرقيقة ... الأخ رجب طرح الموضوع وسابني أنا أرد ! ماشي يا أخ رجب .. تترد لك إن شاء الله تقبلوا تحياتي

كدا إنت حليتها يا أخ مختار إن المدى يكون جدول بالفعل .. يعني مش تسمي المدى Table1 لا .. تحدد المدى ومن خلال التبويب Insert تختار كلمة Table ليتحول المدى إلى جدول جرب وشوف