حسونة حسين

تفضل اخى الكريم Sub Test() Dim SH As Worksheet, WS As Worksheet, SHLR As Long, WSLR As Long, CEL As Range Application.DisplayAlerts = False Application.EnableEvents = False Set WS = ThisWorkbook.Worksheets("Total") For Each SH In Worksheets If SH.Name <> "Total" Then With SH SHLR = SH.Cells(Rows.Count, 4).End(xlUp).Row + 1 For Each CEL In SH.Range("D14:D" & SHLR) If CEL.Value <> Empty Then WSLR = WS.Cells(WS.Rows.Count, 1).End(xlUp).Row + 1 WS.Range("A" & WSLR) = SH.Range("I14") WS.Range("B" & WSLR) = SH.Range("L14") WS.Range("C" & WSLR) = CEL.Value End If Next CEL End With End If Next SH Application.DisplayAlerts = True Application.EnableEvents = True End Sub CS_StudentRemainingCourses.xlsm CS_StudentRemainingCourses-1.xlsm

وعليكم السلام ورحمة الله وبركاته ضع هذه المعادله في الخليه a3 وغير العامود كما تريد =HYPERLINK(A100,"Go")

السلام عليكم ورحمة الله وبركاته جرب هذا التعديل اخى الكريم Sub Delete_Old_Date() Dim m As Long, r As Long, WS As Worksheet Set WS = ThisWorkbook.Worksheets("آخر حركة انقطاع ") Application.ScreenUpdating = False m = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row For r = 2 To m If Application.CountIf(WS.Range("A" & r & ":A" & m), WS.Cells(r, 1).Value) > 1 Then WS.Rows(r).Delete r = r - 1 End If Next r Application.ScreenUpdating = True End Sub

وعليكم السلام ورحمه الله وبركاته اخى الكريم ما هو الشكل المتوقع لوضع البيانات في صفحه total صمم نموزج لشكل البيانات وليكن لعدد ٢ طالب لتتضح الرؤيه

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

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

وجزاكم مثله اخى الكريم الحمد لله الذي بنعمته تتم الصالحات

وعليكم السلام ورحمة الله وبركاته المعادله الاولى =iferror(DATE(IF(LEFT(C1232;1)="2";MID(C1232;2;2);"20"&MID(C1232;2;2));MID(C1232;4;2);MID(C1232;6;2));"") المعادله الثانيه =iferror(IF(Q1232>1;DATEDIF(Q1232;$P$1;"md");"");"")

وعليكم السلام ورحمه الله وبركاته يمكنك الاستفاده من هذا الموضوع

السلام عليكم ورحمه الله وبركاته جرب هذا التعديل اخى الكريم test2.xlsb

بعد اذن الاساتذه عدل هذا الجزء LR = Range("G" & Rows.Count).End(3).Row الي LR = Range("E" & Rows.Count).End(3).Row

عدل File_name = "Filename" الى File_name = SH.Range("E7").Value

وعليكم السلام ورحمه الله وبركاته تفضل بالنسبة لطلبك الاول Sub Export_PDF() Dim SH As Worksheet, R As Range, File_name As String Set SH = ThisWorkbook.Worksheets("Sheet1") File_name = "Filename" Set R = SH.Range("A1:H20") R.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & File_name End Sub

الكود المرفق في ملفك ليس به اي مشاكل اخى الكريم

وعليكم السلام ورحمه الله وبركاته تفضل اخى الكريم Private Sub Workbook_Open() #If VBA7 Then Application.WindowState = xlMaximized #Else Application.Quit #End If End Sub

وعليكم السلام ورحمة الله وبركاته اخى الكريم كيف غريب الملف هذه اكواد الامتدات الخاصه بالاكسل اختر ما تشاء منها .xlsx = 51 .xlsm = 52 xlsb = 50 .xls = 56

وعليكم السلام ورحمه الله وبركاته تفضل اخى الكريم Sub File_Save_As() ThisWorkbook.SaveAs Filename:="e:\" & Format(Date, "ddd") & "-" & Format(Date, "dd-mm-yyyy") & "new", FileFormat:=52 End Sub

أخى الفاضل جزاكم الله خيرا على مجهودك جعله الله في ميزان حسناتك يوم القيامة المعادلة الخاصة بصافى الراتب A36*e36 )/c37+d36) تعطى العامل لو اشتغل ساعه اضافى بالمعادله تعطية ساعتين المفروض المعادلة تكون بهذا الشكل A36*e36 )/c37) هل كلامى صواب ام خطأ مرفق ملف 05.zip

أخى الفاضل جزاكم الله خيرا على مجهودك جعله الله في ميزان حسناتك يوم القيامة الملف مرفق النهائى بعد تعديل بسيط ليستفيد منه الأخوة 4.zip

أخى الفاضل من غير كتابه الأرقام نجد أن هناك مبلغ سوف يأخذه العامل (100 ) حتى لو لم ياتى إلى العمل هنا المشكله

لم تحل المشكلة العامل لم يعمل وصافى المرتب 1000 العامل مطلوب منه عدد ساعات في الشهر 8 في عدد ايام الشهر بدون الجمعه ثم نطرح ما عمله العامل في الشهر من ساعات من الساعات المطلوبة فما ذاد يكون ساعات اضافية

يوجد مشكلة في حساب ساعه الاضافى على حسب ايام الشهر ما عدا يوم الجمعه 1.zip