سوال در زمینه ماکرو

[hadi1358]

با سلام ممنون میشم اگه کسی بتونه کمکم کنه.

http://www.uplooder.net/cgi-bin/dl.cgi?key=330f89ce10be44d61f88becf7dea4fea

[~M*E*H*D*I~]

با سلام ممنون میشم اگه کسی بتونه کمکم کنه.






http://www.uplooder.net/cgi-bin/dl.c...88becf7dea4fea

درود ، دوسطر آخر برای چی باید حذف بشه چه شرطی باعث حذف دوسطر آخر میشه

برای قسمت دوم سوال از table استفاده کنید محدوده رو انتخاب و از تب insert گزینه table رو بزنید

[امين اسماعيلي]

با درود
واسه حذف 2 سطر آخر باید ببینم که کدوم ستون از سطر آخر همیشه پر هستش. یا یه مشخصه منحصر به فرد داره. مثلا اگه بنا به همین فایل خودتون بخوایم پیش بریم . ستون C پر هستش و مثلا من باید ردیف اینو پیدا کنم و یه یک بهش اطافه کنم و ردیف بعدیشو هم پاک کنه. اگر بخوام بر اساس ستون A برم باید اخرین ردیفشو پیدا کنم و بگم 2 تای بعدیشو حذف کنه. اینو ما باید دقیق تر بدونیم. بعدش واسه فرمول ها هم اگر نخوایم کاری که منطقی تر هستش و استاد عزیز آقای وطن پرست گفتن رو انجام بدیم باید با حلقه for و ترکیبش با اخرین ردیف این کار رو انجام بدیم. در ضمن من نمیدونم چه فرمولی و تو چه ستونی باید قرار بگیره.................

[hadi1358]

سلام آقای اسماعیلی اگر امکانش هست برای فایل زیر با فرض اینکه ستون b یعنی ستون تاریخ سررسید همیشه دارای اطلاعات باشد و بخواهیم دو سطر بعدی را حذف کنیم یک ماکرو بنویسید.با تشکر

http://www.uplooder.net/cgi-bin/dl.cgi?key=4fb7097e48630d66b81b0bf06686f6d5

[khakzad]

سلام
با اجازه جناب اسماعیلی.
می تونید از این کد استفاده کنید.و sub مربوطه رو اجرا کنید

این کد طبق فایل نمونه هست. این مورد لحاظ شده که تا جایی که ستون b پر هست رو نگه داره و دو سطر بعد اون رو پاک کنه.
سوالی بود در خدمتم

Sub del()
Dim d As String
d = WorksheetFunction.CountA(Sheet2.Range("b:b")) + 1
Rows(d & ":" & d + 1).Select
    Selection.Delete Shift:=xlUp
End Sub

[امين اسماعيلي]

با درود
با تشکر از سرکار خانم خاکزاد. بله دقیقا این کار درست توسط این کد انجام میشه فقط ممکنه یه مشکل پیش بیاد البته شایدم نیاد . اگر ما احیانا تو ستون b مون بین اش یه خالی داشته باشیم اون موقع فک کنم به مشکل بخوریم. البته 100 درصد کار سر کار خانم درسته و با اجازه از ایشون من فقط یه تیکه از کد رو تغییر میدم.

Dim d As Long
    With Sheet2
        d = .Cells(.Rows.Count, "b").End(xlUp).Row + 1
    End With

Rows(d & ":" & d + 1).Delete

اینو ما برای شیت 2 ستون B تنظیم کردیم.کار سرکار خانم هم با توجه به اینکه احتمالا شما همه سل هاتون تو ستون B همیشه پر هستش درست هست. تو کد ایشون هم میتونستیم گزینه Select رو به Delete به یک باره تبدیل کنیم

[hadi1358]

با سلام
ضمن تشکر از خانم خاکزاد و آقای اسماعیلی ،نمیدونم کجای کار من ایراد داره !!!!

http://up.ht/19EdKDw

[امين اسماعيلي]

با درود
و اما مشکل کار شما
والا بیش از اینا ازتون انتظار داشتم . شما برین ببینین این شیتی که شما داری براش کد مینویس درسته اسمشو گذاشتی شیت 2 اما از لحاظ کد نویسی اسمش شیت 1 هستش . تو ویژوال اونی که داخل پرانتز نیست اسم اصلی توکد نویسی است. خوب حالا ولش کن در کل تو کد ها شیت 2 رو به 1 تغییر بده میبینی درست میشه