Ali Mohamed Ali

تفضل 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

تفضل عدد السنوات.xlsm

تفضل لك ما طلبت عدد السنوات.xlsm

بارك الله فيك استاذ سليم عمل ممتاز

وعليكم السلام تفضل ولكن عليك بتغيير المسار داخل الكود الى ما تريده Sub openwb() Dim sPath As String, sFile As String Dim wb As Workbook sPath = "D:\sarath\PTMetrics\20131004\D8 L538-L550 16MY\" sFile = sPath & "D8 L538-L550_16MY_Powertrain Metrics_20131002.xlsm" Set wb = Workbooks.Open(sFile) End Sub