Free Microsoft Excel 2013
Quick Reference
Free Microsoft 2013 Quick Reference Guide

Free Microsoft Excel 2013 Quick Reference

Simple Petty Cash Sheet ?

I hope someone can help me.
I am making a spreadsheet to keep track of petty cash. I have 3 colmns, c,d,e In C I have the balance of the account, in D I have the amount that is spent and in E I have the amount that is deposited into the account. I am not having a hard time getting the remaining balance in Column C after an amount of expendeture is put into Column D. I know how to lock the cells after the calculation, no problem there eather. What is getting me is that there are some days that there is not expendeture and so a "0" amount goes into the cell in Column C because I am using an IF statement that says
IF(D3=0,0) in the cell in Column C. The formula needs the last value greater than 0 in Column C to subtract the value in Column D in order to get the true remaining balance. How do I get the formula to look for the last value greater than 0 in Column C so that it will make the calculation C-D and be the correct remaining balance?

This is what I have tried along with many other attempts.
=IF($D5=0,0,IF($D5>0,($C4-$D5)))


Post your answer or comment

comments powered by Disqus
I have started building a balance sheet for my petty cash. I have a cell with
the drawer total (which is my float) then I have a cell with cash on hand
total (total cash left), another cell with Petty Cash (tot al of cash spent)
I would like to have another cell that would show me if there is an over or a
shortage from cash on hand to what the drawer total os suppose to be?

EG: Drawer Total 500.00
Cash on hand Total 175.00
Petty Cash 300.00
Over/Short

Is there a formula that would do this for me??

TY

I have started using the petty cash log in the office where I work. I would
like to do a worksheet for each month. I can't seem to get a new sheet
started and carry over the balances from the previous month. How do I do
this?? Thank you in advance for your assitance.

Pat

I have started building a balance sheet for my petty cash. I have a cell with
the drawer total (which is my float) then I have a cell with cash on hand
total (total cash left), another cell with Petty Cash (tot al of cash spent)
I would like to have another cell that would show me if there is an over or a
shortage from cash on hand to what the drawer total os suppose to be?

EG: Drawer Total 500.00
Cash on hand Total 175.00
Petty Cash 300.00
Over/Short <25.00>

Is there a formula that would do this for me??

TY

I'm trying to create a simple sign-up sheet that I will be putting on a public drive at work. Basically, I have about 6 weeks worth of days that people can sign up for the training we're conducting...each training is 2 days. There will be 20 people in each training class. Ideally I'd like the entire training schedule (6 weeks worth) on one Excel sheet, but it seems it will be too big. So I was thinking I could have a worksheet for each week, and title them accordingly (June 26th-July1st), etc. But I'm not sure what the best way to layout the signup sheet is in order to make it look professional, and to make sure that they only click in the appropriate cells for signing up.

Shouls I use tables/commands or anything like that (I'm not really that good at this though) or can I just use the cells and protect them in a basic way. I just want it to look good and be functional, of course.

Any ideas or help would be greatly appreciated!

Could anyone tell me where I can find a template for a report to replenish
petty cash funds.

I am searching for a template for to create a petty cash vouhcer report.

Petty cash for uk business usage. Thanks

My employer wants me to account for $300.00 I receive at the start of the
school year. He gave me a printed sheet with the following columns:

Date Description Deductions Additions
Balance.

The first entry would be for the $300.00 I receive at the start of the
school year, and then enter each purchase I make and a balance after each
expense. Then I receive a reimbursement twice a month to bring my balance
back up to $300.00.

Is there an easy way of doing this in Excel instead of on the printout he
gave me? I would like to be able to update the balance automatically after
each deduction or addition.

Did some googling but couldn't find (or wasn't sure what I was looking for)
anything.

Thanks for any help
Bob

Excel 2002

I am trying to set up a simple secretaries cash book that would show cash
recieved, cash paid to treasurer and warrents written. I need a few accounts
for reciepts and disbursement tracking and running totals. Any Idea what
would be the easiest way to do this. I am fairly decent using both Access
and Excel, but couldn't decide how to begin. The templates are a bit
advanced for what I want.

Accounting: Is there anyone who can explain the Petty Cash Fromula to me in cell Q6?

I am confused why the formula contains the P column because I couldn't see the P column.

Any help would be appreciated!

Hi folks. I have been working on this little form for a petty cash sheet, and would like to add 2 taxes (gst @ 7% and pst @ 8%) when and where applicable. An optionbox asks the user to select gst, pst, both, or none. Everything seems to work reasonably well except for this little piece of code, and I am stumped. If I enter 100 (or 200 etc) into the txtItemPr text box it calculates as it should. However if I enter 1 or 10 or any number that is not 100 or a multiple of it I get incorrect results. I think that I am picking up the True condition = 1 and factoring that but not sure how to correct the code if this is the case. Thanks for your help.

