مشکل در انتقال داده از لیست باکس به شیت

[novintoos]

با سلام خدمت کارشناسان محترم,لطفا کد مربوط به انتقال تعدادی از ایتم های لیست باکس که از شیت یک ارجاع شده رو انتخاب کنه و در شیت دو انتقال بده ممنون

[ظهور 313]

سلام و عرض ادب
باید مشخص كنید كه چه آیتمی رو میخواین انتقال بدید یعنی بگید
Sheets("TAK").Range("K5") = listbox1.value
Sheets("TAK").Range("K5") = listbox1.TEXT


توی مشخصات لیست باكس هم میتونید مقدار یا تكس رو انتخاب كنید كه چه گزینه ای باشه. مثلا فرض كنید لیست باكس شما چهار تا ستون داره. و ستون دوم كه كد ملی هست رو میخواین ثبت كنید اگه مقدار BOUNDCOLUMN لیست باكس رو 2 بزارید و از كد اول در رویداد كلیك لیست باكس استفاده كنید، به محض كلیك روی لیست باكس، كد ملی در مسیر مورد نظر درج میشه

كاملش:
Private Sub ListBox1_Click()
Sheets("TAK").Range("K5") = listbox1.value
END SUB