RE: $$Excel-Macros$$ if then code in macro doesn't work

2013-11-15 Thread Ravinder
Sheets(New).Select On Error Resume Next For i = 2 To ActiveSheet.UsedRange.Rows.Count If Cells(i, 14) 25 Then Cells(i, 16) = 2 Endif If cells(I,14)25 then Cells(i,16)=5 Endif next From: excel-macros@googlegroups.com

Re: $$Excel-Macros$$ if then code in macro doesn't work

2013-11-15 Thread pankaj sangotra
Sub DeliveryCost() Dim i As Integer Dim j As Integer Dim iEndrow As Long iEndrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To iEndrow If Cells(i, 14).Value 25 Then Cells(i, 16).Value = 2 Else Cells(i, 16).Value = 5 End If Next End Sub On Fri, Nov