[حل شده] استفاده از فرمول شرطی در ماکرو

[maziardm]

با سلام و روز خوش
فرمول زیر رو در ماکرو نوشتم و داره کار هم می کنه.

 ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=6, Criteria1:= _
        ">=" & Range("m1"), Operator:=xlAnd, Criteria2:="<=" & Range("n1") 

در فرمول بالا نوشتم که در محدوده مود نظر اعداد بین سلولهای m1 و n2 رو فیلتر کند. برای مثال اکر در m1 100 و در n1 مقدار 200 را داشته باشیم در محدوده مورد نظر اعداد بین 100 و 200 رو فیلتر کند.
حالا قصدم اینه که از فرمول های منطقی در خصوص مقدار n1 استفاده کنم. بدین صورت که اگر n1 برابر صفر و یا خالی باشد مقدار مورد نظر 999999 باشد و در غیر این صورت خود مقدار n1. به عبارت دیگر فرمول شرطی زیر رو که بیانگر خواسته بالا می باشد رو در ماکرو جای بدم.

If(or(n1=0;n1="");999999;n1) 

با تشکر از شما

[Ali Parsaei]

سلام،
اينطوري بنويسيد:

If Range("n1").Value = 0 Then
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=6, Criteria1:= _
">=" & Range("m1"), Operator:=xlAnd, Criteria2:="<=" & 999999
Else
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=6, Criteria1:= _
">=" & Range("m1"), Operator:=xlAnd, Criteria2:="<=" & Range("n1")
End If 

[maziardm]

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

[Ali Parsaei]

اگر خانه خالي باشد هم آن را صفر فرض مي کند، امتحان کنيد بايد جواب دهد، اگر مشکل بود بگين
کلا" اگر دو شرطي باشد تو خط اول که if دارد با استفاده از or يک شرط اضافه مي کنيم

If Range("n1").Value = 0 or Range("n1").Value = "" Then