didijaba
Well-known Member
- Joined
- Nov 26, 2006
- Messages
- 511
HI, I can't get this formula right, pls help.
Code:
Sub test()
Dim i As Long
Dim lastrow As Long
lastrow = 20
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = Sheet3.Range("B2:B" & lastrow)
Set rng3 = Sheet3.Range("Q2:Q" & lastrow)
Set rng2 = Sheet3.Range("J1")
Sheet3.Cells(lastrow + 1, 17).Formula = "=SUMIF("" & rng1 & "",""" & rng2 & ""","""" & rng3 & """")"""""""
End Sub