لماذا يختفى الtext box

[اركان الاسلام]

السلام عاليكم ورحمه الله اخواتى الاعزاء فى المنتدى

كنت قد شاهدت فيديو عن البحث من خلال text pox واظهار نتائج البحث وقمت بتنفيذه 

ونجح ولكن للاسف بيختفى  text pox ويظهر بمزاجه

ارجو الافاده

كيف اجعله ثابت فى مكانه حتى لو عملت تنسيق لبعض الاعمده او الصفوف

 

بحث سريع.xlsm

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

جرب هذا الكود لتثبيت Text Box

Private Sub TextBox1_Change()
lr = Range("d" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("$A$3:$S$" & lr) _
    .AutoFilter Field:=4, Criteria1:="=" & ActiveSheet.TextBox1.Text & "*"
  With ActiveSheet.TextBox1
  .Top = Cells(2, 2).Top: .Left = Cells(1, 1).Left + 150
  .Width = 150: .Height = 30
  End With
    End Sub
  '+++++++++++++++++++++++++
Private Sub Worksheet_Activate()
With ActiveSheet.TextBox1
  .Top = Cells(2, 2).Top: .Left = Cells(1, 1).Left + 150
  .Width = 150: .Height = 30
 End With
End Sub

الملف مرفق

MY_Saerch.xlsm

[اركان الاسلام]

اخى سليم وضعت الماكرو فى Text Box

لكن ما زال يظهر ويختفى 

سوال : هل من طبيعه text box الا يكون ثابت كاى كائن نعمله انثرت زى مايكون ركبه عفريت هههههه

اشكرك اخى

ولو امكن ممكن ننفذ طريقه البحث هذه بداله يكون افضل من ال Text Box مدام مش عاوز يثبت

 

[omar elhosseini]

بعد أذن اخونا سليم حاصبيا

جرب هذا

 

 

بحث سريع.xlsm

[اركان الاسلام]

بردو بيختفى 

على العموم شكرا اخى ابو تامر والشكر موصول للاخ سليم على المحاوله والاهتمام