|
|
#5
12-08-2011, 07:35 PM
|
||||
|
||||
FWIW, it seems to me the code could be reduced to:
Code:
With Range("R8")
.Paste
.Formula = "=IF(SUMIF($Q$8:$Q$469,Q8,$P$8:$P$469)=0,"""",SUMIF($Q$8:$Q$469,Q8,$P$8:$P$469))"
.AutoFill Destination:=Range("R8:R469")
End With
Range("R9:R469").Select
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Compile error: sub or function not defined.. | xena2305 | Excel Programming | 0 | 08-02-2011 10:17 AM |
 User Defined Default Settings in Insert
|
J_oe | Word | 1 | 02-17-2011 10:55 AM |
|
Change fonts of a defined word with VBA
|
Michael007 | Word | 6 | 02-01-2011 04:52 PM |
| TOC printing Error Bookmark not Defined | techexpressinc | Word | 0 | 12-14-2008 05:24 PM |
|
Defined Views in Tasks
|
Inga | Office | 3 | 07-20-2005 07:10 AM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode