Ali Mohamed Ali

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

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

تفضل تجربة.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

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

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

وعليكم السلام تفضل إستدعاء بيانات من مصنف اخر ضمن نفس المسار.rar

وعليكم السلام تفضل find date 0000.xlsm

عشان اليوم 24 ساعة ولكى يكون الناتج كرقم وليس كوقت

هذه دالة معرفة لابد من الضغط على Alt +f11 وفتح مديول جديد ثم وضع هذا الكود فيه Function ContDate(MyDate1 As Date, MyDate2 As Date, YMD As String) D1 = Day(MyDate1): D2 = Day(MyDate2) M1 = Month(MyDate1): M2 = Month(MyDate2) Y1 = Year(MyDate1): Y2 = Year(MyDate2) If D1 > D2 Then Dr = D2 + 30 - D1: M = -1 Else Dr = D2 - D1 If M1 > M2 Then Mr = M2 + M + 12 - M1: Y = -1 Else Mr = M2 - M1 Yr = Y2 - Y1 + Y If YMD = "D" Or YMD = "d" Then ContDate = Dr If YMD = "M" Or YMD = "m" Then ContDate = Mr If YMD = "Y" Or YMD = "y" Then ContDate = Yr End Function

وعليكم السلام كان عليك برفع ملف من الأول ولكن قمت بعمل الملف لك تفضل قيمة الساعات الإضافية.xlsm