بروز شدن اطلاعات کمبود باکس بعد از ثبت اطلاعات

[a.dal65]

دورد به اساتید عزیز
اطلاعات ComboBox من از یه شیت دیگه فراخوانی میشه.
وقتی توسط فرم VBA یه دیتا در اون شیت ثبت میکنم ، اون مقداری که ثبت کردم همونجا به Combobox اضافه نمیشه مجبورم یه بار کلا فرم رو ببندم و دوباره باز کنم تا مقداری که ثبت کردم در کمبوباکس به نمایش درباید.

(توی فرم فایل ضمیمه دکمه "تعریف جدید" رو بزنید و یه نفر رو اضافه کنید اون نفری که شما اضافه کردید باید توی Combobox آقا/خانم بیاد
ولی نمیاد ، و باید 1 بار کلا فرم رو ببنید و دوباره فرم رو باز کنیدفرد تا اضافه بشه)
من چند تا کد رو امتحان کردم ولی نشد انگار باید در هنگام ذخیره فرد جدید یکبار COMBOBOX ریفرش بشه

[majid_mx4]

با سلام

دوست عزیز

برای دکمه تعریف جدید دستور زیر را تعریف میکنید


UserForm1.Hide
NewUserForm.Show vbModeless



و برای فرم تعریف جدید دستور زیر را استفاده نمایید



Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Unload Me
UserForm1.Show
End If
End Sub



و زیر دکمه ذخیره هم این دستور را اضافه کنید .

[CODE][
Dim cell As Range
For Each cell In Sheets("NameManager").Range("b2:b4000")
With UserForm1.TextBox1
.AddItem cell.Value
End With
Next
/CODE]
موفق باشید میر

[a.dal65]

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

[majid_mx4]

با سلام

بله کاملا حق باشما بود تغییرات لازم در فایل ضمیمه انجام شده ( بابت بی توجهی پوزش می طلبم )

این دستور تغییر کرد و بجای Hide دستور unload me استفاده شد
[CODE][UserForm1.Hide
NewUserForm.Show vbModeless/CODE]

و یک دستور Active برای فرم اضافه شد
پایدار باشید میر