Ali Mohamed Ali

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

وعليكم السلام-تفضل اخى الكريم asd.xlsm

اخوانى الكرام الملف يعمل عندى وهذه صورة الواجهة وسأرسل الملف مرة اخرى برنامج اجازات الموظفين.xlsm

أخى الكريم هذه طريقتان للحل باستخراج العناصر المتشابهة بين العمودين واذا لم يكن هذا هو ما تريده فرجاءا وضح اكثر ما تريد ورقة عمل Microsoft Excel جديد (4).xlsx

اهلا وسهلا بك اخ كريم فى منتدانا أولا عليك بنسخ المعادلات التى فى الشيت المرسل سابقا بداية من الخلية كما فى الصورة ik1 وعمل لصق لها فى الشيت الذى تريده جزاك الله كل خير

اعمال رائعة -بارك الله فيك

وعليكم السلام تفضل اخى الكريم Book1.xlsx