محمد هشام.

تفضل أخي الفاضل لأنه يصعب الاشتغال على التخمين حاولت أعملك المثال ده إذا كان هو المطلوب ممكن نكملوا مع بعض ان شاء الله 1) الورقة 1 يتم جلب صورة المنتج وبياناته من الجدول الرئيسي في شيت 2 بالمعادلات من خلال إختيار رقم الكود من القائمة المنسدلة . المثال الثاني: 2) الورقة 2 يتم جلب صورة المنتج بمجرد كتابة رقم الكود في العمود A في الجول الرئيسي https://www.mediafire.com/file/p5rbjkfkg8cfjq8/نموذج+2.rar/file

1)هذا الكود الذي وضعته سينقلك للشيت الهدف2)جرب وضع هذا الكود بهذه الطريقة في حدث الورقة بعد الدخول عليها Private Sub Worksheet_Change(ByVal Target As Range) Range("c2").Select End sub

جزاكم الله خيرا وبارك ربي في أوقاتكم وعلمكم ونفع بكم وجعل جهودكم خالصة لوجهه عز وجل وأسال الله لنا ولكم التوفيق والسداد

تفضل اخي الكريم ووفقنا الله واياكم لما يحب ويرضى والكود المستخدم Sub Red_Letter() Dim a As Long, b As Long, c As Long, r As Range For Each r In Range("D2", Cells(Rows.Count, "D").End(xlUp)) For b = 1 To Len(r) If r.Characters(b, 1).Font.Color = vbRed Then a = InStrRev(r, " ", b) + 1 c = InStr(b + 1, r, " ") If c = 0 Then c = Len(r) + 1 r.Offset(, 1).Value = Mid(r, a, c - a) r.Offset(, 1).Replace ",", "" End If Next b Next r End Sub لم يتم اضافة الكود لكي لا يتم تغيير امتداد الملف لديك ولو حبيت تشتغل بيه مرة اخرى متنساش تفك دمج الخانات اولا ......وده ملف اخر به مثال للاستفادة يتضمن الكود استخراج الكلمة من النص.xlsx مثال _استخراج الكلمة من النص.xlsm

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

لا تنسى عند تغيير اسم العمود في الورقة 1 لابد من تغييره في الورقة 2 Copie de TRANSFER-COLONE_Marcel32-v12.xlsx

شكرا لك استاذي الفاضل Ali Mohamed Ali هو ده المطلوب بالظبط بارك الله فيكم دايما تعبينك معانا 👍👍👍 بس هل مفيش طريقة عند إفراغ السطر من اي قيمة يتم إخفاء رقم الأسبوع والتاريخ تلقائيا

السلام عليكم ورحمة الله أستاذتي الكرام المرجوا من حضراتكم تعديل المعادلة الموجودة في الملف وهي لإظهار تاريخ اليوم ورقم الأسبوع تلقائيا عند كتابة أي قيمة في العمود المقابل المعادلة شغالة تمام المشكل أنه كل مرة تظهر عندي رسالة circular reference خطأ .ويتم حلها من الإعدادات عاوز طريقة تستخرج نفس النتيجة لاكن بدون ما كل مرة أغير في الإعدادات الملف مع مزيدا من الشرح في المرفق Ech1.xlsx

شكرا لك استاذي الفاضل 👍👍👍

ما شاء الله عليك أخي روووووووعه شكرا لك عمل جميل ومتقن جزاك الله عنا كل خير وزاد في علمك .

أستاذي الفاضل omar elhosseini ممكن سؤال لو سمحت عند تفريغ خانات التاريخ بالكود ومحاولة كتابة تاريخ آخر بواسطة الفورم مبيرضيش يظهر إلى إذا كانت الخانة فيها قيمة هل هناك حل للمسألة ده ولا لازم الخانة تكون فيها قيمة مسبقا علشان يظهر الفورم ولو حبيت أضيف علامة بجوار الخانة زي الي في الصورة حتى لا يتم التأثير على الخانة أثناء تفريغها وعند الظغط عليها يظهر الفورم علشان اتغلب على المشكلة ده هل لازم اغير الكود

السلام عليكم ورحمة الله تعالى وبركاته هذا الكود للأستاذ عبدالفتاح في بي اكسيل يقوم بنسخ شيتات معينة من مصنف لآخر على سطح المكتب وتتم تسميته برقم الأسبوع والسنة الافتراضية على الجهاز شغال تمام عاوز تعديل للكود بحيث يتم تغير رقم الأسبوع إلى القيمة الموجودة في خانة معينة في أحد الشيتات في المصنف لأنه عند نسخ تقرير لتاريخ قديم يتم تسميته برقم الأسبوع الافتراضي .لنفترض ان القيمة موجودة عندي في شيت 2 الخانة M3 Sub export_sheets() Dim Fname As String, ws As Worksheet Application.DisplayAlerts = False Sheets(Array("SH1", "SH3")).Copy For Each ws In ActiveWorkbook.Sheets ws.UsedRange = ws.UsedRange.Value Next ws ActiveWorkbook.SaveAs Filename:= _ "C:\Users\PC WORLD\Desktop\" & " report_ " & "W" & Format(Date, "WW") & "_" & Format(Date, "YYYY") & ".xlsx", FileFormat:=51 ActiveWorkbook.Close Application.DisplayAlerts = True End sub() TEST10-2022.xlsm

