السلام عليكم ورحمة الله وبركاته
اخواني الكرام عندي مشكلة في زر البحث
عملت زر بحث عن طريق الميكرو ولكن تفاجئت باني كل مرة اعمل فيها بحث يظهر لي زر على نفس الزر الاول
فعندما قمت بحريك الزر الاعلا وجدت كمية الازرار تحته وصلت الى اكثر من 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