Code:
Private Sub cmdAddClose_Click()
Dim gst As Integer, pst As Integer, itemPrice As Integer
gst = 0
pst = 0
itemPrice = 0
ActiveWorkbook.Sheets("PettyCash").Activate
Range("A1").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Value = ActiveCell.Value
ActiveCell.Offset(0, 4) = txtItemPr.Value
itemPrice = txtItemPr.Value
If optGst = True Then
            gst = (itemPrice * 0.07)
    ElseIf optPst = True Then
            pst = (itemPrice * 0.08)
    ElseIf optBothTax = True Then
            pst = (itemPrice * 0.08)
            gst = (itemPrice * 0.07)
    End If
ActiveCell.Offset(0, 5) = gst
ActiveCell.Offset(0, 6) = pst
Range("A1").Select
Unload Me

End Sub


I'm wondering if thhis can be done.

I do a lot of work in excel to do with accounts and this often needs checking against sage.

When the invoices/petty cash sheets are put into sage the total amount is put in, but in my spreadsheets I need to split the reciepts.

So I was wondering if there was a formula/VBA code, that if I only knew the total of the invoice would find which cells added up to this total?

I have my petty cash sheet and I expense it by account number. I buy newspapers daily and I buy widgets weekly. Therefore on my petty cash sheet for the month, I want to make it so that it give me a total by account number.

How can I do this?

Hello,
I have a spread sheet which I use for entering my monthly petty cash expenses.
At the bottom of the spreadsheet I would like to add a simple 4x4 table for office use. This table would be 4 evenly sized columns and 4 rows. I can create this table in MS Word however I can't figure out how to import it.
Is there a way to define this table in my Excel document or is there a way to import the table from MS Word?
Thanks.
Doug

Not sure if I'm doing something very stupid ( most likely ) or I have another issue ?

OK. Excel 2007. A very simple spreadsheet to calculate whether the petty cash is adding up.

I have experienced this in the past, and am wondering if it's a virus of some sort ?

I have set the sheet not to display zero values. This is what showed the problem up, it displayed a value of zero pounds for one of the cells.

It was actually, after elongating the cell display, £0.0000000000000355271367880050000000
(N17).

When I expanded and checked my formulae for calculating this, I was simply subtracting £31.3200000000000000000000000000000000
(L17)
from £31.320000000000000000000000000000000
(F17).

N17=L17-F17

FYI - L17 is a manually entered value - F17 is a simple addition and subtraction from 3 other cells - N17 is simply the formulae above. I have the cells formatted to currency UK.

Is this related to the 65,535 floating point carry on ?

If I'm doing something very stupid, please feel free to respond starting with a DOH! Can you walk upright without scraping your knuckles ?

Help / ideas / or someone else confirming that this also happens to them please !

Dear Alexander Barnes,
You and I were discussing names and I gave you a defined name for the previous sheet that didn't work. You explained that you had a boat-load of trouble using such names; so, I thought you would like to know that I got it to work. The following name gives the previous sheet.

***********************************************
PrevSheet(WB)
=INDEX(GET.WORKBOOK(1),MATCH(GET.CELL(32,indirect("rc",False)),GET.WORKBOOK(1),0)-1+0*NOW())
***********************************************

It gives the name of the previous sheet in the form "[Workbook]Previous Sheet Name"--hence the WB. I didn't want the workbook name so I modified the name with a FIND (for the "]") and a MID to get this one.

------------------------------------------------------------------
PrevSheet

=MID(PrevSheet(WB),FIND("]",PrevSheet(WB),1)+1,31)

=MID(INDEX(GET.WORKBOOK(1),MATCH(GET.CELL(32,indirect("rc",False)),GET.WORKBOOK(1),0)-1+0*NOW()),FIND("]",INDEX(GET.WORKBOOK(1),MATCH(GET.CELL(32,indirect("rc",False)),GET.WORKBOOK(1),0)-1+0*NOW()),1)+1,31)
------------------------------------------------------------------

This cites the previous sheet in the simple form "Previous Sheet Name". Likewise, here's the defined name for the next sheet.

=====================================
NextSheet(WB)

=INDEX(GET.WORKBOOK(1),MATCH(GET.CELL(32,indirect("rc",False)),GET.WORKBOOK(1),0)+1+0*NOW())

NextSheet
=MID(NextSheet(WB),FIND("]",NextSheet(WB),1)+1,31)

=MID(INDEX(GET.WORKBOOK(1),MATCH(GET.CELL(32,indirect("rc",False)),GET.WORKBOOK(1),0)+1+0*NOW()),FIND("]",INDEX(GET.WORKBOOK(1),MATCH(GET.CELL(32,indirect("rc",False)),GET.WORKBOOK(1),0)+1+0*NOW()),1)+1,31)
=====================================