شكرآ هو ده المطلوب بارك الله فيك أخي الكريم

كنت عاوز أغير أسماء الأيام للغة الفرنسية ويتم تلوينهم باللون الأحمر زي الصورة بالظبط مع تغيير كلمة select date إلى Choisissez la date

كيف يمكنني جعل الرسم التبياني يتجاهل الفراغات الموجودة في الجدول أسفل الملف مع العلم انها تحتوي على معادلات لجلب القيم من شيت ثاني test10.xlsx

شكرا جزيلا أستاذنا الفاضل omar elhosseini الملف اكثر من رائع لاكن واجهتني مشكلة عند نقله إلى الملف الأصلي لما بضغط على الخانات الهدف تظهر بهذا الشكل رغم نسخ الكود في حدث الورقة الأصلية الحمد لله تم حل المشكلة ونقله بنجاح بارك الله فيكم وزاد في علمكم عمل جميل جدا أفضل مما كنت أتوقع بس سؤال لو سمحت عند الدخول على الفورم وتغيير أسماء اليوم باللغة الفرنسية وتغيير اللون الخاص بها عند فتح الفورم يبقى كما كان في السابق هل هناك مكان آخر لتغيير لو سمحت

السلام عليكم ورحمة الله تعالى وبركاته ممكن مساعدة في إضافة تقويم لإدخال التاريخ في خانات البحث i7 وL7 ظهور التقويم بمجرد الظغط على الخانات تاريخ ميلادي 27/04/2023 test501.xlsx

السلام عليكم ورحمة الله تعالى وبركاته قد تطرقت سابقا الا وضع سؤال على المنتدى لكيفية فرز وتصفية أعمدة معينة على حسب الإسم لاكن لم اتلقى للأسف الا إجابة واحدة من الأخ الغالي محمد حسن جزاه الله خيرا ...كانت إجابة موفقة نوع ما لاكن لسوءالحظ.... لا تتماشى مع الملف الأصلي لضرورة انه لازم أدخل على الشيت لتفعيل التصفية وبعد البحث وجدت الحل في إحدى المواقع لاكن بعد تنفيذها بواسطة الهاتف على نسخة 365 تمت بنجاح حيث تفاجأت لاحقا أنها لا يمكنني استخدامها على الجهاز عندي لأن النسخة المثبتة عليه 2016 الملف في المرفقات عليه المعادلة شغالة تمام المطلوب إنشاء معادلة تقوم بنفس الدور لكن بشرط أنها تشتغل على النسخة إلي عندي TEST0209.xlsm

شكرا لك أخي الغالي محمد حسن المحمد أردت أن أخبرك أنه تم الوصول لحل المشكلة وتنفيذ المطلوب بمعادلة بسيطة جدا .وجدتها على موقع فرنسي لم استخدمها من قبل كانت كافية للوصول للمبتغى أجدد أسفي لحضرتك بتعبك معايا دايما 👍👍👍 أنا صراحة لم أتمكن من توصيل لك الفكرة بوضوح ممكن ده إلي صعب الموضوع..على العموم ممكن تبص على الملف لفهم ما كنت أريد توصيله لحضرتك TEST09.xlsm

السلام عليكم ورحمة الله تعالى وبركاته المرجو من الأساتذة الأفاضل المساعدة في تعديل الملف المرفق .مع شرح للمطلوب وهو يتضمن ما يلي التعديل على معادلة البحث index الموجودة في الملف والتي يتم بواسطتها جلب قيم معينة للأعمدة المقابلة بشرط الإسم .وإظهارها في نفس الشيت .قد تم وضعها مسبقا .المطلوب هو: التعديل على المعادلة لكي يتم البحث بنفس الطريقة لاكن من شيت لآخر وياريت بدون فراغات ...وهل عملية فلترة شيت البيانات يأثر على النتيجة المستخرجة؟ مشاركة مكررة TEST03.xlsx

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

بعد اذن الأساتذة عاوز طريقة استخرج بها القيم من ثلاثة اعمدة بشرط الإسم المقابل لها والذي يتكرر عدة مرات في الجدول . test01.xlsx

فعلا المشكلة في نسخة الاوفيس عندي بعد التجربة على جهاز آخر بنسخة اوفيس2021 الملف تمام ربنا يكرمك وآسف على الإزعاج

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

المرجوا المساعدة في كود ترحيل بيانات من شيت لآخر المشكلة انه البيانات المرحلة مش ثابتة ممكن تتراوح من صف إلى 65صف كحد أقصى . وممكن يكون هناك فراغات بين الصفوف فقط عمود التاريخ إلي هو A هو الي ثابت عاوز ارحل البيانات من Sheets 1 A5:Ab إلى Sheets 2 A8:Ab وكل مرحل بيانات تتحط تحت إلي قبلها أنا عندي الكود ده إلي في الصورة بيرحل تمام لاكن بطيء جدا في الترحيل. الاربع اعمدة الأولى من a5:d عندي فيها معادلات ياريت تترحل كقيم من غير معادلات أنا حاولت أعملها بيشتغل تمام أول مرة لاكن عند الترحيل مرة أخرى بيديني فراغات بين الترحيل والآخر أستسمح لعدم رفع الملف لأنه حجمه كبير شوية ..