Ali Mohamed Ali

تفضل لك ما طلبت بهذا الكود Private Sub UserForm_Activate() UserForm1.Label1.Caption = Sheets("1").Range("B1").Value + Sheets("2").Range("B1").Value UserForm1.Label2.Caption = Sheets("1").Range("C1").Value + Sheets("2").Range("C1").Value UserForm1.Label3.Caption = Sheets("1").Range("D1").Value + Sheets("2").Range("D1").Value End Sub أحتساب عمود من شيتين في 2اليوزرفوم.xlsm

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

تفضل تم الحل بطريقتين بمعادلات المصفوفة (Ctrl+Shift+Enter) =IF(ROWS($L$3:L3)>COUNTA($B$3:$B$500),"",INDEX($B$3:$B$500,SMALL(IF($B$3:$B$500<>"",ROW($B$3:$B$500)-ROW($B$3)+1),ROWS($L$3:L3)))) وايضا بالكود .. حتى تختار المناسب لك من بين الحلين Sub Rectangle1_Click() On Error Resume Next Worksheets("Sheet1").Range("b3:c100").SpecialCells(xlCellTypeConstants).Copy Worksheets("Sheet1").Range("I3:I100") Application.CutCopyMode = False End Sub جلب بيانات عمود بدون فراغات.xlsm

هو ده التنسيق الصح بأن يكون اليوم من اليمين ثم الشهر ثم السنة لو محتاج غير كده ... يمكنك التعديل بنفسك على المعادلة على الشكل الذى تريده

وعليكم السلام-وذلك من خلال هذه المعادلة =YEAR(G4)-5 &"/"&MONTH(G4)&"/"&DAY(G4) تواتي 39.xlsx

تمام أحسنت استاذ منير عمل ممتاز , بالتوفيق دائماً مع مواصلة النجاح والإجتهاد الى الأمام دائماً دون توقف وواصل

بالتأكيد هدية مقبولة اخى الكريم -بارك الله فيك وجزاك الله كل خير

وعليكم السلام-كان عليك عمل بحث قبل طرح هذه المشاركة-تفضل برنامج مرتبات أبي الحسن لعام ٢٠١٩

الطلبات اصبحت كثيرة جدا يمكنك استخدام معادلة المصفوفة =IFERROR(INDEX($A$5:$A$14,SMALL(IF($E$5:$E$14=FALSE,ROW(A$5:A$14)-ROW(A$5)+1),ROWS($L$5:L5))),"") تواتي 37.xlsx

يمكنك استخدام معادلة المصفوفة لإيجاد أقل قيمة (Ctrl+Shift+Enter) =MIN(IF((ALL!$A:$A=$A2),ALL!$D:$D,"")) ولأكبر قيمة استخدام هذه المعادلة =MAX(IF((ALL!$A:$A=$A2),ALL!$F:$F,"")) AnnualVacation1.xlsx

وعليكم السلام-يمكنك استخدام هذه المعادلة =SUMPRODUCT(($C$5:$C$956<>"الغاء")*($D$5:$D$956)) المجموع1.xlsx

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

وعليكم السلام -ولإثراء الموضوع وبعد اذن الأساتذة يمكنك استخدام هذه المعادلة =IFERROR(VLOOKUP($A2&"المجموع",القوائم!$A$2:$D$132,4,0),"") جمع القوائم تلقائيا1.xlsx

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

بعد اذن اخى عبد الفتاح ,على الرغم اننا نبهنا كثيراً انه لابد من رفع ملف مدعوم بشرح كافى عن المطلوب فى كل مشاركة وذلك تجنباً لعدم اهدار وقت الأساتذة ولأنه لا يمكن العمل على التخمين ..فيمكنك استخدام هذا الكود Sub MergeExcelFiles() Dim fnameList, fnameCurFile As Variant Dim countFiles, countSheets As Integer Dim wksCurSheet As Worksheet Dim wbkCurBook, wbkSrcBook As Workbook fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True) If (vbBoolean <> VarType(fnameList)) Then If (UBound(fnameList) > 0) Then countFiles = 0 countSheets = 0 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set wbkCurBook = ActiveWorkbook For Each fnameCurFile In fnameList countFiles = countFiles + 1 Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile) For Each wksCurSheet In wbkSrcBook.Sheets countSheets = countSheets + 1 wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count) Next wbkSrcBook.Close SaveChanges:=False Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic MsgBox "Processed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files" End If Else MsgBox "No files selected", Title:="Merge Excel files" End If End Sub كما يمكنك الإستعانة بهذا الفيديو COMBINE Multiple Excel WORKBOOKS into One | ExcelJunction.com كما يمكنك استخدام هذا الكود أيضاً Sub ConslidateWorkbooks() 'Created by Sumit Bansal from https://trumpexcel.com Dim FolderPath As String Dim Filename As String Dim Sheet As Worksheet Application.ScreenUpdating = False FolderPath = Environ("userprofile") & "DesktopTest" Filename = Dir(FolderPath & "*.xls*") Do While Filename <> "" Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop Application.ScreenUpdating = True End Sub وهذا أيضاً كود ثالث لطلبك 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 وفى هذا الرابط ايضاً عدة أكواد ستفيدك فى طلبك How to combine multiple workbooks into one master workbook in Excel?

