وائل عزالدين

تسلم ايدك بجد هو دا فعلا اللي كنت محتاجه بالظبط ربنا يبارك فيك

السلام عليكم من فضلكم عندي شيت فيه عدد ساعات التاخير عايز كل 8 ساعات يتم خصم يوم وترحيل المتبقي من الساعات والدقايق في العمود اللي بعده يعني مثلا لو موظف عدد ساعات التأخير 17:15 ساعه يتم خصم 2 يوم وترحيل 1:15 ساعه في العمود اللي بعده شكرا جدا لحضراتكم Book7.xlsx

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

لا هي تمام ناقص بس ازاي اضيف النصوص تلقائي مع معادله بتاعت حضرتك

بشكر حضرتك جدا لتعبك معايا بس انا كنت محتاج انه يكتب لو خانه ال B فيها تاريخ يكنب كلمه "تمام ومده الاستلام( ويطرح ال Bمن ال A ) لو ال B فاضيه يكتب لم يتم الاستلام وتم التسليم من( ويطرح تاريخ اليوم من الخانه A) او خانه ال A وال B فاضيه ما يكتبش حاجه بشكرك جدا جدا

بعتذر جدا على التاخر في الرد على حضرتك استاذي الفاضل وبشكرك جدا جدا على اهتمام حضرتك وانا كنت حاولت اعمل المعادله بطريقه تانيه لو ممكن حضرتك تشوفه كدا تمام ولا ايه لان عندي مشكله واحده لسه وهي ان لو الخانه فاضيه من غير تاريخ بتديني نتيجه غريبه شويه الملف في المرفقات بشكر حضرتك مره تانيه وبعتذر على التاخر في الرد UBIED.xlsx

أرجو مساعدتي في المعادله التاليه شكرا جدا ليكم وجزاكم الله كل خير

السلام عليكم ورحمه الله وبركاته أرجو مساعدتي في معادلة للمقارنة بين تاريخين التفاصيل موجودة في الملف المرفق جازاكم الله خيرا مقدما ورمضان مبارك مقارنه بين تاريخين.xlsx

شكرا لاهتمامك 2.xlsm

السلام عليكم ورحمه الله وبركاته من فضلكم كنت محتاج تعديل في كود لأحد خبراء الاكسيل كنت عايز مساعده في تعديل في الكود دا بحجم الصور محتاج ان حجم الصور بدل من ان يكون الخليه الحاليه ليكون بحجم المشار اليه في الصوره التاليه شكرا جدا لاهتمامكم ومساعدتكم " /> دا الكود Function VLOOK_Pic1(PicName) Dim CurrentCel As Range, Pic As Shape PicName = PicName: MyPath = ThisWorkbook.Path & "data": PicName = MyPath & PicName: ChkPic = Array(".jpg", ".bmp", ".gif", ".png") Set CurrentCel = Application.Caller For Each Pic In ActiveSheet.Shapes If Pic.Type = msoLinkedPicture Then If Pic.Top >= CurrentCel.Top And Pic.Top < CurrentCel.Top + CurrentCel.Height Then Pic.Delete Exit For End If End If Next For X = LBound(ChkPic) To UBound(ChkPic) If Not Dir(PicName & ChkPic(X), vbDirectory) = vbNullString Then Set Pic = ActiveSheet.Shapes.AddPicture(PicName & ChkPic(X), True, False, CurrentCel.Left, CurrentCel.Top, CurrentCel.Width, CurrentCel.Height): VLOOK_Pic1 = "" Exit For Else VLOOK_Pic1 = "?? ???? ????" End If Next End Function

السلام عليكم ورحمه الله وبركاته بعد اذنكم عندي مشكله ان القائمه مش بتظهر في ال povit table على الرغم اني عاملها اظهار فهل من طريقه أخرى شكرا لحضراتكم

