Ali Mohamed Ali

تفضل سجل الدوام اليومي-1.xlsx

تفضل Down.xlsm

اهلا وسهلا بك بين اخوانك-تفضل time.xlsx

تفضل غياب MD-1.xlsm

تفضل غياب.xlsm

تفضل time.xlsx

لو ممكن رفع الملف مرة اخرى فبه مشكلة عند فك الضغط

تفضل ....

تفضل هذا تطبيق لمعادلة استاذنا الكبير سليم -جعله الله دائما زخرا لنا Book1.xlsx تفضل هذا تطبيق لمعادلة استاذنا الكبير سليم -جعله الله دائما زخرا لنا

من فضلك قم برفع الملف وحاول حذف المشاركة الاخرى فهى مكررة

تفضل هذا حل اخر بتعديل طفيف فى المعادلة htta-2.xlsx

تفضل برنامج شئون عاملين 2020.xlsm

ما هو الباسورد واسم المستخدم

تفضل فصل كلمات من سلسلة نصية بدلالة رمز-1.xlsm

من فضلك ارسل الملف نفسه وليس صورة منه

thank you,it's very nice

تفضل 121212-1.xlsm

وهذا حل بالمعادلات htta-1.xlsx

تفضل Book1.rar

تفضل Translation Names .rar

تفضل Sub mergeFiles() 'Merges all files in a folder to a main file. 'Define variables: Dim numberOfFilesChosen, i As Integer Dim tempFileDialog As FileDialog Dim mainWorkbook, sourceWorkbook As Workbook Dim tempWorkSheet As Worksheet Set mainWorkbook = Application.ActiveWorkbook Set tempFileDialog = Application.FileDialog(msoFileDialogFilePicker) 'Allow the user to select multiple workbooks tempFileDialog.AllowMultiSelect = True numberOfFilesChosen = tempFileDialog.Show 'Loop through all selected workbooks For i = 1 To tempFileDialog.SelectedItems.Count 'Open each workbook Workbooks.Open tempFileDialog.SelectedItems(i) Set sourceWorkbook = ActiveWorkbook 'Copy each worksheet to the end of the main workbook For Each tempWorkSheet In sourceWorkbook.Worksheets tempWorkSheet.Copy after:=mainWorkbook.Sheets(mainWorkbook.Worksheets.Count) Next tempWorkSheet 'Close the source workbook sourceWorkbook.Close Next i End Sub

تفضل اخى الكريم -جرب هذا tel data4.xlsm

تفضل كل عام وانتم بخير -2).xls

password : younes

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