[حل شده] فعال کردن شیت مورد نظر با انتخاب در کمبو باکس

[ak55]

با سلام میخوام درقسمت vb روی فرم یک کمبو باکس ایجاد کردم شیت مورد نظر رو فعال کنم اطلاعاتم توی اون ثبت بشه
کدم اینه درسته یا نه اکه نیست اصلاحش کنید
Private Sub ComboBox1_DropButtonClick()


Dim sht As Worksheet


For Each sht In Worksheets
ComboBox1.AddItem sht.Name
Worksheets.Select
sht.Activate

Next sht
End Sub
با تشکر از اساتید محترم
فرم2

[M_ExceL]

[ATTACH]16917[/ATTACH]با سلام میخوام درقسمت vb روی فرم یک کمبو باکس ایجاد کردم شیت مورد نظر رو فعال کنم اطلاعاتم توی اون ثبت بشه
کدم اینه درسته یا نه اکه نیست اصلاحش کنید
Private Sub ComboBox1_DropButtonClick()


Dim sht As Worksheet


For Each sht In Worksheets
ComboBox1.AddItem sht.Name
Worksheets.Select
sht.Activate

Next sht
End Sub
با تشکر از اساتید محترم
فرم2

سلام
فایلتون رو به درستی پیوست نکردید، مجددا اینجا ضمیمه کنید تا بررسی بشه.

[ak55]

https://forum.exceliran.com/newattachment.php?do=assetmanager&values[t]=13416&contenttypeid=1&poststarttime=1532842763&posthash=894dfbb1a8f9b1544b5c3a9ca352bc51&insertinline=1

[ak55]

سلام