Paddy1979
Well-known Member
- Joined
- Sep 23, 2005
- Messages
- 608
Hello i have just written the below code, and i was wondering is there a quicker/easier way to write the same code ?
Worksheets("Summary").Activate
With ActiveSheet
.Range("F98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("G98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("H98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("I98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("J98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("K98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("N98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("O98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("P98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("Q98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("L98").Value = "=IF(RC[-6]<1,0,RC[-6]/RC[-1])"
.Range("M98").Value = "=IF(RC[-7]<1,0,RC[-7]/(RC[-2]-RC[-3]))"
cheers
patrick
Worksheets("Summary").Activate
With ActiveSheet
.Range("F98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("G98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("H98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("I98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("J98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("K98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("N98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("O98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("P98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("Q98").Value = "=SUMIF(R2C4:R96C4,""D"",R2C:R96C)"
.Range("L98").Value = "=IF(RC[-6]<1,0,RC[-6]/RC[-1])"
.Range("M98").Value = "=IF(RC[-7]<1,0,RC[-7]/(RC[-2]-RC[-3]))"
cheers
patrick