عبدالله بشير عبدالله

السلام عليكم بالدوال عن طريق عمود مساعد في X شيت.xlsx او كود شيت.xlsb

وعليكم السلام ورحمة الله وبركاته طريقتان واختاري ما يتاسبك الاولى ان يكون الملفان مفتوحان في نفس الوقت ونفس المجلد وبنفس الاسم تحديث عدد الطلاب2 ( يمكن تعديله من الكود) ملف الطلاب الاصل.xlsb الثانية الملف مقفول وبأي اسم بمعنى عند الضغط على زر تحديث البيانات تظهر واجهة نخنار الملف المراد اخد البيانات منه ملف الطلاب الاصل2.xlsb اتمنى ان يكون طلبك في احد الملفين لك كل التقدير والاحترام

وعليكم السلام ورحمة الله وبركاته الكود Sub تجميع_البيانات() Dim wsSummary As Worksheet Dim ws As Worksheet Dim lastRow As Long Dim summaryLastRow As Long Dim dataRange As Range On Error Resume Next Set wsSummary = ThisWorkbook.Sheets("ملخص") On Error GoTo 0 If wsSummary Is Nothing Then Set wsSummary = ThisWorkbook.Sheets.Add wsSummary.Name = "ملخص" End If wsSummary.Rows("3:" & wsSummary.Rows.Count).ClearContents summaryLastRow = 3 For Each ws In ThisWorkbook.Sheets If ws.Name <> wsSummary.Name Then lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row If lastRow >= 3 Then Set dataRange = ws.Range("A3:Q" & lastRow) wsSummary.Cells(summaryLastRow, "A").Resize(dataRange.Rows.Count, dataRange.Columns.Count).Value = dataRange.Value summaryLastRow = summaryLastRow + dataRange.Rows.Count End If End If Next ws MsgBox "تم تجميع البيانات !", vbInformation End Sub الملف Book1.xlsb

جرب التعديل التالي توجد ورقة مخفية يتم نسخ البياتان اليها ومنها يتم تحويل الى PDF ترحيل بدون تنسيق شرطي.xlsb

وعليكم السلام ورحمة الله وبركاته الفكرة انشاء ملف جديد غير مرئي يتم فيه لصق البيانان ثم ازالة التنسيق الشرطي منه ثم التحويل الى PDF ثم يتم حذق الملف بدون المساس بالتنسيق الشرطى للملف الاصل كل ما سبق عن طريق كود ترحيل بدون تنسيق شرطي.xlsb

السلام عليكم dashboared موضوع يحناج الى من يتقن اعداد الجدوال بالاكسل مثل جدول الموظفات الجدد في صفحة وجدول المواضيع في صفحة وجدول الاجتماعات في صفحة واستخدام معادلة COUNTIF لحساب عدد الموظفات وعدد المواضيع المفعلة وغيرها ثم بانشاء صفحة داش بورد والتي تتطلب منك اتقان الرسوم البيانية والجداول المحورية والتي يكون مصدر بياناتها الصفحات الاخري عند النغيير في اي بيان في الصفحات يتم تغييره تلقائيا في الرسوم البيانية والجداول المحورية ابحثى في اليوتيوب به الكثير من الدروس هذا احداها اليك ملف يمكنك التعديل عليه dashboared.xlsx

وعليكم السلام ورحمة الله وبركاته جرب الملف حيث يتم انشاء مجلد في نفس مسار الملف 20244شيت مدرستى الصف السادس.xls

