مساعدة في كود البحث والتعديل

[Hks99]

السلام عليكم ورحمه الله ....

ارجوا مساعدتي ....عندي  combobox  وعامل قائمة منسدلة وتبحث في الشيت الي محددنها 

اريد كود تظهر القائمة المنسدلة من الشيت المفعل وليس المحدد

Private Sub ComboBox1_DropButtonClick()

lr = sheet6.Cells(Rows.Count, 1).End(xlUp).Row
ComboBox1.List = sheet6.Range("A2:A" & lr).Value

End Sub

انا محدد الشيت بس اريده يعمل بالشيت المفعل وليس المحدد مثلا لو فاتح شيت sheet7 يعمل عليها

ولكم جزيل الشكر

vba.xlsm

[أحمد يوسف]

وعليكم السلام كيف هذا ؟!!!!

وهذا غير منطقى

[Hks99]

 شكرا لكم حصل الحل هوه باضافة ActiveSheet

 

 

Private Sub ComboBox1_DropButtonClick()

lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ComboBox1.List =ActiveSheet.Range("A2:A" & lr).Value

End Sub

ا

تم تعديل ديسمبر 28, 2018 بواسطه Hks99

[Hks99]

السلام عليكم ورحمه الله ....

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

الا انه يعمل على شيت محدد ... كيف اقدر اخليه يعمل على جميع اوراق العمل وليش شيت واحد محد 

ولكم جزيل الشكر

vba.xlsm