وعليكم السلام ورحمه الله وبركاته
الكود
Private Sub Worksheet_Change(ByVal Target As Range)
للورقه باسم (الرئيسية) امسح ما يوجد بها
في form1 :
يوجد هذا السطر
عدله الى
وهذه الاسطر
MsgBox ("أهلا وسهلا بك في برنامج مسطاح"), vbOKOnly
form1.Hide
form2.Show
عدلها الى
MsgBox ("أهلا وسهلا بك في برنامج مسطاح"), vbOKOnly
form1.Hide
Sheet7.Range("u4").Value = Application.WorksheetFunction.VLookup(rngUser.Offset(0, -1).Value, Sheet1.Range("c2:c100"), 1, False)
Sheet7.Range("I4").Value = Date
Sheet7.Range("E4").Value = Application.WorksheetFunction.Text(Sheet7.Range("I4").Value, "dddd")
Sheet7.Range("P4").Value = Time
form2.Show