السلام عليكم قم بتفعيل الماكرو الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$2" Then Dim wsReport As Worksheet Dim wsSearch As Worksheet Dim lastRow As Long Dim i As Long Dim searchDate As Date Set wsReport = ThisWorkbook.Sheets("REPORT") Set wsSearch = ThisWorkbook.Sheets("Search2") searchDate = wsSearch.Range("G2").Value wsSearch.Range("B4:G1000").ClearContents lastRow = wsReport.Cells(wsReport.Rows.Count, "D").End(xlUp).Row Dim rowIndex As Long rowIndex = 4 For i = 2 To lastRow If wsReport.Cells(i, "D").Value = searchDate Then wsSearch.Cells(rowIndex, "B").Value = rowIndex - 3 wsSearch.Cells(rowIndex, "C").Value = wsReport.Cells(i, "G").Value wsSearch.Cells(rowIndex, "F").Value = wsReport.Cells(i, "J").Value wsSearch.Cells(rowIndex, "D").Value = wsReport.Cells(i, "I").Value wsSearch.Cells(rowIndex, "E").Value = wsReport.Cells(i, "H").Value rowIndex = rowIndex + 1 End If Next i End If End Sub New Microsoft Excel Worksheet (1).xlsb

وعليكم السلام ورحمة الله وبركاته شاهد المرفق حدد اي المعادلتين المطلوبة في العمود V او X Track.xlsb

السلام عليكم بالنسبة للشهر والسنة يمكنك الاخنيار من القائمة ووكلما اضفت شهرا جديدا يتم اظافته تلقائيا الى القائمة ويتم احضاره الى التقرير جرل الملف وان كان هناك ملاحظات اذكرها attedance report (1).xlsb

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

السلام عليكم دالة countif مضافاً إليها دالة max ضعها في a2 ثم اسحبها للاسفل =IF(COUNTIF($B$2:B2; B2)=1; MAX($A$1:A1)+1; "") ملف ترقيم بتجاوز المكرر.xlsx

وعليكم السلام ورحمة الله وبركاته ="D:\الهويات\Pictures\" & ROW(A1) & ".jpg" ثم لسحب للاسفل ويمكنك نسخها ولصقها كقيم يعد ذلك New Microsoft Excel Worksheet.xlsx

كان من المفترض تجهيز الملف بحيث الاسماء لا تتكرر في الفروع الثلاتة ولا رقم الموظف وان فرضنا ان الموظف يعمل في اكثر من فرع فاليوم ووقت العمل يفترض ان يكون مختلف في شيت Employee لاحظت بداية الوقت 8 صباحا ونهاية الوقت 6 صباحا بمعنى العمل 22 ساعة هل هذا صحيح ام ان البيانات عشوائية على العموم جرب الملف وضع فيه بيانات واقعية وقم بتجربته باقى المطالب بعد التأكد مراجعنك للملف وابداء اي ملاحظات attedance report (1).xlsb

هل تقصد كل من حضر من ٧ صباحا الى ٥ مساءا يستحق الاظافي فقط اكتب الشروط والفروع ولنر ى الامر

اظافة زر طباعة attedance report.xlsb

وعليكم السلام ورحمة الله وبركانه الوقت الاظافي كيف يتم حسابه هناك من ياتي مناخر مثلا 10 دقائق ولكته يبقى بعد الدوام 20 دقيقة هل يحسب له وقت اظاقي 10 د ام 20د ارجو كتابة امثلة لاستحقاق الموظف اظافي وحالات لا يستحق attedance report.xlsb

السلام عليكم اليك مثال على ذلك حيث يتم انشاء مجلد على سطح المكتب (يمكن تعديله بالكود) تحويل الى PDF.xlsm

السلام عليكم الحمد لله تم اصلاح العطل بالمنتدى بواسطة فلترة البيانات بالعمود الاول A يمكن تعديل حسب العمود الذي به بيانات في الجزء Field:=1 الكود Sub SaveRangeAsPDF() Dim ws As Worksheet Dim savePath As String Set ws = ThisWorkbook.Sheets("ورقة1") With ws .Range("A1:Z999").AutoFilter Field:=1, Criteria1:="<>" savePath = "D:\" & .Range("AA1").Value & " " & Format(Now, "yyyy-mm-dd,hh.mm") & ".pdf" .Range("A1:Z999").ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False .AutoFilterMode = False End With MsgBox "تم حفظ الملف بنجاح!", vbInformation, "حفظ PDF" End Sub الملف DFP2.xlsb

