اصلاح کد

[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 نام مورد نظر رو استفاده کن و کدی که بهش اشاره کردم حذف کن