ممنون مشکل قبلی هم با مساعدت شما حل شد ولی یک مشکل دیگه اضافه شد !
چون اون ماکرویی که میخوام با کلیک کردن روی شیت اجرا بشه داره از شیت دیگری کپی میکنه به همین خاطر با کلیک بر روی شیت وقتی اون Event اجرا میشه روی دور باطل! میفته و دائما بین دوشیت سوئیچ میکنه و در نتیجه آخر سر ارور میده .
این کدی هست که در شیت PrmMembers نوشته شده :
کد:
Sub CopyandSort()
Sheets("PrmMembers").Select
Range("BN4:BP273").Select
Selection.Copy
Sheets("Result").Select
Range("B2:D271").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
اینم کدی هست که در Event شیت Result نوشتم تا با کلیک کردن بر روی آن ، کدهای ماکروی فوق اجرا بشه ولی با کلیک بر شیت result چون ماکروی فوق اجرا میشه ، توی دور نامتناهی میفته.
چکار کنم ؟
کد:
Private Sub Worksheet_Activate()
Application.Run "CopyandSort"
End Sub
علاقه مندی ها (Bookmarks)