با درود
با تشکر از سرکار خانم خاکزاد. بله دقیقا این کار درست توسط این کد انجام میشه فقط ممکنه یه مشکل پیش بیاد البته شایدم نیاد . اگر ما احیانا تو ستون 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 به یک باره تبدیل کنیم
علاقه مندی ها (Bookmarks)