اختيار البحث في محرك البحث حسب التاريخ

[sabah20267]

السلام عليكم .. ممكن اضافة امر الى الكود ليكون البحث حسب التاريخ المحدد .. جزيتم خير

فلترة اضافية مع محرك البحث.xlsm

[sabah20267]

السلام عليكم

ممكن تعديل على الكود الخاص بمحرك البحث

ليكون جلب البيانات عند كتابة الاسم في المحرك على اساس التاريخ

جزيتم خيرا

جلب البيانات عند كتابة الاسم في محرك البحث على اساس التاريخ.xlsm

[sabah20267]

السلام عليكم

محتاج أي طريقة لاستدعاء بيانات على اساس التاريخ

لغرض التعديل عليها واضافة عليها بيانات جديدة

اذ للأسم أكثر من حركة خلال الشهر - والبيانات كثيرة

فاذا احتجت اسم معين خلال فترة معينة - حتى اضيف بعض البيانات

ممكن أي طريقة ترونه مناسبة

جزيت خيرا

[lionheart]

Private Sub TextBox1_Change()
    Dim dFrom As Date, dTo As Date, lr As Long
    With ActiveSheet
        lr = .Range("B" & Rows.Count).End(xlUp).Row
        If TextBox1.Text <> "" Then
            .AutoFilterMode = False
            dFrom = .Range("F1").Value2
            dTo = .Range("G1").Value2
            With .Range("B2:Q" & lr)
                .AutoFilter Field:=1, Criteria1:="=" & TextBox1.Text & "*", Operator:=xlOr
                .AutoFilter 8, ">=" & CLng(dFrom), xlAnd, "<=" & CLng(dTo)
            End With
        Else
            .AutoFilterMode = False
        End If
    End With
End Sub

 

[sabah20267]

جزاك الله خير

تمام

هو المطلوب