Ali Mohamed Ali

بارك الله فيك استاذ سليم معادلة ممتازة ولكن الأستاذ صالح اذا كان محتاج ان يكون الى اخر تاريخ بالعمود فيمكن استخدام المعادلة بهذه الطريقة =IF( A2="",""," مديونية من تاريخ " & TEXT(A2,"dd/mm/yyyy") & " حتى تاريخ "&TEXT(MAX($A$2:$A$900),"dd/mm/yyyy"))

اخى الكريم شوف بنفسك بارك الله فيك

وعليكم السلام -اخى الكريم كان عليك من البداية عمل بحث فى المنتدى عن المطلوب قبل رفع المشاركة فهناك عشرات الموضوعات المشابهة لموضوعك مثل : https://www.officena.net/ib/topic/87863-أريد-عمل-نموذج-مثل-هذه-الصفحة-تلوين-الصف-والعمود/?tab=comments#comment-555254 https://www.officena.net/ib/topic/87858-أريد-عمل-مثل-هذه-الصفحة-تلوين-الصف-والعمود/?tab=comments#comment-555260 https://www.officena.net/ib/topic/57813-تحديد-صف-وعمود-الخلية-النشطة-تلوين-العمود-والصف-باستخدام-التنسيق-الشرطي/?tab=comments#comment-367955 https://www.officena.net/ib/topic/80808-تنسيق-شرطى-مختلف؟/?tab=comments#comment-516259 وهذا رابط اخر لتحديد الخلية النشطة فقط https://www.officena.net/ib/topic/41107-تمت-الاجابة-تلوين-الخلية-النشطة-فقط/?tab=comments#comment-231840

تفضل ولكن ظهور مثل هذه الرسائل وذلك لإحتواء الملفات على فيروس فهذا منطقى لظهور هذه الرسالة فالطبيعى ان تفتح الملفات مباشرة بمجرد الضغط على الهايبر بارك الله فيك index2.xlsm

بارك الله فيك استاذى الكريم بن علية وهذه معادلة اخرى لإثراء الموضوع bachiri401.xlsx

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

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

تفضل تجربة.xlsx

وعليكم السلام تفضل-يمكنك تجربة هذه الأكواد طالما انك لم ترفع ملف Private Sub UserForm_Initialize() TextBox1.Text = "" End Sub Private Sub CommandButton1_Click() TextBox1.Text = "Sid" MsgBox "Re-Initialzing the Userform" UserForm_Initialize End Sub Private Sub UserForm_Initialize() ChartNum = 1 UpdateChart_OverallOEE UpdateChart_OverallUnits UpdateChart_OverallWeights End Sub Private Sub UpdateChart_OverallOEE() Set CurrentChart = Sheets("Chart_OverallOEE").ChartObjects(ChartNum).Chart CurrentChart.Parent.Width = 710 CurrentChart.Parent.Height = 150 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallOEE.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" ' Show the chart img_Chart_OverallOEE.Picture = LoadPicture(Fname) End Sub Private Sub UpdateChart_OverallUnits() Set CurrentChart = Sheets("Chart_OverallUnits").ChartObjects(ChartNum).Chart CurrentChart.Parent.Width = 700 CurrentChart.Parent.Height = 150 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallUnits.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" ' Show the chart img_Chart_OverallUnits.Picture = LoadPicture(Fname) End Sub Private Sub UpdateChart_OverallWeights() Set CurrentChart = Sheets("Chart_OverallWeights").ChartObjects(ChartNum).Chart CurrentChart.Parent.Width = 700 CurrentChart.Parent.Height = 175 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallWeights.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" ' Show the chart img_Chart_OverallWeights.Picture = LoadPicture(Fname) End Sub

تفضل index2.xlsm

وعليكم السلام كان عليك من البداية استخدام خاصية البحث فى المنتدى تفضل https://www.officena.net/ib/topic/87818-استفسار-عن-طريقة-اضافة-اكثر-من-مستخدم/?tab=comments#comment-555050

تفضل دالة تاريخ.xlsx

احسنت استاذ أحمد بارك الله فيك وجعله فى ميزان حسناتك بعد اذن الأستاذ أحمد بالتأكيد تفضل نموذج.xlsm

عليك برفع ملف وشرح المطلوب عليه بالتفصيل

وعليكم السلام-لاحظ الصور هذه اسهل طريقة

أحسنت استاذ سليم بارك الله فيك ودائما لنا الفخر من التعلم من حضرتك وم اساتذتنا الكبار

وعليكم السلام-تفضل find date Total général.xlsm

بارك الله فيك وجزاك الله كل خير ولك بمثل مادعوت لى وزيادة والحمد لله الذى بنعمته تتم الصالحات

تفضل لك ما طلبت بسم الله1.xlsm

تفضل اخى الكريم بسم الله1.xlsm

بارك الله فيكم جميعا وجزاكم الله كل خير مجهودات ممتازة وعمل رائع

بارك الله فيك استاذى الكبير بن علية ولإثراء الموضوع هناك معادلة اخرة وهى معادلة صفيف -اى يجب الضغط على Ctrl+Shift+Enter وليس Enter فقط وهذه هى معادلة الكمية بالطن-وعليك سحبها للأسفل SUM(IF(($B$16:$B$10000>=$H$2)*($B$16:$B$10000<=EOMONTH($H$2,0))*($C$16:$C$10000=$C5),$H$16:$H$10000,"")) اما معادلة عدد النقلات لكل سيارة فهى : SUM(IF(($B$16:$B$10000>=$H$2)*($B$16:$B$10000<=EOMONTH($H$2,0))*($C$16:$C$10000=$C5),$F$16:$F$10000,"")) بارك الله فيكم جميعا

وعليكم السلام تفضل ارشيف.rar

وعليكم السلام بالتأكيد بارك الله فيك حل ممتاز جزاك الله كل خير

أحسنت استاذ مجدى عمل رائع جعله الله فى ميزان حسناتك ورحم والديك وغفر الله لهما