زر البحث

[قشش]

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

اخواني الكرام عندي مشكلة في زر البحث

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

فعندما قمت بحريك الزر الاعلا وجدت كمية الازرار تحته وصلت الى اكثر من 40 زر

هل ممكن اجد لديكم الحل بعد تكرار الازرا عند عملية البحث .... وشكرا

 

وهذة المعادلة التي تكومنت مع الميكرز

 
Sub البحث()
    Sheets("قاعدة العمل").Range("A4:AC10144").AdvancedFilter Action:=xlFilterCopy _
        , CriteriaRange:=Range("البحث!Criteria"), CopyToRange:=Range( _
        "البحث!Extract"), Unique:=False
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveSheet.Buttons.Add(58.5, 86.25, 114.75, 35.25).Select
    Selection.OnAction = "البحث"
    Selection.Characters.Text = "البحث"
    With Selection.Characters(Start:=1, Length:=5).Font
        .Name = "Arial"
        .FontStyle = "عادي"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With
    Range("C8").Select
End Sub
  

 

[سليم حاصبيا]

احذف هذا الاسطر من الكود ويكفي ان تضيف زر واحد قبل تنفيذ الماكرو

  ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveSheet.Buttons.Add(58.5, 86.25, 114.75, 35.25).Select
    Selection.OnAction = "البحث"
    Selection.Characters.Text = "البحث"

 

[قشش]

الله يعطيك العافية