It is immensely useful for me because I'm writing a multi-functional Cash Flow Report that needs to make numerous calculations with bank balances from the previous sheet and pay dates from the next sheet, preferably without VBA: I had so many occurrences of the code/UDF that it noticeably slowed down sheet calculation. I thought maybe other people were looking for these two names, so I thought it was worth a post.

SJC

Hi all

This is my first post on these forums and I'm sorry if there's an
obvious answer but I've trawled the help searches and the closest I've
come to a solution is the 'paste special' facility mentioned in a
previous post on this forum.

The problem is a spreadsheet set up for petty cash entries. Sheet 1 is
an overall record of expenditure. Each team member has their own
worksheet. What we want to do is to make excel automatically take
data entered for each specific team member, and copy it to their
respective worksheet. The data to be copied is all in the same row.

There is a column on Sheet1 for -'NAME'- which could be used as a
keyword to specify which sheet the data should be copied to.

Any help would be greatly appreciated as we're kinda stuck on this.

Cheers

--
Ian1
------------------------------------------------------------------------
Ian1's Profile: http://www.excelforum.com/member.php...o&userid=31599
View this thread: http://www.excelforum.com/showthread...hreadid=512899

Im Trying To Write A Simple Sheet That Basicly Lists All The Components
In Stock With There Quantities, And Then Have A Cell Dedicated To
Selecting A Component And Entering A Quantity That Has Been Removed
From The Total Individual Amount.i.e

B1=(item)msc213 C1=(qty)23
G1=(item Selector, Select Say)msc213 H1=(qty Removed From Stores)2
That Would Then Subtract The Amount From The Right Cell 2-23=21.

As Im A Beginnner Any Help With The Formula Would Be Great!!!
Many Thanks

--
alanled
------------------------------------------------------------------------
alanled's Profile: http://www.excelforum.com/member.php...o&userid=30949
View this thread: http://www.excelforum.com/showthread...hreadid=510993

pls help again
i have a petty cash file, where i open a new sheet for every day from a
template sheet. how do i keep running totals of 10 data ranges in every
sheet in one sheet - bearing in mind that every day a new sheet gets added?
thanks

Let me try to explain my problem.

Basically I am trying to set up a petty cash system where each person
has his own sheet - that I then want to collect into one big Master
sheet.

I have 10 sheets in a workbook (lets call them cash1, cash2, cash3
etc).
They all have the same layout and formulas...

The areas where the people input the data that I want copied is ranging

from A9-I34.

I could do a simple =and refer to each cell in the different sheets.
But there might not be information in all the rows (A9 to I34) in all
of the indvidul sheets.

To avoid having a long list with empty rows I would like to only
collect the rows used in a specified area of each sheet and then put
them continously in my Master sheet - as a total resume of ALL the
expenses in on lone list.

I cant figure out how to do this without ending up with a lot of empty
rows in my master.

Please advice me how to solve this problem... It is driving me nuts -
and I will be so happy for any help you might offer.

Thank you,
MivPiv

Let me try to explain my problem.

Basically I am trying to set up a petty cash system where each person
has his own sheet - that I then want to collect into one big Master
sheet.

I have 10 sheets in a workbook (lets call them cash1, cash2, cash3
etc).
They all have the same layout and formulas...

The areas where the people input the data that I want copied is ranging
from A9-I34.

I could do a simple =and refer to each cell in the different sheets.
But there might not be information in all the rows (A9 to I34) in all
of the indvidul sheets.

To avoid having a long list with empty rows I would like to only
collect the rows used in a specified area of each sheet and then put
them continously in my Master sheet - as a total resume of ALL the
expenses in on lone list.

I cant figure out how to do this without ending up with a lot of empty
rows in my master.

Please advice me how to solve this problem... It is driving me nuts -
and I will be so happy for any help you might offer.

Thank you,
MivPiv

Hi all

This is my first post on these forums and I'm sorry if there's an obvious answer but I've trawled the help searches and the closest I've come to a solution is the 'paste special' facility mentioned in a previous post on this forum.

The problem is a spreadsheet set up for petty cash entries. Sheet 1 is an overall record of expenditure. Each team member has their own worksheet. What we want to do is to make excel automatically take data entered for each specific team member, and copy it to their respective worksheet. The data to be copied is all in the same row.

There is a column on Sheet1 for 'NAME' which could be used as a keyword to specify which sheet the data should be copied to.

Any help would be greatly appreciated as we're kinda stuck on this.

Cheers

Im Trying To Write A Simple Sheet That Basicly Lists All The Components In Stock With There Quantities, And Then Have A Cell Dedicated To Selecting A Component And Entering A Quantity That Has Been Removed From The Total Individual Amount.i.e