وعليكم السلام ورحمة الله وبركاته وهذا ما يقوم به الملف فهل جربت الملف الاول ؟ اكتب اي حرف او اسم في اي صفحة فاذا كات مكررا يتم تلوينه بالاصفر اوتامتيك تلقائيا ربما لديك الماكرو غير مفعل ارفق لك الملف مرة اخرى تلوين الخلايا المكررة (1).xlsb

السلام عليكم كان من الافضل ارفاق الملف ولكن على كل حال اليك ملف يقوم بالحفظ في D DFP1.xlsb

وعليكم السلام ورحمة الله وبركاته اليك ملفان الاول تلقائي بمجرد كنابة اي اسم مكرر في اي صفحة سيم تلوينه بالاصفر مع زر امر لمسح اللون الاصفر الثاني زر امر مع رسالة تحدد التكرار وفي اي صفحة مع زر امر لمسح اللون الاصفر تلوين الخلايا المكررة (1).xlsb تلوين الخلايا المكررة (2).xlsb

وعليكم السلام ورحمة الله وبركاته بالرغم من وضوح طلبك كان الاجدر ارفاق ملف للتطبيق عليه الكود المرفق بسيط ويمكن تعديله Sub TransferData() Dim srcSheet As Worksheet, destSheet As Worksheet Dim mapping As Variant Dim i As Long Set srcSheet = ThisWorkbook.Sheets("تسجيل البيانات") Set destSheet = ThisWorkbook.Sheets("الرئيسية") mapping = Array( _ Array("A", "A"), _ Array("B", "M"), _ Array("C", "N"), _ Array("D", "O"), _ Array("E", "X"), _ Array("F", "Z"), _ Array("G", "AA"), _ Array("H", "AE"), _ Array("I", "AF"), _ Array("J", "AJ"), _ Array("K", "AU"), _ Array("L", "AV")) Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = LBound(mapping) To UBound(mapping) With destSheet .Columns(mapping(i)(1)).Clear End With Next i For i = LBound(mapping) To UBound(mapping) With srcSheet .Columns(mapping(i)(0)).Copy Destination:=destSheet.Columns(mapping(i)(1)) End With Next i Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True ' MsgBox "تم نقل البيانات !", vbInformation End Sub ملف استدعاء اعمدة.xlsb

السلام عليكم صباح الخير لم ترفق اي شئ طلبك الاساسي وهو البحث والاظافة والتعديل والحذف قد تحقق فاعتذر عن المواصلة لات الموضوع دخل في طلبات اخرى لم ترفقها في طلبك من البداية مثل اليوزفورم8 والذي ارفقته بعد الانتهاء من طلباتك الاساسية وطلبت منك ارفاق ورقة العقد ولم ترفقها الى الان بالرغم طلبتها متك اكثر من اربع مرات (راجع التعليقات السابقة) وبما انه طلبانك الاساسية قد تحققت افتح موضوع حديد مجهزا فيه ما يتعلق بطلبك شارحا فيه طلبك وستجد ان شاء الله الاستجابة من الاساتذة بالمنتدى حقيقة هذا الموضوع اجهدنى كثيرا وخصوصا اننى تجاوزت 60 سنة اعتذر مرة اخرى ولك كل الاحترام والتقدير

لم ترفق ورقة العقد اين هي ملفات pdf لاقوم بالتجربة كذلك بالاكواد يوجد (MsgBox ("تم اضافة العقد/ (") & Format(UserForm1.TextBox3.Value) & " ) بنجاح ", vbMsgBoxRtlReading + vbCritical + vbOKOnly, "تنبـــــــه") اين هو UserForm1 واين هو TextBox3 غير موجودة لاننى بهذا الوضع لا استطيع عمل شئ بدون ملفات العقود وبدون UserForm1 وTextBox3 لاعرف مهمتها