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

[sief122]

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

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

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

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

[sief122]

برجاء تفعيل كود البحث لانه لم يتم التعديل 

لم يتم التعديل

[حسونة حسين]

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

تفضل اخى 

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

تم التعديل 

[sief122]

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

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

[حسونة حسين]

تم تعديل الكود

[sief122]

جربت الكود لما بابحث بالتاريخ بيكون تمام بس لما امسح التاريخ وابحث من غير تاريخ يدينى ان في خطاء في الكود 

[حسونة حسين]

تم التعديل من 

L4

الى 

L2

عذرا لانى اعمل عن طريق الموبايل

[حسونة حسين]

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

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

 

[حسونة حسين]

تم التعديل اخى

[sief122]

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

[حسونة حسين]

ارفق ملفك بعد وضع الكود به لان الكود يعمل معى بشكل صحيح

[sief122]

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

[حسونة حسين]

تفضل اخى الكريم 

جرب هذا الملف 

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

[sief122]

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

[حسونة حسين]

اقتباس

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

اقتباس

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

اقتباس

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

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

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

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

[sief122]

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

[sief122]

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

[حسونة حسين]

اخى الكريم 

اكتب موضوع جديد

وبه سؤالك الجديد وستجد ان شاء الله

اجابه لطلبك سواء منى او من الاساتذه 

 

[sief122]

حاضر وكتر خيرك علي مساعدتي

[حسونة حسين]

الحمد لله الذي بنعمته تتم الصالحات 

 

[sief122]

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

[حسونة حسين]

حبيبي في الله 

كل مشكله يكون لها موضوع مستقل 

حتى يستفاد الاعضاء فيما بعد