البحث عن زوار المدرسة في يوم معين (بحث بشرطين)

[HANY SAAD]

السادة اعضاء المنتدى التعليمى 

السلام عليكم ورحمة الله

اشتغلت على شيت اكسل بعمل خطة للموجهين تربية وتعليم 

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

بحث.xlsx

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركاته

اكتب التاريخ واسم المدرسة ثم اضغظ على زر بحث

Sub SearchAndTransfer()
    Dim wsPlan As Worksheet
    Dim wsSearch As Worksheet
    Dim lastRowPlan As Long
    Dim lastRowSearch As Long
    Dim i As Long, j As Long
    Dim searchDate As String
    Dim searchSchool As String
    Dim dateFound As Boolean
    Set wsPlan = ThisWorkbook.Sheets("الخطة")
    Set wsSearch = ThisWorkbook.Sheets("بحث بالمدرسة")
    lastRowPlan = wsPlan.Cells(wsPlan.Rows.Count, "B").End(xlUp).Row
    searchDate = wsSearch.Range("D1").Value
    searchSchool = wsSearch.Range("C4").Value
    wsSearch.Rows("9:" & wsSearch.Rows.Count).ClearContents
    lastRowSearch = 9
    For i = 6 To lastRowPlan
        dateFound = False
        For j = 5 To 31 ' المدى E5:AE5 يعني الأعمدة من 5 إلى 45
            If wsPlan.Cells(5, j).Value = searchDate And wsPlan.Cells(i, j).Value = searchSchool Then
                dateFound = True
                Exit For
            End If
        Next j
        
        If dateFound Then
                   wsSearch.Cells(lastRowSearch, 1).Value = lastRowSearch - 8
 
            wsSearch.Cells(lastRowSearch, 2).Value = wsPlan.Cells(i, 3).Value
            wsSearch.Cells(lastRowSearch, 3).Value = wsPlan.Cells(i, 4).Value
            lastRowSearch = lastRowSearch + 1
        End If
    Next i

    If lastRowSearch = 9 Then
        MsgBox "لم يتم العثور على أي بيانات ."
    Else
        MsgBox "تم نقل البيانات بنجاح!"
    End If
End Sub

بحث1.xlsb

[HANY SAAD]

لم اجد من الكلمات ما اعبر به عما يدور بخاطرى ولكن جزاك الله خير الجزاء على هذا المجهود الرائع

اخى عبدالله بشير عبدالله

 

[عبدالله بشير عبدالله]

بارك الله فيك اخونا الفاضل اتمنى لك كل التوفيق