لیست انتخاب برای تمام صفحات اکسل

[aminnajmi66]

باسلام خدمت دوستان و اساتید گرام
یک فرم دارم مثل فرم پیوست .
1.میخواl combo box مثل اون botom عمل کنه؟ بعبارتی یعنی وقتی گزینه قرارداد انتخاب بشه بره به sheet قراردادو...؟
2.میخوام اون لیست باکس در تمام sheets ها تکرار بشه؟
اگه میشه راهنماییم کنید .
از اینکه اطلاعاتتون رو در اختیارم میگذارید ممنون و متشکرم.

[iranweld]

با سلام

از کدهای ذیل استفاده کنید

Sub test()

xx = ActiveSheet.DropDowns("Drop Down 1").List(ActiveSheet.DropDowns("Drop Down 1").ListIndex)

Sheets(xx).Select

End Sub 

[aminnajmi66]

با سلام

از کدهای ذیل استفاده کنید

Sub test()



xx = ActiveSheet.DropDowns("Drop Down 1").List(ActiveSheet.DropDowns("Drop Down 1").ListIndex)

Sheets(xx).Select

End Sub 

ممنون از زاهنمایتون اما بخش دوم سوالم بی جواب مونده؟
چظور میشه این combo box رو در تمام صفحه ها داشته باشیم؟

[iranweld]

از شیت اول در شیت های دیگر کپی و پیست کنید