با سلام
دوست عزیز
برای دکمه تعریف جدید دستور زیر را تعریف میکنید
کد:
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]
موفق باشید میر
علاقه مندی ها (Bookmarks)