B1=(item)msc213 C1=(qty)23
G1=(item Selector, Select Say)msc213 H1=(qty Removed From Stores)2
That Would Then Subtract The Amount From The Right Cell 2-23=21.

As Im A Beginnner Any Help With The Formula Would Be Great!!!
Many Thanks

Hello everyone i really try not to bother anyone and decided to put and extensive amount of time on this code and now I'm getting a procedure to large error.
My code basically looks at another spreadsheet and based on the month you input on the input both it copys those cells from one sheet to another sheet. If the experts in this board can help me either make my code smaller or change my code i would greatly appreciated.
Thank you very much


	VB:
	
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Windows("1.XLS").Activate 
Dim strName As String 
 
strName = InputBox(Prompt:="what month is this?", _ 
Title:="MONTH", Default:="Please insert the first 3 letters of the month you wish to run") 
 
If strName = "aug" Then 
    Range("o7").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("I56").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
    Range("p7").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("j56").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
     'Tamika
     ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Windows("1.XLS").Activate 
     
    Range("o12").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("I36").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
    Windows("1.xls").Activate 
     
    Range("o13").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("j36").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
     'Jenny haywood
     '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     
    Windows("1.xls").Activate 
     
    Range("o20").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("I46").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
    Windows("1.xls").Activate 
     
    Range("o21").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("j46").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
     
     
    Windows("1.xls").Activate 
     
    Range("o25").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("I31").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
    Windows("1.xls").Activate 
     
    Range("o24").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("j31").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
     
     
     
     
     'Shandra
     ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     
    Windows("1.xls").Activate 
     
    Range("o29").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("I44").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
    Windows("1.xls").Activate 
     
    Range("o30").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("j44").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
    Windows("1.xls").Activate 
     
    Range("o35").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("I35").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
    Windows("1.xls").Activate 
     
    Range("o34").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("j35").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
     
     
     
     
     'Lydia
     ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     
    Windows("1.xls").Activate 
     
    Range("o39").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("I43").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
    Windows("1.xls").Activate 
     
    Range("o43").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("j43").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
    Windows("1.xls").Activate 
     
    Range("o46").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("I33").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
    Windows("1.xls").Activate 
     
    Range("o47").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("j33").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
     
     'Lammas Latimore
     ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     
    Windows("1.xls").Activate 
     
    Range("o51").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("I47").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
    Windows("1.xls").Activate 
     
    Range("o54").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("j47").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
     
     
     'kathleen adams
     '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     
    Windows("1.xls").Activate 
     
     
    Range("n56").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("I55").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
     
    Windows("1.xls").Activate 
     
    Range("o56").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("j55").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
     
     
     'Santoi Braham
    
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     
    Windows("1.xls").Activate 
     
    Range("n57").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("I53").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
     
     
    Windows("1.xls").Activate 
     
    Range("o57").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("j53").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     'Ella Powell
    
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     
    Windows("1.xls").Activate 
     
     
    Range("n58").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("I58").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
     
     
    Windows("1.xls").Activate 
     
    Range("o58").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("j58").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
     'Allie- credits
    
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Windows("1.xls").Activate 
     
    Range("n63").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("I8").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
    Windows("1.xls").Activate 
     
    Range("n64").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("j8").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
     
     
     
     'petty cash
     '''''''''''''''''
     
    Windows("1.xls").Activate 
     
    Range("o59").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("I9").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
    Windows("1.xls").Activate 
     
    Range("o60").copy 
    Windows("FY08APACTIVITYSUMMARY.xls").Activate 
    Range("j9").Select 
    ActiveSheet.Paste 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
     
     
     'Making the additions correctly
     
     ''''''''''''''''''''''''''''''''''''''''''
     
    Range("H49").Select 
    ActiveCell.FormulaR1C1 = "=SUM(R[-7]C:R[-2]C)" 
    Range("H50").Select 
     ''''''''''''''''''''''''''''''''''''''''''''''
     
    Range("H53").Select 
    ActiveCell.FormulaR1C1 = "=RC[1]/R60C9" 
    Range("H53").Select 
    Selection.AutoFill Destination:=Range("H53:H58"), Type:=xlFillDefault 
    Range("H53:H58").Select 
    Range("I60").Select 
    ActiveCell.FormulaR1C1 = "=SUM(R[-7]C:R[-2]C)" 
    Range("I61").Select 
     
     
     
     'SEPTEMBER
     ''''''''''''''''''''''''''''''''''''''''''''''''''
     ''''''''''''''''''''''''''''''''''''''''''''''''''
     ''''''''''''''''''''''''''''''''''''''''''''''''''
     '''''''''''''''''''''''''''''''''''''''''''''''''''
     'Carmen copy
     '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ElseIf strName = "sep" Then 

If you like these VB formatting tags please consider sponsoring the author in support of injured Royal Marines



No luck finding an answer? You could always try Google.