اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

السلام عليكم

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

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

جزيتم خيرا

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

قام بنشر

السلام عليكم

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

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

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

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

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

جزيت خيرا

  • تمت الإجابة
قام بنشر
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

 

  • Like 5

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information