[حل شده] سوال در مورد کمبوباکس و حذف و ویرایش لیست باکس

[سید مسعود قمی]

سلام دوستان
با توجه به دو فرمی که دارم دو تا سوال دارم
داخل یوزرفرم 2 مقداری از کمبوباکس 1 انتخاب میکنم پیغام خطا میده در حالی که چن روز پیش مشکلی نداشت
داخل یوزرفرم 10 برای کامند حذف و ویرایش هر چی کد مینویسم کار نمیکنه
ممنون میشم از راهنمایی دوستانBook1.rar

[misammisam]

سلام
شما تو قسمت ویژوال بیسیک Sheet6 در قسمت Worksheet_SelectionChange شیت رو با شروطی قفل میکنید .
بعد تو یوزر فرمتون میخواید چیزی به شیت قفل شده اضافه کنید ، برای اینکار اول تو یوزر فرمتون جاهایی که لازمه شیتو از قفل دربیارید بعد دوباره قفلش کنید .

[سید مسعود قمی]

سلام استاد کاری ک گفتید رفتم داخل شیت ۶ vba و کدهای مربوط به قفل رو پاک کردم ولی درست نشد
در مورد یوزرفرم دو بنظرتون مشکل کمبوباکس ۱ چیه؟

[misammisam]

سلام استاد کاری ک گفتید رفتم داخل شیت ۶ vba و کدهای مربوط به قفل رو پاک کردم ولی درست نشد
در مورد یوزرفرم دو بنظرتون مشکل کمبوباکس ۱ چیه؟

ایرادی نداره دیکه ف فقط اید شما UserForm2 را روی Sheet2 اجرا نمیکنید ، که باید حتما اول Sheet2 رو اکتیو کنید بعد UserForm2 رو اجرا کنید
، بهتره قسمت UserForm_Initialize فرم رو اینشکلی بنویسی .

Private Sub UserForm_Initialize()
Sheet2.Activate

Frame1.Visible = False
TextBox11.Text = ListBox1.ListCount
End Sub 

[سید مسعود قمی]

سلام آقا میثم
با راهنمایی شما مشکل یوزرفرم 2 حل شد
ولی یوزرفرم 10 هنوز نمیتونم حذف و ویرایش کنم میشه راهنمایی کنید بازم از تون ممنون استاد