نجوم المشاركات

الأستاذ الكريم / احمد غانم فقط اجعل كود الطباعه هكذا بإفتراض ان باسوورد حماية الشيت (( الحماية العادية للشيت )) (( 12345 )) Sub Printing() ActiveSheet.Unprotect Password:="12345" Rows([Row] & ":300").EntireRow.Hidden = True ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False Rows("8:300").EntireRow.Hidden = False ActiveSheet.Protect Password:="12345" End Sub وتقبل منى وافر الاحترام والتقدير

أخى فى الله الأستاذ الكريم// خالد العنانى يمكن ذلك فقط اجعل الكود هكذا Sub Printing() ActiveSheet.Unprotect Password:="12345" Rows([Row] & ":300").EntireRow.Hidden = True ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False Rows("8:300").EntireRow.Hidden = False ActiveSheet.Protect Password:="12345" End Sub واليكم الملف بعد اضافة الكود وتقبلوا منى وافر الاحترام والتقدير قيود بكشف حساب 11.rar

السلام عليكم جرب الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) Dim s As Integer, t1 As Integer Dim t2 On Error GoTo 1 If Target.Address = [c3].Address Then t1 = Split(CStr(Target), "-")(0) t2 = Split(CStr(Target), "-")(1) For s = 1 To Sheets.Count Sheets(s).Name = t1 & "-" & t2 t1 = t1 + 1 Next End If 1 End Sub المرفق 2003 تسمية الشيتات.rar

السلام عليكم جرب الكود التالي Sub Macro1() Dim LR As Long With Range("A4:C" & Cells(Rows.Count, "A").End(xlUp).Row) If .Row = 4 Then LR = Cells(Rows.Count, "G").End(xlUp).Row + 1 Cells(LR, "G").Resize(.Rows.Count, 1).Value = Date Cells(LR, "H").Resize(.Rows.Count, 3).Value = .Value End If End With End Sub تحياتي

الأستاذ / basitmtk السلام عليكم ورحمة الله وبركاته بعد إذن الأستاذ / زمزم جزاه الله خيراً إليك ربط به كيفية عمل شاشة إقتتاحية من البداية للنهاية أكثر من رائع لأستاذنا الكبير / حمادة عمر جزاه الله خيراً وجعل جميع اعماله في ميزان حسناته وإليك ملف من إنتاج تعلمي من هذا الشرح الرائع اسم المستخدم بسم الله وكلمة السر 111 http://www.officena.net/ib/index.php?showtopic=45232 شاشة افتتاحية.rar

https://www.google.com/search?q=%D9%83%D9%8A%D9%81%D9%8A%D8%A9+%D8%A7%D9%86%D8%B4%D8%A7%D8%A1+%D9%88%D8%A7%D8%AC%D9%87%D8%A9+%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC+%D8%B9%D9%84%D9%89+%D8%A7%D9%84%D8%A7%D9%83%D8%B3%D9%84&oq=%D9%83%D9%8A%D9%81%D9%8A%D8%A9+%D8%A7%D9%86%D8%B4%D8%A7%D8%A1+%D9%88%D8%A7%D8%AC%D9%87%D8%A9+%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC+%D8%B9%D9%84%D9%89+%D8%A7%D9%84%D8%A7%D9%83%D8%B3%D9%84&aqs=chrome..69i57&sourceid=chrome&es_sm=93&ie=UTF-8

السلام عليكم بعد كل الشكر لإخوتى الأفاضل المشاركين هذا كود آخر لاثراء الموضوع Sub ragab() Dim i As Integer Dim LR As Integer Dim cl As Range Dim arr() As Variant '========================================= Set WF = Application.WorksheetFunction LR = Cells(Rows.Count, 2).End(xlUp).Row '========================================= For Each cl In Range("B7:B" & LR) If Not IsEmpty(cl) Then i = i + 1 ReDim Preserve arr(1 To i) arr(i) = cl End If Next Range("D7:D" & LR).ClearContents Range("D7").Resize(i) = WF.Transpose(arr) Erase arr End Sub

