[حل شده] كد ماكرو براي باز كردن يك فرم

[MA.SHAHIDI]

با سلام
در يك فايل اكسل فرم هايي طراحي شده كه اطلاعاتي را دريافت مي كند . تعداد اين فرم ها زياد است و همگي اطلاعات در يك شيت ذخيري مي شوند . براي اطمينان از صحت اطلاعات ماكرويي نوشته ام كه اطلاعات اخرين رديف ثبت شده را در صورت نياز حذف مي كند . براي اينكه به اشتباه اطلاعات ذخيره شده حذف نشوند فرمي طراحي كردم كه سوال كند ، آيا از حذف اطلاعات مطمئن است يا خير . 2 تا مشكل دارم .براي اجرايي كردن اين خواسته به كمك شما نياز دارم .
1- اول بايد ماكرويي بنويسم كه فرم رو باز كند . لطفا راهنمايي بفرماييد .
2- كد ماكروهايي كه رديف را حذف ميكنند را در ماژول دكمه "بله" كپي كردم كه با ران كردن جواب نداد .
3- كد ماكرويي كه فرم را ببندد با فشردن دكمه " خير"

[hadi1980]

سلام
درخواست شما در فايل پيوست کدگذاري شد.
فقط قبل از اجراي فايل بايد پسوند آنرا از xlsx به xlsm تغيير دهيد تا اجرا شود.
موفق باشيد

[MA.SHAHIDI]

از لطف شما سپاسگذارم . اما يه مشكل وجود دارد . آنچه كه براي حذف در فايل استفاده ميشه به صورت زير است . Sub HMAGHALE()
'
' HMAGHALE Macro
'


'
Sheets("MAX").Select در اجرا در اين خط باگ وجود دارد . به نظرم براي ارتباط بين فرم با شيت ها بايد يه فكري بكنم .
Range("AQ1").Select
Selection.End(xlDown).Select
ActiveCell.Range("A1:V1").Select
Selection.ClearContents
Range("AQ6").Select
Sheets("B2").Select
Range("C6").Select
End Sub