Copy / Archive Old Data
Feb 26, 2008
I have attached a sample in my second post here.
I have searched for many hours and I cannot find what I would like to do or indeed anything similar.
My issue is that I have been asked to build a spreadsheet (I am of novice ability) to create a league of sorts relating to percentages earned by 8 different shifts at work. These percentages are then converted to points and via that through a ranking formula into a weekly table. That I have done but I have been asked if it is possible (I know it must be somehow) to somehow retain last weeks positions. So for instance, weekly percentages have been added the table has been populated, next week the same happens but what I need is prior to new information being added the previous weeks "league positions" are transferred over into a "last weeks" league positions table. Whether this can be automated or manually via button click I have as yet no idea. This problem has me now reading a "VBA for beginners" book but I do not think I will be proficient quickly enough!
View 5 Replies
ADVERTISEMENT
Apr 27, 2012
Code, couldn't make it work with VB HTML Maker. I'm new with VBA Basically my idea is when someone open default file, insert data, try to save file, macros save workbook with inserted data as another file (*.xlsx) and make pdf in another folder. Pdf part is working fine, but with second part just can't find right option.
Pdf part
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim Name As String
Dim i As Integer, j As Integer
Name = ThisWorkbook.Path & "PDF Archive" & ActiveSheet.Range("F6") & " Invoice " & ActiveSheet.Range("B11")
[Code]...
Excel part
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ActSheet As Worksheet
Dim ActBook As Workbook
Dim CurrentFile As String
Dim NewFileType As String
Dim NewFile As String
[Code]...
View 1 Replies
View Related
Oct 9, 2009
I Have a Sheet that Have ove 5000 rows and 13 colums of data andn i would to archive this info in a different work book or a different sheet in the same workbook. without copy and pasting and i want to auto update as i type in new data.
View 9 Replies
View Related
Jun 14, 2006
I am trying to move (archive) data from one sheet to another sheet based on a date range provided by the user’s input. If the date on sheet “list” in the cells in range R9:R10000 fall within that date range the following takes place. The rows that meet the date range per the user’s input in the range of R9:R1000 are copied and just the values are pasted into the next empty row starting with row 7 on the “report” worksheet. The cells that are copied on the “List” worksheet are NOT deleted but the contents are cleared. The reason for this is because there are formulas/links in those cells.
I have attached a worksheet example and have some VBA code but it does not work.
View 9 Replies
View Related
May 17, 2006
Here is what I want to do in words- how do I translate it into VBA? I have 2 sheets in a workbook (Tally & Archive) The Tally sheet has aa set of buttons which record tasks completed (the range of these is E9 : E29) I have a current date box ( A" which uses the =today() formula). I want to archive the range E9:E29 in Tally to consecutive daily columns in the Archive sheet
My logic has got me thus far:-
select Archive sheet
look at A1 to the end of the row
If the active cell is empty then
put the Value of "Tally" A2" into the active cell
Copy the range E9:E29 in Tally to the column under the active cell
Return to the Tally sheet
View 3 Replies
View Related
Oct 20, 2009
I have the need to be able to open a closed file to archive some data from a
current file.
what coding i need to be able to kick the "open file" bit off?
View 4 Replies
View Related
Aug 20, 2007
way i can save an open workbook using a macro in that workbook
but as a certain filename and have it placed into a certain folder!
View 9 Replies
View Related
Dec 10, 2008
I have a spread sheet that pulls data from several different locations.
I need to update this spreadsheet once every two weeks.
I need to archive the VALUES of the spreadsheet every two weeks.
I have a recorded macro that only seems to work from Personal.XLS Modules and I need it to work from the Workbook itself so that others can use it from the shared drive that it is posted on.
The workbook sheet names are DO7, DO8, DO9, Features, and Source Explanation, but I only need the first 3 listed to archive to the new folder. The range could be A1:J100 on each sheet if the entire sheet can't be copied.
I know there is a way to utilize temp files and would prefer to use that method instead of the kindergarten level of a macro that I have pasted below.
Sub AutoArchive()
YesNo = MsgBox("This will save the document and save an archive file. Do you wish to proceed?", vbYesNo + vbCritical, "WARNING: This document will self destruct in 10 seconds!")
Select Case YesNo
Case vbYes
'Insert code for "Yes"
ActiveWorkbook.Save
Sheets("DO7").Select
Range("A1:J100").Select.....................
View 9 Replies
View Related
May 2, 2013
I'm using Excel 2011 on a MacBook Pro. Here's my situation:
I'm running a monthly budget report that's got three spreadsheets within the workbook. Spreadsheet #1 is summary sheet with a few pivot tables. Spreadsheet #2 is the data sheet, where all of the information is entered, and is what feeds the pivot tables on Spreadsheet #1. Spreadsheet #3 is just a list page that populates the drop-down list on the second sheet.
As this is a monthly budget report, I'd like to find some way to archive the first spreadsheet (the summary sheet) every month. Ideally, I'd like to be able to create a macro-driven button that, when clicked, does the following actions:
1) Creates a new spreadsheet, with each click, named for the current month and year.
2) Archives the exact contents of Spreadsheet #1 by making an exact copy of its current contents, and places this copy into the newly created spreadsheet.
3) Clears the data from Spreadsheet #1 AND Spreadsheet #2.
To summarize, I'm trying to use a button that, when clicked, runs a macro that archives the current month's data into a new spreadsheet, and then clears the data from Sheets #1 and #2 so that I can start each month with a clean slate. If there's a way to only clear the data from certain cell ranges (as opposed to a complete wipe of the sheet), that would be even better.
View 2 Replies
View Related
Jul 4, 2012
I have a workbook that includes 4 seperate sheets that are used to record time and expenses for 4 members of staff. I want to write a macro to select the data I need from each sheet and colaberate together in a 'data' sheet so I can combine all the info to run time and expense reports per client showing combination of all time and expense incurred from all 4 staff.
I have named cell ranges in each of the 4 time-sheets. I proceed to record a macro, select the first named range, copy and paste into my data sheet, do a control home then control down arrow, then one more down arrow to get to the first blank cell and repeat the process for all four time-sheets.
This works until I add a new line and then the data will only appear for the last time-sheet (last row of data).
View 2 Replies
View Related
Sep 18, 2009
I have two sheets, a data sheet with all our customers by ref, name and spend; and a presentation sheet.
In the presentation sheet I want to display the ref, name and spend of the Top 50 customers by spend, price high to low.
The workaround:
Copy all data from data sheet, sequence top down by spend, manually delete all after 50.
My only issue is that each month the data sheet will update and I want the Top 50 to auto update, without performing the workaround above.
Is there a way to do this without VBA i.e. pivot tables etc
View 10 Replies
View Related
Oct 7, 2013
I have an excel WS1 set up as DB; I want to keep this sheet for data revision. WS2,3, 4, & 5 will be data that is filtered and sorted, using WS1 as source so I want to auto copy the WS1 data. Can I just auto copy WS1 (how do I do that?) then filter and sort in each WS?
View 3 Replies
View Related
Mar 8, 2014
We have folders of daily cash collections stored in such a manner, yearmonth. In every month, we will have worksheets sent by the end user to the finance dept, naming it using mmdd. (The folder in the drive will reads: C:Daily Cash Collection2013), (C:Daily Cash Collection2013 0104.xlxs), (C:Daily Cash Collection2013 0115.xlxs). I intend to put the master list outside the year folder, meaning, in the Daily Cash Collection folder (C:Daily Cash CollectionDCC_2013.xlsm). When I have a new folder for year 2014, my master list will be here (C:Daily Cash CollectionDCC_2014.xlsm)
I am looking to automate this opening of all the daily worksheets, select all data except the header row, and copy it into a master list (which will be data for the whole year, with 3 months of the previous year data).
The data in the daily sheets, it will have collections of the same Debit Note number from the file sent earlier. Meaning, if the file was sent on 0104, there is a DN0114-0002, collection of $50. In another daily sheets 0115, it will also have a collection of DN0114-0002 of $20. This 2nd information of $20 will also need to be captured as the payment in 0301 is partial and incomplete.
I will need to copy the daily sheets into the master list every now and then. Is there a way to check and copy the daily sheets and not repeating it and missed out one?
In another words, if I had already copied Jan sheets into the master list, will it look for the next worksheet that I had not copy and copy according the DN number? (it will be in running number but sometimes will have DN of the previous month due to the partial payment ealier).
Alternatively, if this is too complicated, how to insert a macro to copy all cells except the header (will be in fixed column and the first row will be fixed) from an open daily sheet, find the last row in the master list and copy it to the master list, and after copying, unclear the selection of the daily sheet and close the daily? Where can I put this macro as the daily sheet is from the end user. I can only put it into my master list, but my problem is, the file name of the daily sheet is not fixed, it depends on the day the end user saved and email the data to Finance Dept.
DCC foler.jpg
View 10 Replies
View Related
Jun 15, 2014
I am trying to create a macro to copy a set of datas in a row , paste into another workbook (specific sheet),then save it as one of the datas that was copied over.
Workbook1
Ticket#
Description
Name
12345
Test 1
David
32145
Test 2
Steve
Workbook2 - sheet (ABC)
Copy row 2 from Workbook1, paste to row 1 in Workbook2 sheet(ABC)12345
Test 1
David
Saveas Workbook2 - ABC - "12345" - Ticket #
Copy row 3 from Workbook1, paste to row 1 in Workbook2 sheet(ABC)
And so on. I will have a set of data to trasfer to Workbook2, each row different workbook.
View 4 Replies
View Related
Mar 7, 2008
I have a excel worksheet with the following columns: First name, Last Name, Email address, domain of email, product type, date registered. The list consists of about 50,000 entries. I want to sort the list by the domain of email(which I am able to do already) Once this is done, I want to find all instances of where a domain appears at least 10 times on the list(such as webmessenger.com appears 40 times, so I want to get that data).
For those instances where the domain appears at least 10 times, I want to pull those rows out of the intial list and put them in a new list(the new list will be sorted by domain and will only have people who have a domain which appears at least 10 times). To make this a bit more clear, The initial list I have is a list of people who registered to use the software my employer makes. We are trying to locate companies which may have many people using our consumer version of the software. When there is a large amount of people in the same organization using our software, it would benefit them to upgrade to the enterprise version due to enhanced managment features. By running this filter, I can see which companies have at least 10 users registered to use our software. Of course I will remove any Gmail/yahoo mail/msn/hotmail... pretty much any public email domains and just leave the ones that are obviously corporate emails.
So far, I think it probably has to be done with a pivot table... I was able to get a table that tells me how many instances occur from each domain, but I cannot get it to display the actual data(it just says IE. company.com 200, yahoo 120, etc... I need it to show me the 200 rows of company.com emails and extract them to a new sheet so that I can then follow up with company.com and see if they are interested in the corporate version.)
View 2 Replies
View Related
Oct 18, 2013
I have been working on a macro that compares a existing list of data to an updated list of data and then either moves any data not on the new list over to a completed tab (followed by deleting the record on the existing sheet), and then adds any items not on the existing sheet, but which appear on the new list, to the existing list.
I have come across a stumbling block, i have managed to identify on the existing list the rows of data that have been removed from the new list and therefore need to be moved over to the completed tab, but when i select the data it selects the header row aswell (which will always remain the same row). Obviously this then pastes the header row aswell, and also i can't seem to get it to paste in the new sheet to the next available row (i.e this will be used daily and i don't won't to overwrite the infor already in the completed tab). the next issue i have is then when i go back to existing sheet to delete the data i just copied across, as the header was initially select this also gets deleted.
The code below, is the complete code, including filtering, copying some forumals etc. The area i am getting stuck on is highlighted in red:
Sub Update()
Dim bottomrow As Long
Dim My_Range As Range
bottomrow = Cells(Rows.Count, "C").End(xlUp).Row
Set My_Range = Range("A1:Y" & bottomrow)
[Code] .....
View 6 Replies
View Related
Dec 9, 2008
I have a time card report which will record the time spent on work for each employee. Each month, i have to generate the time card report and copy the data to my master file. Is there any code that can auto copy the time card entry directly to the master file? I only need some of the entry on the time card report, some of the column can be ignored.
I was thinking of creating a macro that will prompt me to choose the file to import as there are different file for different individual. Attach here with the master list (Demo.xls) & the time card for one individual (Nov-KTTHAM.xls) for reference.
I want to copy the data on column B of the time card to the column A of the master list, column C to column B, column D to column C, column E to column D, column F to column E and column G to column G.
View 4 Replies
View Related
Mar 27, 2014
I have a column in two different worksheets that contain the same information that I want to match.
Raw Data - worksheet 1
Data - Worksheet 2
Column A - ShopperID
Same data is in both worksheets, column named the same in both worksheets
Raw Data worksheet contains email addresses in Column J that i want to extract and copy to column I in Data worksheet if there is a match on Column A.
View 3 Replies
View Related
Oct 17, 2012
I have a workbook with 3 sheets
Sheet1 - TeamList - Column A is a list of all the team leaders which is used to create a new worksheet for every team. Col B is blank. Column C, D, E are the team lists where teams can consist of anywhere from 10-25 employees.
For example
Column A
Column B
Column C
Column D
Column E
Team Leaders
Team Leader
Employee
Pin
TL 1
TL 1
Emp 1
10001
[Code] ......
Sheet2 "RawHours" A raw data sheet that contains employee hours information
For Example
Employee #
PIN
NAME
Reg
OT
TRN
Stat
Sick
Vac
Berv
2000100
10001
Emp 1
24.00
0.00
[Code] .......
Sheet3 - Template
Basically what I want to be able to do is create a sheet for every team leader and copy and paste there team into the appropriate sheet.
I have the sheet create done by simply copying the template and renaming each sheet using the Team Leaders list from column A from the TeamList sheet. And then I copy the page setup information using the template as well but when it comes to pulling over the appropriate team members in to the appropriate sheet I can not seem to wrap my head around it.
Below is the current code I am using:
Code:
Option Explicit
Sub CreateSheet()
Dim LR, i As Long
Dim shCount As Integer
Dim Sh As Worksheet
Dim Cell As Range
Dim CpySht As PageSetup
[Code] ........
View 3 Replies
View Related
Feb 15, 2010
Got an issue that I can only seem to do with things like the program Hotkey and making physical macros. I'm sure it is easy but I'm lost.
I have data in one book that looks like this (Call it Book1)
Date: Service
ProviderReason for callCRM
SR #DM
SR #WO #Device #Serial #Issue15/02/2010DATE: 03/02/10
TIME: 11:29
BUS: 1234AO
ISSUE DETAILS: Issue with Console
and data in another book that looks like this (Call it Book2)
DeviceSerial NumberNameTerminal PositionTerminal Group Location DescriptionTerminal IDDescription Service Provider 104012343030123456ConsoleDriver Console1234AO90401234Service Provider Name found Here
I need to find the BUS: 1234AO from the cell in Book1 then look that Bus up in Book2 and then from Book2 copy the Device, Serial Number, and Service Provider into the cells into Book1 and repeat this infintely often. The problem I have is the the bus can have 1 Console and 1-5 Readers and I need to find that data also. So for example I need to find BUS 1234AO and get the Console details and past that into one issue and the next issue will have the same bus number 1234AO but I need the details for Reader2 (that detail is in the Name field as shown above.) The issue details will always have the Console text and Reader# text in it.
The problem I have is that the Reason for call cell has ALT-ENTER characters in it and the details are not always in the same spot but the details are almost always in the format ####AO (four numbers and the letters AO)
View 19 Replies
View Related
Apr 13, 2009
look for a certain value in worksheet A and copy that row of data to Worksheet B.
However, it seems to be only copying the row in worksheet A and pasting it. Is there something that a noob VBA scripter has missed out?
PHP Private Sub GetInfo_Click()
Dim r As Long, LastRow As Long, Status As Integer
Dim Message As String, Title As String, Default As String, MyValue As String
Application.ScreenUpdating = False
MyValue = Range("A4").Value
Workbooks("invoice.xls").Worksheets("A").Activate
LastRow = Range("C65536").End(xlUp).Row
For r = LastRow To 1 Step -1
If Cells(r, 1).Value = MyValue Then
Rows(r).EntireRow.Copy
Workbooks("invoice.xls").Worksheets("B").Activate
Rows("8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Status = 1
Workbooks("invoice.xls").Worksheets("A").Activate
Rows(r).EntireRow.Delete
Exit For
End If
Next r
Application.ScreenUpdating = True
View 2 Replies
View Related
Jun 1, 2013
I have a main "ControlSheet" with a list of client and info in Columns A,B,C and E
In Column D of this "ControlSheet" I enter the Staff member who the client has been allocated to (e.g "Staff1")
A B C D E
1 Ref Data1 Data2 Staff Date Client Allocated
2 102 1000 10001 Staff1 01.06.2013
Each staff member (there are 7) has their own tab set up (e.g Staff1, Staff2, Staff3 etc)What I would like to achieve is when I choose the relevant staff member in column D of the "ControlSheet" (Lets say D2) I would like the Data from A2,B2,C2 and E2 of the "ControlSheet" to be copied to the next available/empty row of the Staff members own tab.
So in this example (above) A2-E2 would be copied to the "Staff1" tab as that is the staff member chosen If I was subsequently to change the Staff member chosen on the control sheet from say "Staff1" to "Staff2" I would then like the Data or Row to be removed from the "Staff1" Tab and added to the next row of "Staff2" Tab.
View 2 Replies
View Related
Mar 16, 2007
I would need Excel to compare rows between two worksheets (A & B), and if there are any:
(1) new rows in A, to copy across the new rows onto B.
(2) updated rows in A, to copy the updated data onto B replacing existing B values.
This in itself would be simple. Only thing is, worksheet B would be subtotaled and sorted by the subtotal and this is something I wonder if Excel can cope with. BTW I wouldnt mind it if subtotals in B has to be undone before the data gets updated, so long if Macro automates it for me. Is this possible or am I asking for too much? A representative excel file is as attached.
View 5 Replies
View Related
Jul 30, 2014
See attached. test.xlsm‎
Copy data from one row to another?
View 6 Replies
View Related
Nov 3, 2008
I have used this code below which copies a range of data from one workbook to another, which works fine. I want to take this to another level. How can I copy data from a workbook to another workbook, but not knowing where the last row is
View 14 Replies
View Related
Dec 15, 2008
I have a bit of code below which i am trying to use to copy a row of data
View 2 Replies
View Related
Jan 28, 2010
I have a spreadsheet (Attached) that has 2 sheets. Sheet 1 has column A "Product Code" and Column B "Text".
We then have sheet 2 which has column A "SKU" and column C "Text".
I want to go to sheet 1 A2 find the value (In this case 000006) then go to sheet 2 and find that value in column A. Lets say the value was found in A7 then take the value from C7 (This is the text from the same row that the value is found) and paste it into sheet 1 B2.
Once that is done then we move down to sheet 1 A3 then A4 and so on until every row has been completed.
The process i have explained above takes perhaps 5-10 seconds to do by hand but obviously with 10000 rows it will take a while.
View 6 Replies
View Related
Sep 29, 2011
I'm looking for a macro that will move the numbers in column F
If a 10 digit number is found in COLUMN E, then the macro should go to PREVIOUS ROW and then to COULUMN F OF THAT ROW and copy that number 1 ROW BELOW.
View 6 Replies
View Related
Jan 2, 2013
Column A contains 5 or 6 digit account number (unique field) in Sheet 1.
If Column A is = 6 digits, I want to copy the whole row data into sheet 2.
How can I do it?
View 1 Replies
View Related
Jun 11, 2013
I have a worksheet with a few different tables on. I want to create a macro that will copy the data down from the last row in my first table. There are empty rows between each table but it seems to count these when i am trying to set a rule for what is the last row, resulting in it selecting all the tables on the sheet and copying them.
View 1 Replies
View Related
