وائل عزالدين

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

السلام عليكم من فضلكم عندي شيت فيه عدد ساعات التاخير عايز كل 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