اهلا بك فى المنتدى , يمكنك هذا بالدالة المعرفة ConvertDate ... بوضع هذه المعادلة بالخلية D5 سحباً للأسفل وهذا هو كود الدالة Option Explicit Function ConvertDate(ByRef StringIn As String) As String Dim savedCal As Integer Dim d As Date Dim s As String savedCal = Calendar Calendar = 1 d = CDate(StringIn) Calendar = 0 s = CStr(d) ConvertDate = Format(s, "dd/mm/yyyy") Calendar = savedCal End Function المصنف1.xlsm

أحسنت استاذ منير دائما وابداً عليك التحلى بالصبر فهذا العمل انما تقوم به لوجه الله لا تنتظر النتيجة من احد فبناءا على شرحك بالفيديو اتضح ان البرنامج ممتاز وليس به اية ملاحظات .. بس ياريت لو يكون هناك امكانية لإضافية جميع دول العالم وليس دول قارة أفريقيا فقط جزاك الله خير الثواب , والروابط والفيديو ايضا بعد التعديل يعملوا تمام وبكل كفاءة

وعليكم السلام-يمكنك استخدام هذه المعادلة =INDEX($P$6:$P$20,MATCH("مؤكد",$F$7:$F$21,0)) الحالات المؤكدة1.xlsx

وعليكم السلام-يمكنك استخدام هذه المعادلة =COUNTIF($C$7:$C$12,E$6) تواتي 221.xlsx

يمكنك استخدام هذه المعادلة للغيابات الصباحية أما بالنسبة للمسائية فقط عليك استبدال حرف ص وتغييره الى مـ ملحوظة : يمكنك تغيير ايضاً التواريخ التى تريد حساب الغيابات من خلالها وذلك من الخليتين F1 & G1 بصفحة Info =SUMPRODUCT((maroc[[#Headers],[01/06/2020]:[10/06/2020]]>=$F$1)*(maroc[[#Headers],[01/06/2020]:[10/06/2020]]<=$G$1)*(maroc[nom]=$A2)*(maroc[[01/06/2020]:[10/06/2020]]="ص")) anas2021.xlsx

بعد اذن استاذ سليم ولإثراء الموضوع Tawati2.xlsm

وعليكم السلام-يمكنك فقط استخدام هذه المعادلة =IFERROR(VLOOKUP(G3,$A$3:$C$200,3),"") قائمة تسديد 1TEST.xlsx

وعليكم السلام -اجعل المعادلة هكذا =IFERROR(E12-E13,"") معادلة1.xlsx

اجعل الأرقام فى المعادلة داخل علامة التنصيص "" =IF(I1="1","القاهرة",IF(I1="2","الإسكندرية",IF(I1="3","بورسعيد",IF(I1="4","السويس",IF(I1="11","دمياط",IF(I1="12","الدقهلية",IF(I1="13","الشرقية",IF(I1="14","القليوبية",IF(I1="15","كفر الشيخ",IF(I1="16","الغربية",IF(I1="17","المنوفية",IF(I1="18","البحيرة",IF(I1="19","الاسماعيلية",IF(I1="21","الجيزة",IF(I1="22","بنى سويف",IF(I1="23","الفيوم",IF(I1="24","المنيا",IF(I1="25","اسيوط",IF(I1="26","سوهاج",IF(I1="27","قنا",IF(I1="28","أسوان",IF(I1="29","الأقصر",IF(I1="31","البحر الاحمر",IF(I1="32","الوادى الجديد",IF(I1="33","مطروح",IF(I1="34","شمال سيناء",IF(I1="35","جنوب سيناء",IF(I1="88","خارج الجمهورية","0")))))))))))))))))))))))))))) الرقم القومى.xlsx

تفضل هذا بحث اخر بالإسم ولا يمكن ان يكون هناك اكثر من بند للبحث فى وقت واحد Search by Name.xlsx