با درود
اقا از کد زیر استفاده کن ببین مشکلت حل میشه
کد:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("p3:Ab3")) Is Nothing Then
CommandButton1.Visible = True
Else
CommandButton1.Visible = False
End If
End Sub
واسه SELECTION CHANGE حالا شما واسه CHANGE هم همینو میتونی بنویسی که تو هر دو موقعیت عمل کنه .. بعدشم چرا مسئله رو اینهمه پیچیده اش کردی . در واقه از ستون P تا Ab ردیف سوم نیاز به این همه If نداشت .
دکمه رو هم یادت نره اول بزاری تو صفحه و بعدشم visible اش رو بزار رو False تست کن
علاقه مندی ها (Bookmarks)