Ali Mohamed Ali

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

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

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

تفضل اخى الكريم لقد تم الحل بإستخدام معادلة Index,Match EXCEL1.xlsx

تفضل اخى الكريم والشكر موصول لأستاذنا الكبير سليم-لقد تم استخدام معادلة حضرتك الرائعة فى الملف رصد الدرجات لكل طالب.xls

وعليكم السلام تفضلى نقل بيانات.xlsm

تفضل اخى الكريم فاتورة.xlsm

تفضل اخى الكريم هذا من اعمال المنتدى فاتورة.xlsm

تفضل اخى الكريم ملف اخر به تقديم التاريخ الهجرى EventsCalendar.xls

تفضل اخى الكريم علي هذا ملف اخر به شهور كل السنة عليك فقط تغيير العام الهجرى الى ما تريد EventsCalendar.xls

تفضل اخى الكريم هذا كود الأستاذ الكبير ياسر خليل لعله يفى بالغرض Sub Macro01() Dim x3 As Long Dim x4 As Long a = MsgBox("åá ÊÑíÏ ØÈÇÚÉ ÇáÇä ¿", vbYesNo + vbQuestion, "ØÈÇÚÉ") If a = vbYes Then With ActiveSheet Dim Numcop As Integer Numcop = Application.InputBox("ÃÏÎá ÚÏÏ ÇáäÓÎ ááØÈÇÚÉ:", "ßã ÚÏÏ ÇáäÓÎ?", 1, Type:=1) If Numcop = 0 Then Exit Sub ElseIf Len(Numcop) > 0 Then ActiveWindow.SelectedSheets.PrintOut copies:=Numcop Exit Sub End If End With Skipper: x3 = Sheets("DATA").Range("a1000").End(xlUp).Row + 1 x4 = Sheets("aaa").Range("B24").End(xlUp).Row Sheets("DATA").Range("B" & x3).Resize(x4 - 5, 21) = Sheets("aaa").Range("B6").Resize(x4 - 5, 21).Value End If End Sub

تفضل اخى الكريم بعد اذن استاذى أحمد نفس ملف الأستاذ أحمد ولكن تم ضبط التنسيقات حتى يخرج اسم الشهر بالعربى المصنف1(3)(1).xlsx

وعليكم السلام رحمة الله على العلامة الكبير عماد الحسامى-عالم من علماء الإكسيل التى مازالت اعماله منارة لنا فى تعلم الإكسيل تفضل البرنامج لعله يكون افادة للجميع وصدقة جارية على روحه الكريم الباسورد هو : 123 نظام الحسامي للمخازن-123.xls

وعليكم السلام تفضل جرب هذا https://www.udemy.com/arabic-vba/ وهذا ايضا http://xlsmilev.blogspot.com/2016/12/vba.html http://www.damasgate.com/vb/t261177/

وعليكم السلام اخى الكريم قمت بفتح الملف ثم غلقه ثم فتحه مرة ثانية فلا يظهر معى اى مشكلة والكود شغال تمام

اهلا وسهلا بك اخ كريم فى منتدانا تفضل هذان ملفان اختر منهما ما تريد برنامج مبيعات للحوفي.xlsx مخازن (1).xlsx

لاحظ اخى الكريم المعادلة الأخرى الجديدة -1asd.xlsm