محمد هشام.

أتمنى يكون ده المطلوب BILLREPORT-test1.xlsx

1)هل تقصد أنك تريد استخراج مجموع كمية الصنف بشرط الإسم. المقابل له ؟ 2)ماهو العمود الذي تريد خصم الكمية المحصل عليها منه قبل وضعها في عمود رصيد آخر المدة؟

بعد إذن الأستاذ محمد صالح يمكنك وضع المعادلة التالية في الخانة (E6) SI(B6<>"";SI(E6="";AUJOURDHUI();E6);"")= مع التأكد من تفعيل الحساب التكراري في ورقة العمل تفضل الملف عليه المعادلة اوفيسنا.xlsm

جرب أخي الفاضل مصنف 22.xlsm

لنفترض انه لدينا ملف يحتوي على ثلاثة أوراق عمل shets1_shets2_shets3 يقوم هذا الكود بنسخ وتصدير شيت 2و3 على سطح المكتب Sub export_sheets() Dim Fname As String, ws As Worksheet Application.DisplayAlerts = False Sheets(Array("Shets2", "Shets3")).Copy For Each ws In ActiveWorkbook.Sheets ws.UsedRange = ws.UsedRange.Value Next ws ActiveWorkbook.SaveAs Filename:= _ "C:\Users\PC Hicham\Desktop\" & "إسم الملف المستخرج" & ".xlsx", FileFormat:=51 ActiveWorkbook.Close Application.DisplayAlerts = True End Sub لاتنسى تغيير مسار حفظ الملف على حسب الموجود عندك

دفتر صنف.xls

جرب هذا الكود أخي ودوبل كليك على مربع textbox Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox1.Value = "" End Sub أو هذا Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Not iGblInhibitTextBoxEvents Then TextBox1.Value = "" End If End Sub

جرب أخي الفاضل وضع هذا الكود في حدث workbook كما في الصورة Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Target.PasteSpecial xlPasteValues Application.CutCopyMode = True End Sub ثم انسخ بياناتك ، وانتقل إلى ورقة العمل الهدف و انقر بزر الماوس الأيمن على الخلية الوجهة ، سيتم لصق قيم الخلايا المنسوخة دون أي تنسيق بإذن الله.

هل تقصد أنه في حالة كانت قيمة البند الأول في الخانة 2 او 3 هي 1 يتم كتابة رقم واحد في الخانة المظللة بالأحمر ..وماذا إذا كانت كل منهما قيمتها واحد ؟ عذرا أخي بما أنني بشتغل من على الهاتف الملف غير واضح عندي على العموم قد تم وضع معادلتين الأولى في حالة كانت كل من الخانتين 2 و 3 في البند الأول قيمتها واحد يتم كتابة رقم واحد في الخانة المظللة بالاصفر وفي حالة كانت أي من الخانتين 2او3 من البند الأول قيمتها واحد يتم كتابة رقم واحد ضمن الخانة المظللة بالازرق.وإذا لم يتوفر أي شرط تبقى فارغة. اذا كان هذا هو المطلوب يمكنك إتمام الملف بنفس الطريقة ١استبانة.xlsx

تفضل اخي not offisna.xlsm

T01.xls

تفضل أخي الفاضل لأنه يصعب الاشتغال على التخمين حاولت أعملك المثال ده إذا كان هو المطلوب ممكن نكملوا مع بعض ان شاء الله 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