Hi All,
I have 50 summary spreadsheets that need updating against a master spreadsheet every month. To do this I have to manually open update date save and close and can take close to the whole morning!. What I would like to to is update them automatically using a macro. The macro needs to do search through the existing list in the summary worksheet and do 2 things:
1. Add any new values to the summary list. Placed in the first empty row.
2. Sum/Total existing values. (Example. Pump Shoes Total = 1 Cost = £50. Any new data for Pump Shoes should be added to the existing figures.
I have been tinkering around with this bit of code to no avail. Is there anyone out there who can help.
Thanks in advance.
Set found = Columns("A:A").Find(what:=Shoes, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=True)
If found Is Nothing Then
erow = Activesheet.Cells(Rows.Count).End(xlDown).Offset(1, 1).Row
Activesheet.Cells(erow, 1).Select
End If
I have 50 summary spreadsheets that need updating against a master spreadsheet every month. To do this I have to manually open update date save and close and can take close to the whole morning!. What I would like to to is update them automatically using a macro. The macro needs to do search through the existing list in the summary worksheet and do 2 things:
1. Add any new values to the summary list. Placed in the first empty row.
2. Sum/Total existing values. (Example. Pump Shoes Total = 1 Cost = £50. Any new data for Pump Shoes should be added to the existing figures.
I have been tinkering around with this bit of code to no avail. Is there anyone out there who can help.
Thanks in advance.
Set found = Columns("A:A").Find(what:=Shoes, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=True)
If found Is Nothing Then
erow = Activesheet.Cells(Rows.Count).End(xlDown).Offset(1, 1).Row
Activesheet.Cells(erow, 1).Select
End If