اذهب الي المحتوي
أوفيسنا

برجاء تفعيل كود بحث بتاريخ


sief122
إذهب إلى أفضل إجابة Solved by حسونة حسين,

الردود الموصى بها

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

تمام انا محتاج ان يكون البحث بالشكل دة لو وضعت تاريخ يبحث من sheet2 ولو بدون تاريخ يبحث زى ماانا عامل من sheet4 وشكرا

تــــم تعديل الملف

برنامج نمازج.xlsm

رابط هذا التعليق
شارك

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

تفضل اخى 

Private Sub CommandButton3_Click()
    Dim C As Range, SH As Worksheet, WS As Worksheet
    Set SH = ThisWorkbook.Worksheets("Sheet1")
If SH.Range("I4").Value <> "" then
Set WS = ThisWorkbook.Worksheets("Sheet2")
a=SH.Range("I4").value
else
set WS = ThisWorkbook.Worksheets("Sheet4")
a=ws.range("L2").value
end if

    Set C = WS.Range("C:C").Find(What:=A, LookAt:=xlWhole)
    With SH
        .Range("d6") = WS.Cells(C.Row, "b")
        .Range("d8") = WS.Cells(C.Row, "d")
        .Range("d10") = WS.Cells(C.Row, "e")
        .Range("d12") = WS.Cells(C.Row, "f")
        .Range("d14") = WS.Cells(C.Row, "g")
        .Range("d16") = WS.Cells(C.Row, "h")
        .Range("d18") = WS.Cells(C.Row, "i")
        .Range("g6") = WS.Cells(C.Row, "c")
        .Range("g8") = WS.Cells(C.Row, "j")
        .Range("g10") = WS.Cells(C.Row, "k")
        .Range("g12") = WS.Cells(C.Row, "l")
        .Range("g14") = WS.Cells(C.Row, "m")
        .Range("g16") = WS.Cells(C.Row, "n")
        .Range("g18") = WS.Cells(C.Row, "o")
    End With
End Sub

تم التعديل 

رابط هذا التعليق
شارك

انا اسف على الاطالة بس الكود ناقص انه لو البحث بدون تاريخ يعطينى النتيجه من sheet 4

بارك الله فيك وجازاك خير بس انا اريد لو مكتبتش تاريخ فى البحث يعطينى النتيجة من sheet4 ولو كتبت تاريخ في البحث يعطينى النتيجه من sheet2

رابط هذا التعليق
شارك

تفضل اخى الكود كاملا

Private Sub CommandButton3_Click()
    Dim C As Range, SH As Worksheet, WS As Worksheet, A As String
    Set SH = ThisWorkbook.Worksheets("Sheet1")
    If SH.Range("I4").Value <> "" Then
        Set WS = ThisWorkbook.Worksheets("Sheet2")
        A = SH.Range("I4").Value
    Else
        Set WS = ThisWorkbook.Worksheets("Sheet4")
        A = WS.Range("L2").Value
    End If
    Set C = WS.Range("C:C").Find(What:=A, LookIn:=xlValues, LookAt:=xlWhole)
    With SH
        .Range("d6") = WS.Cells(C.Row, "b")
        .Range("d8") = WS.Cells(C.Row, "d")
        .Range("d10") = WS.Cells(C.Row, "e")
        .Range("d12") = WS.Cells(C.Row, "f")
        .Range("d14") = WS.Cells(C.Row, "g")
        .Range("d16") = WS.Cells(C.Row, "h")
        .Range("d18") = WS.Cells(C.Row, "i")
        .Range("g6") = WS.Cells(C.Row, "c")
        .Range("g8") = WS.Cells(C.Row, "j")
        .Range("g10") = WS.Cells(C.Row, "k")
        .Range("g12") = WS.Cells(C.Row, "l")
        .Range("g14") = WS.Cells(C.Row, "m")
        .Range("g16") = WS.Cells(C.Row, "n")
        .Range("g18") = WS.Cells(C.Row, "o")
    End With
End Sub

 

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة
اقتباس

تمام انا محتاج ان يكون البحث بالشكل دة لو وضعت تاريخ يبحث من sheet2 ولو بدون تاريخ يبحث زى ماانا عامل من sheet4 وشكرا

اقتباس

انا اسف على الاطالة بس الكود ناقص انه لو البحث بدون تاريخ يعطينى النتيجه من sheet 4

اقتباس

دى المرة دى مبقتش تعمل بحث خالص بقت لو بحثت بتاريخ تدي خطاء ولو من غير تاريخ بردو تدي خطاء

كل اسئلتك تتكلم عن البحث بالتاريخ 

وكود التاريخ كده مفيش اي مشكله

صح اخى ولا خطأ؟

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information