Thaanks but i am still unsuccesfull. Can you help me with full code please?
Sub BonaquaASM1()
Application.ScreenUpdating = False
Dim Markets As Worksheet, lr As Long
lr = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
Set Markets = Sheets("sheet4")
Sheets("DATA").Range("A1:A" & lr).Name = "urun"
Sheets("DATA").Range("L1:L" & lr).Name = "sifaris"
Sheets("DATA").Range("M1:M" & lr).Name = "Printed"
Sheets("DATA").Range("E1:E" & lr).Name = "teri"
Sheets("DATA").Range("H1:H" & lr).Name = "asm"
Sheets("sheet4").Range("AP1:AP" & lr).Name = "ayi"
Markets.Range("c1:c" & lr).Name = "MARKET"
With Sheets("DATA").Cells(2, "BB")
.FormulaArray = "=sum(if((isnumber(match(run,market,0)))*(sifaris>0)*(urun<>"""")*(not(isnumber(match(teri,ayi,0)))),printed))"
.Value = .Value
End With
End Sub
Bookmarks