Ali Mohamed Ali

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

وعليكم السلام-تفضل 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

وعليكم السلام -اهلا بك فى المنتدى طالما انك لم تقم برفع ملف فهناك العديد من الطرق منها : يمكنك مشاهدة هذا الفيديو https://www.youtube.com/watch?v=nF1VNTGzN3c https://www.youtube.com/watch?v=qU1z3jdUZ_g وهذا ايضا رابط للتحويل مباشرة من الوورد الى الإكسيل https://convertio.co/ar/doc-xls/ وهذه طريقة سهلة لتحويل ملفات الورد لإكسيل دون الحاجه لبرامج تحويل الملفات 1- إفتح ملف الورد المراد تحويله لإكسيل word .doc 2- قم بحفظة على صورة ملف بصيغة اتش تي ام ال أو صفحة إنترنت باسم الملف المراد تحويلة file / save as / web page format 3 – قم بفتح ملف اكسيل جديد open new xls 4- اضغط على فتح في قائمة ملف open /brwos/ select file 5- إختار الملف بصيغة الاتش تي ام ال السابق تحويله file html. 6- قم بحفظ الملف ذاته بأختيار صيغة اكسيل ورقة عمل باختيار احد صيغ الأكسيل باصداراته المراد انشاؤها file/ save as/ xls 97/2033 وهذا رابط اخر من داخل المنتدى ناقش نفس الموضوع https://www.officena.net/ib/topic/33342-المطلوب-ملف-وورد-به-جداول-طولية-تحويله-الى-ملف-اكسل/ وهذه فيديوهات كمان لنقل البيانات من الوورد الى الإكسيل بأكواد VBA : https://www.youtube.com/watch?v=9QJXmsczaP8 https://www.youtube.com/watch?v=5IRWMSBmw1w وهذا كود تحويل ايضا Sub importTableDataWord() ‘We declare object variables for Word Application and document Dim WdApp As Object, wddoc As Object ‘Declare a string variable to access our Word document Dim strDocName As String ‘Error handling On Error Resume Next ‘Activate Word it is already open Set WdApp = GetObject(, “Word.Application”) If Err.Number = 429 Then Err.Clear ‘Create a Word application if Word is not already open Set WdApp = CreateObject(“Word.Application”) End If WdApp.Visible = True strDocName = “C:\our-inventory\inventory.docx” ‘Check relevant directory for relevant document ‘If not found then inform the user and close program If Dir(strDocName) = “” Then MsgBox “The file ” & strDocName & vbCrLf & _ “was not found in the folder path” & vbCrLf & _ “C:\our-inventory\.”, _ vbExclamation, _ “Sorry, that document name does not exist.” Exit Sub End If WdApp.Activate Set wddoc = WdApp.Documents(strDocName) If wddoc Is Nothing Then Set wddoc = WdApp.Documents.Open(strDocName) wddoc.Activate ‘define variables to access the tables in the word document Dim Tble As Integer Dim rowWd As Long Dim colWd As Integer Dim x As Long, y As Long x = 1 y = 1 With wddoc Tble = wddoc.tables.Count If Tble = 0 Then MsgBox “No Tables found in the Word document”, vbExclamation, “No Tables to Import” Exit Sub End If ‘start the looping process to access tables and their rows, columns For i = 1 To Tble With .tables(i) For rowWd = 1 To .Rows.Count For colWd = 1 To .Columns.Count Cells(x, y) = WorksheetFunction.Clean(.cell(rowWd, colWd).Range.Text) ‘Access next column y = y + 1 Next colWd ‘go to next row and start from column 1 y = 1 x = x + 1 Next rowWd End With Next End With ‘we don’t need to save the word document wddoc.Close Savechanges:=False ‘we quit Word WdApp.Quit ‘We finally release system memory allocated to the 2 object variables Set wddoc = Nothing Set WdApp = Nothing End Sub

والأخر ايضا يعمل تمام هل لاحظت الصور ؟

اين اسماء العملاء؟ اذا كنت تريد طباعة ما فى الملف -تفضل مثال.xlsm

تفضل اخى الكريم ولتثبيت اى خلية كما تطلب عليك بتحديد الخلية ثم الضغط على f4 لتصيح رقم الخلية بين علامتين الدولار كما ترى بالملف $ مثال.xls

أخى الكريم لاحظ بالصور لا يوجد مشاكل بالتحميل https://up.top4top.net/downloadf-1129unji31-rar.html وايضا هذا رابط اخر على ميديا فاير http://www.mediafire.com/file/5wkob9d35px26mx/كنترول+شيت+2019-ابتدائى+واعدادى-الأستاذ+عبد+البارى.rar

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