Thread: Loop that finds blanks, then subtotals values into different column
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Ivan Raiminius Ivan Raiminius is offline
external usenet poster
  
Posts: 258
Default Loop that finds blanks, then subtotals values into different column
Hi,

you can use something like this:

intersect(range("e:e"),activesheet.usedrange).Spec ialCells(xlCellTypeBlanks).offset(0,1).formular1c1 ="=SUMIF("
&
intersect(range("a:a"),activesheet.usedrange).Addr ess(referencestyle:=xlR1C1)
& ","
range("a1").Address(referencestyle:=xlR1C1,relativ eto:=range("e1"),rowabsolute:=false,columnabsolute :=false)
& "," &
intersect(range("e:e"),activesheet.usedrange).Addr ess(referencestyle:=xlR1C1)

Regards,
Ivan

Reply With QuoteReply With Quote