أخى " أبو صلاح " تفضل المعادلة لتطبق على OFFICE 2003 =IF(ISERROR(SMALL(IF(ISNUMBER($B$7:$B$25); $B$7:$B$25; "");ROWS($D$1:D1)));"";SMALL(IF(ISNUMBER($B$7:$B$25); $B$7:$B$25; "");ROWS($D$1:D1))) بالطبع المعادلة معادلة صفيف أى لابد من الضغط على ( CTRL+SHIFT+ENTER ) تقبل تحياتى

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

أخى الحبيب ( وليد فتحى ) أستاذتى الفاضلة ( أم عبد الله ) ماشاء الله ، تبارك الله حلول ولاأروع بجد شئ يدعو للفخر والأعجاب ، لأساتذة يفتخر بهم أى عضو ينتمى لأسرة أوفيسنا ولمزيدا من الأفكار فكرة بسيطة لعلها تضفى على هذه الأفكار الرائعة شيئا بسيطا أخى " ماجد جلال " هذا حل أخر بمعادلة الصفيف " أى بعد كتابة المعادلة قف بمؤشر الموس أخر المعادلة وأضغط ( ctrl+shift+enter ) لتقم المعادلة بجلب القيم يشكل صحيح فى ( D7 ) ضع هذه المعادلة وأسحبها لأسفل =IFERROR(SMALL(IF(ISNUMBER($B$7:$B$25); $B$7:$B$25; "");ROWS($D$1:D1));"") تقبلوا فائق أحتراماتى 106.rar

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

الأستاذ /ماجد جلال السلام عليكم ورحمة الله وبركاته بعد إذن الأستاذ الفاضل / وليد فتحي جزاه الله خيراً على الكود الرائع جعله الله في ميزان حسناته ولإثراء الموضوع إليك الحل بالمعادلات. لكم كل التحية والتقدير. 105.rar

عليكم السلام ورحمة الله وبركاته الاستاذ الفاضل ماجد جلال على حسب فهمي لطلبك وبدايتي بالاكواد اتفضل الملف المرفق وأتمني من الله ان يكون طلبك تحياتي لك 105_w.rar

السلام عليكم ورحمة الله وبركاته أسف أخي الحبيب أنا كنت حاسب الساعات 6 ساعات وليس 7 تحويل مجموع الساعات لايام معدل.rar

السلام عليكم ورحمة الله وبركاته أتفضل أخي الفاضل ملف أخر قمت بتقسيمة الي خمس صفح الاربع صفح الاولي هي تساوي الاربع اسابيع لاي شهر والصفحة الخامسه هي تجميع للاربع اسابيع اي الشهر كامل كل ما عليك ان تقوم بتسجيل البيانات بكل صفحة وتسجيل ساعه بدأ الدوام بكل صفحة وسوف يقوم بحساب الايام مع ملاحظة انه قمت بتقريب الرقم لاني لا اعلم ماذا تريده مقرب أم غير مقرب فقمت بتقريب الرقم بخانة ولم اقربه بخانه اخري والتقريب كاتالي :- التقريب 0.1 يتم تقريبها إلي صفر أما ( 0.2 الي 0.5 ) يتم تقريبها الي 0.5 و( 0.6 الي 0.9 ) يتم تقريبها الي العدد الصحيح الاعلي واتحت لك امكانية عند جلب بيانات موظف معين ان تقوم بجلب الرقم المقرب او غير مقريب الشيت يتكون من 100 اسم وان ارد الزيادة مفيش مشكلة جرب وبانتظار ردك تحويل مجموع الساعات لايام معدل.rar

السلام عليكم ورحمة الله وبركاته أتفضل أخي الفاضل لعله المطلوب تحويل مجموع الساعات لايام.rar