اصلاح کد

[ali.b]

سلام
این کد زمانی درست کار میکنه منبع شرطی در رنج f:f باشه اما من نمیخوام چنین چیزی باشه و هر کاری میکنه تاثیر نداره
و بعدش میخوام در هر ردیف سلول های خاصی رو انتقال بده اما کل ردیف های مورد نظر رو انتقال میده
ممنون میشم ی کمکی برسونید

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[ali.b]

دوستان؟

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

چیزی که من از کد شما برداشت کردم

محدوده رو کل ستون f تعریف کردی و کد زیر رو اضافه کردی تا فقط محدوده ای که شامل داده هست مورد بررسی قرار بگیره

'If cel.Value = "" Then
       ' w = cel.Row
        'Exit For
    'End If 

از طرفی سلول f2 در شیت 1خالیه و این منجر به اجرای کد Exit For میشه و شرط دوم یعنی

 If cel.Row > 2 And cel.Value = Sheet1.Range("D2").Value Then 

مورد بررسی قرار نمیگیره

راه حل :

محدوده ای که مد نظر دارید از طریق name manager به صورت داینامیک نامگذاری کن و بجای تعریف کل ستون f نام مورد نظر رو استفاده کن و کدی که بهش اشاره کردم حذف کن