هل يمكن جعل اليوسرفورم يحصل على بياناته من ورقتين مشروط بتفعيل أحدى الورقتين

[نايف - م]

السلام عليكم

أقصد إذا كانت الورقة (1) تكست بوكس1= كذا

إذا كانت الورقة (2) تكست بوكس1= كذا

Private Sub UserForm_Activate()

With Sheets("BUY")

LL = ActiveCell.Rows.Row

TextBox1.Value = Sheets("BUY").Cells(LL, "L")

TextBox2.Value = Sheets("BUY").Cells(LL, "T")

TextBox3.Value = Sheets("BUY").Cells(LL, "U")

TextBox4 = ""

TextBox5.Value = Sheets("BUY").Cells(LL, "S")

TextBox6 = ""

ComboBox1.Value = Sheets("BUY").Cells(LL, "F").Address

End With

With Sheets("MAIN")

NN = ActiveCell.Row

TextBox1.Value = Sheets("MAIN").Cells(NN, "P")

TextBox2.Value = Sheets("MAIN").Cells(NN, "S")

TextBox3.Value = Sheets("MAIN").Cells(NN, "T")

TextBox4 = ""

TextBox5.Value = Sheets("MAIN").Cells(NN, "V")

TextBox6 = ""

ComboBox1.Value = Sheets("MAIN").Cells(NN, "B").Address

End With

End Sub

[يحيى حسين]

السلام عليكم

أخي ارفق ملف حتى تتضح الفكرة

و تجد من يساعدك

[نايف - م]

أخي الكريم :

للحق أن مرورك قد نفعني حيث شاهدت الرابط الموضوع أسفله و اتبعته و وجدت موقع ظريف به من يسال عن تسمية ورقة حسب اسم موجود بها ووجدت الكود ضالتي بهذا الطلب وهو:

If activesheet.name=("') then

باركك الله و لك الشكر

[يحيى حسين]

أخي نايف حياك الله

و أهلاً و سهلاً بك