VBA With an if statement

[ENTERTAIN]

I have a code which works fine . It takes changing values from cell "AB10" together with the small value of .0001 and lists them in column "AJ"
The additional small value is required for conditional formatting elsewhere but does not effect the final result which is in a cell that is formatted to ignore decimal places.
The code I use is

Sub_Tally_Values
Range("AB10"). CopyRange("AB10").Value=Range("AB10")+0.0001
Range("AJ" & Rows.Count). End (xlUp). Offset(1,0).PasteSpecial xlPasteValues
End Sub

My problem comes when I try to add an if statement as a condition of it to run. The code I want to place in front of it would only let it run if "AB6" or AB13 is less than 0.0003
I tried If Range("AB6").Value < 0.0003 Or Range("AB13").Value < 0.0003 Then - - - I do not know where to place the End if What ever I try does not work.
Any help with this would be appreciated

 

[Michael M]

Try

Sub_Tally_Values
If  Range("AB6").Value < 0.0003  Or Range("AB13").Value < 0.0003 then
   Range("AB10").Value=Range("AB10")+0.0001
   Range("AB10"). Copy 
   Range("AJ" & Rows.Count). End (xlUp). Offset(1,0).PasteSpecial xlPasteValues
end if
End Sub

 

[Peter_SSs]

It takes changing values from cell "AB10"

If AB10 has changing values, do you really need to add the 0.0001 to it or would it be just as good to add that amount in column AJ?

If so, try

Sub Tally_Values()
  If Range("AB6").Value < 0.0003 Or Range("AB13").Value < 0.0003 Then
    Range("AJ" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("AB10").Value + 0.0001
  End If
End Sub

 

[ENTERTAIN]

If Range("AB6").Value < 0.0003 Or Range("AB13").Value < 0.0003 Then Range("AJ" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("AB10").Value + 0.0001 End If End Sub

Thank You Peter for your reply. That code has done the job for me

 

[Peter_SSs]

Thank You Peter for your reply. That code has done the job for me

You're welcome. Thanks for the follow-up.

 

[DanteAmor]

Here a simplified way of the code.

Sub Tally_Values_2()
  If [AB6] < 0.0003 Or [AB1] < 0.0003 Then Range("AJ" & Rows.Count).End(3)(2).Value = [AB10] + 0.0001
End Sub

 

[Peter_SSs]

Here a simplified way of the code.

I don't know how often the OPs value changes or how many times it changes altogether so it might not make a significant difference, but I do note the shorter way to write the code is the longer way to execute it.

 

[DanteAmor]

Thanks Peter for your invaluable advice they are always welcome.