Hi All,
I'm newbie on the vba programming and found out excel 2003 didnt support CountIFs.
Could any one help me to convert this vba into sumproduct or countif ?
If WorksheetFunction.CountIfs(Sheets("Sheet1").Range("A1:A" & lastrow), Cells(i, 2), Sheets("Sheet1").Range("C1:C" & lastrow), Cells(i, 9)) = 1 Then
Cells(i, 1).Resize(1, 12).Copy Destination:=OutSH.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
If WorksheetFunction.CountIfs(Sheets("Sheet1").Range("A1:A" & lastrow), Cells(i, 2), Sheets("Sheet1").Range("C1:C" & lastrow), Cells(i, 9)) = 0 Then
Cells(i, 1).Resize(1, 12).Copy Destination:=OutSH.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Bookmarks