تعديل على كود

[أبوبسمله]

السلام عليكم اخوانى واخواتى الافاضل 

قمت بالتعديل على الكود اللذى ساعدنى به اخى الكريم ياسر 

ولكن لم يظبط معى فهل اطمع منكم التعديل عليه 

التعديل المطلوب لهذا التقرير 

ان ياتى بمن هم 50 سنه واكبر ولهم عدد ايام اكبر من 4 ايام 

ومن هم اقل من 50 سنه ولهم اكثر من 3 ايام 

 

Sub ÈÍË()
 Dim WS As Worksheet, Str As String
    Dim H As Long, Found As Range
    Dim lRow As Long
    Set WS = Sheets("ÊÞÑíÑ ÎÕã 5%")
    Str = WS.Range("B3").Value
    lRow = 7
      Application.ScreenUpdating = False
           WS.Range("A7:C1000").ClearContents
            For H = 5 To Sheets.Count
             Set Found = Sheets(H).Columns("H:H").Find(Str)
              If Not Found Is Nothing Then
           
           
         If Found.Offset(0, -1) > 4 And Range("D5") > 50 Then
          
         
              WS.Cells(lRow, 1) = Sheets(H).Range("B3")
              WS.Cells(lRow, 2) = Sheets(H).Range("A1")
               WS.Cells(lRow, 3) = Found.Offset(0, -1)
                lRow = lRow + 1
              End If
                End If
      
        Next H
            Application.ScreenUpdating = True
End Sub

 

2New2.rar

[ياسر خليل أبو البراء]

فقط عدل هذا الجزء وجرب الكود

Sheets(H).Range("D5").Value > 50

 

تم تعديل أغسطس 13, 2015 بواسطه ياسر خليل أبو البراء

[أبوبسمله]

مرحبا بك اخى ياسر 

قمت بتعديل الجزء التالى كما أشرت 

             Set Found = Sheets(H).Range("D5").Value > 50

لكن يعطينى خطأ رقمه  Object required (Error 424)

 

[ياسر خليل أبو البراء]

التعديل في هذا السطر فقط

If Found.Offset(0, -1) > 4 And Range("D5") > 50 Then

غيره ليصبح بهذا الشكل

If Found.Offset(0, -1) > 4 And Sheets(H).Range("D5") > 50 Then

 

[أبوبسمله]

جزاك الله كل خير أخى ياسر 

تمام كده تم جلب الموظفين الاكبر من 50 ولهم اجازات اكبر من 4  

يبقى لسه من هم اقل من 50 سنه ولهم اكثر من 3 ايام 

وجزاك الله عنى كل خير 

 

[ياسر خليل أبو البراء]

خلي السطر بالشكل ده عشان تجمع بين الشرطين

If (Found.Offset(0, -1) > 4 And Sheets(H).Range("D5").Value > 50) Or (Found.Offset(0, -1) > 3 And Sheets(H).Range("D5").Value < 50) Then

 

[أبوبسمله]

جزاك الله كل خير اخى ياسر 

وبارك الله لك فى اهلك ومالك ورزقكك راحة البال 

[ياسر خليل أبو البراء]

وجزيت بمثل ما دعوت أخي الكريم أحمد

الحمد لله أن تم المطلوب على خير

تقبل تحياتي