Compile Error

[NYEXCEL1]

Per the below macro, i am getting a compile error for the line in red. In short i want to see if any row in column D if there is a Number 5080 than print the word NOTHING otherwise the word NONEED, than goto the next row.

can someone let me know where the error maybe?

thanks


Sub Nyexcel3()
With Range("I4", Range("B" & Rows.Count).End(xlUp).Offset(, 7))
.Value = Evaluate(Replace("if((@ ="" ""),""NONEED"",if((@ =""""),"""",2010))", "@", .Offset(, -7).Address))
End With
With Range("I4", Range("D" & Rows.Count).End(xlUp).Offset(, 5))
.Value = Evaluate(Replace("if((@ =""5080""),""NOTHING"",""NONEED"", .Offset(, -5).Address))
End With




End Sub

 

[Fluff]

Try

.Value = Evaluate(Replace("if(@ =""5080"",""NOTHING"",""NONEED"")", "@", .Offset(, -5).Address))

 

[NYEXCEL1]

In the below Macro, specifically the section in red, i am trying to and an AND formula but do not know how.

In short, when the value is evaluated and it matches the "" "" format as shown, i need add a condition that say if the number in the cell with the offset of -5 of the row is 5080 then print word "NOTHING" otherwise "NONEED".

I thought maybe eliminating the first if statement (in red) and adding separate if statement just for this double condition would be easier but it didnt work. Really appreciate any help in getting this to work. Many thanks!!


Any help here would be great and if i am overthinking this


Sub Nyexcel2()
With Range("I4", Range("B" & Rows.Count).End(xlUp).Offset(, 7))
.Value = Evaluate(Replace("if((@ ="" ""),""NONEED"",if((@ =""""),"""",2010))", "@", .Offset(, -7).Address))
End With
End Sub

 

[Fluff]

Is the 5080 text or is it a number?

 

[NYEXCEL1]

number

 

[Fluff]

In that case try

Sub Nyexcel3()
   With Range("I4", Range("B" & Rows.Count).End(xlUp).Offset(, 7))
      .Value = Evaluate(Replace(Replace("if((@ ="" "")*(@d=5080),""NOTHING"",if(@="" "",""NONEED"",if((@ =""""),"""",2010)))", "@d", .Offset(, -5).Address), "@", .Offset(, -7).Address))
   End With
End Sub