السلام عليكم ورحمه الله وبركاته لو سمحتوا عمالقه الاكسيل كنت محتاج مساعدتكم فى تعديل على الكود دا اني اخليه يطبع الشيت مرتين ورا بعض شكرا Sub Macro1() ' ' Macro1 Macro ' Dim countpersons As Integer Dim photofilepath As String Dim MyPrintArea As String Dim datafile As String Dim Rw As Long Dim xleft As Integer '-----------------------------hr countpersons = 3 'photofilepath = "y:\photo\turks\" 'turkish photo path Rw = 2 'start row datafile = "D:\Wael D\WAEL\New folder (5)\contarct\2018\Data 2018 Arabic" MyPrintArea = "A1:C119 " '--------------------------------------- Dim wb As Workbook Dim W As Workbook Set W = ActiveWorkbook Dim wb2 As Workbook Set wb2 = ActiveWorkbook Workbooks.Open datafile Set wb2 = ActiveWorkbook Dim I As Integer Dim SourceSheet As Worksheet I = 1 W.Sheets("Sheet1").Activate For I = 1 To countpersons With Sheets("Sheet1") .Range("A1").Value = "" .Range("B1").Value = "" .Range("B7").Value = "" .Range("B9").Value = "" .Range("B10").Value = "" .Range("B11").Value = "" .Range("B12").Value = "" .Range("B13").Value = "" .Range("B14").Value = "" .Range("B25").Value = "" .Range("B29").Value = "" .Range("B30").Value = "" '.Range("B23").Value = "" '.Range("B24").Value = "" '.Range("B26").Value = "" '.Range("B27").Value = "" '.Range("B29").Value = "" '.Range("B30").Value = "" ' If Sheets("Sheet2").Range("C" & Rw).Value <> "" Then .Range("A1").Value = wb2.Worksheets("Sheet1").Range("A" & Rw).Value .Range("B1").Value = wb2.Worksheets("Sheet1").Range("D" & Rw).Value .Range("B7").Value = wb2.Worksheets("Sheet1").Range("G" & Rw).Value .Range("B9").Value = wb2.Worksheets("Sheet1").Range("H" & Rw).Value .Range("B10").Value = wb2.Worksheets("Sheet1").Range("K" & Rw).Value .Range("B11").Value = wb2.Worksheets("Sheet1").Range("L" & Rw).Value .Range("B12").Value = wb2.Worksheets("Sheet1").Range("M" & Rw).Value .Range("B13").Value = wb2.Worksheets("Sheet1").Range("N" & Rw).Value .Range("B14").Value = wb2.Worksheets("Sheet1").Range("I" & Rw).Value .Range("B25").Value = wb2.Worksheets("Sheet1").Range("J" & Rw).Value .Range("B29").Value = wb2.Worksheets("Sheet1").Range("O" & Rw).Value .Range("B30").Value = wb2.Worksheets("Sheet1").Range("P" & Rw).Value '.Range("B21").Value = wb2.Worksheets("Sheet1").Range("M" & Rw).Value ' .Range("B23").Value = wb2.Worksheets("Sheet1").Range("N" & Rw).Value ' .Range("B24").Value = wb2.Worksheets("Sheet1").Range("P" & Rw).Value '.Range("B26").Value = wb2.Worksheets("Sheet1").Range("Q" & Rw).Value '.Range("B27").Value = wb2.Worksheets("Sheet1").Range("S" & Rw).Value '.Range("B29").Value = wb2.Worksheets("Sheet1").Range("T" & Rw).Value '.Range("B30").Value = wb2.Worksheets("Sheet1").Range("V" & Rw).Value With Sheets("Sheet1").PageSetup '.PaperSize = .PrintArea = MyPrintArea End With With ActiveWorkbook .Worksheets("Sheet1").PrintOut End With End With Rw = Rw + 1 Next End Sub

شكرا يا الغالي

تسلم ايدك استاذ صديق بس لو تفضلت ممكن الطريقه

اساتذه الاكسيل الكرام السلام عليكم ورحمه الله وبركاته لو سمحتوا هل من طريقه لتلوين الخليه بلون معين عندما يتم وضع رقم معين او وقت معين كما بالشيت المرفق فى الشيت المرفق : انا عملت مثال فى العمود B لو الوقت بعد 8:30:00 يتم تلوين الخط احمر والخلفيه اصفر بس بشرط تكون فى العمود الـ ENTRY فقط وليس فى الــ EXIT شكرا جزيلا مقدما وجزاكم الله خير الجزاء new.rar

وعليكم السلام سيدي الفاضل بن عليه فعلا هو دا الملف المراد جزاك الله كل خير وزادك الله من علمه وفضله

استاذي الفاضل / بن عليه حاجي وعليكم السلام ورحمه الله وبركاته اقدر تماما مدي تعبك ومجهودك ولكني وضعت التواريخ فى العمود التاني فقط للتوضيح حتى اصل الى عند كتابه تاريخ معين اقدر احصل على الناتج فتاريخ اليوم يتحدد على اساسه الرصيد المتاح وبناء عليه يبقى الرصيد كما هو ولا بتغير الا بعد مرور 4 اشهر فاذا افترضنا ان تاريخ التعيين 20/01/2011 اذا فرصيده سيكون 0 يوم حتى تاريخ 20/05/2011 اي بعد مرور 4 اشهر سيتغر الى 6 ايام ويبقى رصيده على هذا الوضع ( 6 ايام ) الى ان يصل الى تاريخ 20/09/2011 اي بعد مرور 4 اشهر اخر وهنا سوف يتغير الرصيد الى 12 يوم وهكذا سيدي الفاضل اشكرك جدا جدا جدا

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

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

تسلم ايد اخي أبوعيد دا فعلا جزء كان مطلوب بس الجزء الاصعب والمعقد فى الموضوع هو العمود التالت C العمود التالت بيكون رصيد الاجازات اللى هو ( 6 ايام كل اربع شهور 18 يوم فى السنه ( 6 ايام فى اول 3 شهور + 6 ايام فى تاني 3 شهور + 6 ايام فى اخر 3 شهور والغريب بقى في العمود التالت دا ان بعد خمس سنين من تاريخ التعيين بيكون رصيد الاجازات مختلف شويه 20 يوم فى السنه ( 7 ايام فى اول 3 شهور +7 ايام فى تاني 3 شهور + 6 ايام فى اخر 3 شهور فى الشيت المرفق العمود التالت للتوضيح بالنتائج المطلوبه

الساده الاعزاء عباقره الاكسيل السلام عليكم ورحمه الله وبركاته ارجو المساعده ان كان بالامكان فى حل لغز الشيت المرفق فهي معادله IF ولكن شروطها غريبه عليا ترجمتها للاكسيل ولا يسعنى الا تقديم خالص شكرا لسيادتكم مقدما Kitap2.rar

بارك الله فيكم جميعا بالفعل قمت بنسخ الملف فى مجلد جديد وهو يعمل الان بشكل رائع جدا جدا جدا

استاذ عمر الحسيني شاكر جدا جدا لجهدك العظيم المبذول كنت عايز اعرف مكان حفظ الملفات لم يتم العثور عليها شكرا

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

الفاضل / أبوعيد العمود Description (B)