با درود فراواننوشته اصلی توسط mo-aslani
برای اینکار کافی است که در شرطی که تعریف کرده ایم یک And اضافه کنید
یعنی بجای
If Selection <> "" Then
بنویسیم
If Selection <> "" And Selection.Column = 1 Then
تا این شرط را در ستون یک بررسی کند
و اگر بیش از یک ستون بود هم با or بقیه ستونه ها نیز به شرط اضافه میکنیم
فایل نمونه:
[attachment=186]
علاقه مندی ها (Bookmarks)