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

[hasa2]

من میخوام وقتی بر روی ستون E دابل کلیک میکنم، یوزر فرم ساده ای که طراحی شده اجرا بشه و با انتخاب یکی از گزینه های یوزر فرم، اون گزینه انتخاب و در سلولی که دابل کلیک کرده بودیم قرار بگیره. در ستون A هم تاریخ و زمان به صورت اتوماتیک درج بشه
با جستجو و ترکیب چند تا کد تونستم تقریبا به مقصود خودم برسم. که فایل ضمیمه رو نیز ارسال کردم (فایل شماره 1)

اما الان چند تا مشکل کوچیک دارم .
که دیدم این مشکلات مد نظر من دقیقا تو یکی از فایلهایی که از همین فروم قبلا دانلود کردم حل شده اما من نتونستم اون تغییرات رو به فایل خودم انتقال بدم (فایل شماره 2)

مشکلاتی که من الان دارم این موارد ساده زیر هستند :
1- در حالت حاضر کومبوباکس موجود در یوزر فرم ، تنها اطلاعاتی رو نشون میده که تو بخش VBA براش تعریف شده، در حالی که من میخوام به جای نمایش اطلاعات از قبل تعریف شده ؛ اطلاعات موجود در ستون A شیت بعدی رو نشون بده که در واقع گزینه های کومبو باکس پویا باشه و به راحتی با تغییر در محتویات شیت2 قابل تغییر باشه که برای تغییر گزینه ها نیازی به تغییر در کدهای VBA نباشه.

2- با توجه به تعداد زیاد موارد موجود در Sheet2 می خواستم همانند فایل نمونه شماره 2 قابلیت جستجو رو هم اضافه کنم که برای انتخاب یکی از گزینه های کومبو باکس نیاز نباشه یکی یکی همه گزینه های موجود رو بررسی کنم.

پیشاپیش از کمک دوستان صمیمانه متشکرم

[mokaram]

تو ایونت Initialize کد زیر ا جایگزین کد قبلی کن

Private Sub UserForm_Initialize()
Dim c As Range
For Each c In Sheet2.Range("a1:a10000")
    If c <> "" Then
        ComboBox1.AddItem c.Value
    End If
Next c
End Sub

[hasa2]

ممنونم مشکل اول حل شد
فقط موند اضافه کردن قابلیت جستجو مثل فایل شماره دو که ضمیمه ارسال کرده بودم
چه تغییری باید تو یوزر فرمم بدم تا قابلیت جستجو هم اضافه بشه ؟

[hasa2]

کسی از دوستان نمیتونه برای مورد دوم کمکی کنه؟؟

[hasa2]

با کلی دستکاری تونستم مشکل دوم رو هم علی الحساب حل کنم
الان دقیقا همون مواردی که میخواستم انجام میگیره
البته قاعدتا من آماتوری کار کردم و با قطع یقین باید بگم بخش هایی از کدهای مربوط به یوزرفرم الان مازاد هست
فایل نهایی رو برای استفاده سایر دوستان قرار میدم
هم به جهت استفاده
و هم اگر کسی خواست تکمیلش کنه و بخش های مازاد رو حذف کنه که چه بهتر ...