Macro To Transfer Subtotals From Worksheet Into Another
Jul 12, 2013
I'm having trouble with this macro I'm trying to write. I have a worksheet that's subtotaled like this:
Cash 100,000
Land 65,000
Equipment 104,000
Kroger Foods Total 269,000
Cash 200,000
Buildings 25,000
Equipment 25,000
Prepaid Rent 50,000
Whole Foods Total 300,000
The data is obviously just an example, but that's how it's set up (a subtotaled worksheet with three columns). My issue is that I need to write a macro to copy these numbers in column 2 (ex. land - $65,000) and paste them in a cell in another worksheet that finds the particular cell to paste it in based off column 1 and column 2.
For instance:
Cash Equipment Land Prepaid Rent
Whole Foods
Kroger
Essentially, I'm trying to find a way to copy the totals in column three and paste them into a cell in a certain row (based on column 1), and column (based on column 2). I'm pretty lost, and I just need some guidance as to how to tackle this. So far my code sets column 1 and 2 as strings and sets the columns in the second worksheet to these strings, and from there I'm lost
View 7 Replies
ADVERTISEMENT
Mar 26, 2014
transferring data from a worksheet (Passdown Report) to another worksheet (Data Base) located in the same workbook. In the source worksheet (Passdown Report) there are 2 cells (B2 and D2) in which I would like the data to be transferred along with the data from B4 to AQ33. All the cells contain a formula which I want to stay after the information is transferred to the target worksheet (Data Base). This will be a daily transfer to the target worksheet (Data Base), so the macros should also identify the next available open row to transfer the data to.
View 1 Replies
View Related
Oct 7, 2009
I receive a monthly download of individuals call-logs in one "Master File." For internal reasons, I need to separate every person's monthly call-log into individual worksheets. Unfortunately, the file is very large and copy/paste is very time consuming. I am operating on MS Excel 2007.
View 9 Replies
View Related
Jun 25, 2009
Is there a macro to subtotal by column name then only total certain columns? Like the data below, can I subtotal by Key then I only want the subtotals to show Price, Sale Price, QTY,, Warranty, Credit, and Cash. So I dont want to subtotal % cash?
key Price Sale Price QTY Warranty Credit % Cash Cash Camera 502 61 10 5 3 15% 15 Phone 1346 234 10 5 3 15% 15 TV 13216 479 10 5 3 15% 15 Camera 484 131 10 5 3 15% 15 Phone 3 231 10 5 3 15% 15 TV 24 12 10 5 3 15% 15 Camera 138 21356 10 5 3 15% 15 Phone 3168 12 10 5 3 15% 15 TV 1348 12 10 5 3 15% 15 Camera 502 12346 10 5 3 15% 15 Phone 1346 132456 10 5 3 15% 15 TV 13216 61 10 5 3 15% 15 Camera 484 234 10 5 3 15% 15 Phone 3 479 10 5 3 15% 15 TV 24 131 10 5 3 15% 15 Camera 138 231 10 5 3 15% 15 Phone 3168 12 10 5 3 15% 15 TV 1348 21356 10 5 3 15% 15 Camera 138 12 10 5 3 15% 15 Phone 3168 12 10 5 3 15% 15 TV 1348 12346 10 5 3 15% 15 DVD 1348 132456 10 5 3 15% 15
View 9 Replies
View Related
Jul 7, 2006
I am trying to loop through all of my worksheets in my workbook to apply a subotal to each of the sheets. I can get it to work with applying to just one named sheet, but I cannot get the loop to work. The sheets named "data" and "PriceList" do not need the subtotal applied.
Below is the code I am using:
Sub SubTotals()
Dim LastRow As Long
Dim wsDst As Worksheet
View 5 Replies
View Related
Aug 6, 2008
I'm getting a runtime 1004 error "Cannot Shift Objects Off Sheet" right at the line when i am trying to collapse a subtotal (showlevels, rowlevel 2). I searched about this and i tested. I cannot find any comments, hidden comments, rows or columns. I cannot find any shapes (ran "Kill_Shapes" posted by Aaron Blood).
Sheets("Oxnard Planning 10 (all)").Activate
'SORT: Del Code (D), then Style (A)
Range("A1").Sort Key1:=Range("D1"), Order1:=xlAscending, _
Key2:=Range("A1"), Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
'Subtotal by STYLE
Range("A1").subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5, 6, 7, 8, 9, 10, 11), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
'Subtotal lines = Bold & Pink
ActiveSheet.Outline.ShowLevels RowLevels:=2 '<< ERROR:Cannot shift Objects off Sheet
With Range(Range("K65536").End(xlUp), "A1").SpecialCells(xlCellTypeVisible)
.Interior.ColorIndex = 38
.Font.Bold = True
End With
ActiveSheet.Outline.ShowLevels RowLevels:=3
View 2 Replies
View Related
Jun 20, 2007
Im trying to take information and have it copy to a different worsheet when a certain selection or type is put into a column.
Example:
On worksheet "Alpha"...
Column "A" will have "Maintenance, Supplies, or Payroll" in it.
Column "B" will have a currency.
On Worksheet "Bravo"...
I would like to have everything from Column "B" on "Alpha" to be placed here that has "Maintenance" in Column "A"
On Worksheet "Charlie"...
I would like to have everything from Column "B" on "Alpha" to be placed here that has "Supplies" in Column "A"
Etc...
View 10 Replies
View Related
Jan 20, 2012
I have 3 worksheets- Sheet 1 and Sheet 2 will have data from the customer that I need to transfer in Sheet 3 as a summary. So if 5 rows are filled in Sheet 1 and 6 rows in sheet 2, VBA code that can transfer data from sheet 1 and sheet 2 to sheet 3 all one after other (i.e. have 11 rows total). The current code formula i have just replaces data that was filled in from sheet 1 to sheet 2.
View 7 Replies
View Related
Jun 6, 2014
How can I move every row data to another sheet, when the print(moving) button will shown i every row. Problem is that i need write a code and insert button for every row, how to automate this proces. So the main key is that, i can chouse wich row i want to transfer to another sheet.
View 1 Replies
View Related
Feb 22, 2013
I'm trying to find the coding to be able to do the following.
If Manufacture = Dimond in Cell C3 then in C5 show list from database Worksheet, of A4-A9, if C3= Steel & Tube then show list for A13-A18
Cell C3 is a Data Validation List
I keep getting name errors etc.
View 2 Replies
View Related
Jul 1, 2014
I have 71 checkboxes that I want to transfer the Checkbox Caption if true. If the checkbox is false I want to transfer a value of "0". The captions are being transferred to a different worksheet. Below are a few entries if I was to enter them all separately, but I assume there is a way to do all at once?
View 4 Replies
View Related
Mar 27, 2014
I have the following "if" statement
=IF('Audit Blank'!H53=2,SUM('Audit Blank'!I12:M12),"")
but it is not doing what i want and think i need some vba coding which i am not up to speed with. Basically i have an excel workbook containing a number of worksheets and what i want to do is enter data on the 1st worksheet which then populates the summed data into a second worksheet into a specific column dependant on the week no. that appears in a cell on the 1st worksheet. eg. the week number will appear in cell H53 the details in the sum of H12:L12 would then appear in cell I4 under the column heading Week 1 in the second worksheet, the sum of H13:L13 would then appear in cell I5 and so on. Where my "if" statement falls down is when the week number changes to "2" all the data under the column heading week 1 disappears but i need it to remain and the data for week 2 to be placed under the column heading week 2 in the second worksheet.
View 1 Replies
View Related
Jul 23, 2006
I Currently have some VBA sourced through here which adds to the end of the first instance of a value in column A the values in column's B and C and repeats adding values in new cells for B and C until the value in column A changes.
Now I need to transfer this sorted data to another worksheet (destination.xls) and add it by the reference number in column A to the end of the row with the same reference number.
I have experimented with vlookup with limited success and am looking for a more robust solution.
The data from the spreadsheet called source.xls appears starting in column EE. This will be the same starting position for all rows I have coloured the data for ease of recognition purposes only.
I have attached 2 sheets as examples of what I am trying to achieve.
View 9 Replies
View Related
Jul 17, 2007
My goal is to create a tracker for my work. This tracker would have the data collection in a seperate excel worksheet using forms (embedded), where all of the information initially goes, then with the click of an "Add" button, it formats the information in the cells in the appropriate worksheet (ie: good data goes to the worksheet called "Good" and vice versa for "Bad"), clearing the data from the forms, and preparing for the next bit of information.
Date
Time
Name
Notes
Type (2 radio buttons that categorize the )
Completed tasks (checkboxes stating "Did I do this", "Did I do that", etc.)
View 2 Replies
View Related
Jan 12, 2014
I need a temporary database. What I need to do is to transfer data from each tab to a Masterfile tab. For example. I have Jan 1, Jan 2, Jan 3 tabs I need this to automatic transfer to Masterfile tab. I know I can copy/paste this BUT I have a LOT of data's like way back to June 2013 to present so I really need a way to do this easier.
View 6 Replies
View Related
Sep 29, 2013
I have a table with 150 or so Job Titles down the first column. Across the top row, I have 25 or so courses listed. There are Xs in the table indicating which courses are required for each job title.
This worksheet is intended to be used by individuals who will look up their job title to see which courses they must take. My goal is to simplify this process. I would like to create a worksheet in this workbook which has a drop down list of job titles. When the title is selected the data will transfer to a table on this new worksheet.
I've attached the spreadsheet I have and it's pretty self explanatory.
View 4 Replies
View Related
Jul 22, 2014
I already transfer my data from database (excel.xlsm) to an old worksheet (excel.xlsx) with a table by using VBA. Now I want to make this old worksheet become a new file with new file name like yyyy/mm/dd/where. Is that possible?
View 4 Replies
View Related
Jan 23, 2014
I have uploaded a worksheet that has a macro attached to button 4,
I want the macro to search the header in "All Data" worksheet and transfer the data under them to under the same headers in "Quote" worksheet.
The data in "All Data" could be upto 60 rows of data.
quote test 1.xlsx
View 6 Replies
View Related
Oct 9, 2012
I have a large data ... my problem is that I want the data is segregated automatically without manual filtering. in my data there are approximately 1000 individual name data, i need information about one person automatically segregated in one worksheet
A
B
C
D
[Code]....
for example; in the table we can see the red colour font in column D, that is the name person, what i want is data for one person automatically transfer to another sheet..example : Annamalai data to Sheet2, Koh Che Kuan to Sheet 3, Rashidah to Sheet 4..etc
View 3 Replies
View Related
Mar 25, 2007
I want to transfer the data of one worksheet (to be added everyday) to multiple sheets.
View 4 Replies
View Related
Sep 8, 2007
This is all taking place in vb6 and excel 2003.
I am making a userform that is activated once the user highlights a bit of spreadsheet and clicks a button on the command bar, here is what I want it to do:
1. (copy data from the spreadsheet
this is tricky because I am trying to have it be a conditional situation where the user highlights a place on the spreadsheet and whatever that place is at the moment, it will get copied to a variable on the form.
There are 8 fields to highlight and copy, two with info that wont be copied onto the new spreadsheet but will be used to update fields and make the filename.)
2. make a new spreadsheet:
a. the filename is made from cell values in the 'from' and 'to' columns and the date.
b. new spreadsheet needs to have a template section from a7:f7 that has 4 fields that will be filled in from the fields on the form.
c. copied data is to be moved from old spreadsheet to new spreadsheet to cell a8. There should be 6 columns that will be filled with data.
3. on the form there will be a browse button to save the file in a location specified by user and 'last saved location' name should be saved to a textbox.
I read about a browse button here that I would like to use, but I have to adapt it so it can be used in the 'browse' button. [url]
I dont even know if it is possible to copy a user-specified range. It seems that it should be, because when a user highlights an area, that area is being held in memory as a position... I tried passing these values to another sheet but it wasnt successful. I tried to dim 'selection' as string and pass it into a variable, but I am new to variables and this project is a big experience for me in vb.
I also am still learning about how to make values in a field pass to another field on a spreadsheet.
View 9 Replies
View Related
Apr 7, 2014
Select Specific Cells And Transfer This Data Into A New Row In A Different Worksheet, how can I do this in a macro?
I am trying to pull a select 6,048 rows out of 288,000 rows.
View 5 Replies
View Related
Dec 23, 2013
I try to transfer a data from multiple worksheet in a same 2 identical workbook. One I keep for me and the other one will be update by the user. So I need the data update by the user can be transfer to my workbook and only the new data not the one that already in my workbook. I try with the code below but it seem not working. The code run but nothing being transfer.
[Code] ....
View 1 Replies
View Related
Mar 5, 2009
I am trying to select specific cells and transfer this data into a new row in a different worksheet. The code i am using i used sucessfully on a user form to take the entries from text boxes and place in a row in a new worksheet. I would like to try and do the same thing but on a worksheet rather than a user form. My code is
View 2 Replies
View Related
Feb 25, 2012
I have a few row headings on a fresh worksheet (called "New" like so for A1, B1 and C1 for example):
Date Amount Title
I then have raw data on another worksheet. This data has many column headings (more than on the "New" sheet) and the data for that heading in the column underneath heading. So the Date column will have say 50 rows of dates in the column. What I want to do in VBA is match the headings from the "New" worksheet to the raw data worksheet ("Data") and then copy and paste the data into the column under the row heading in "New" from "Data".
with the code for this? I have tried using MATCH and I can't get it to work. I'm also looking for an efficient way to do this I'm sure I am doing it a very inefficient way.
View 4 Replies
View Related
Jun 1, 2007
I am trying to create a userform to allow user to register their new team member. In the userform, I have textbox1 (new team member) & textbox2 ( name of their leader). Once both the textbox has been filled, the user need to click on the commandbutton, which will then add the newly registered team member to the combobox1 in the Sheet1 and then create a spreadsheet(tab with the Team member name) in a separate workbook, which corresponde with the name of their leader (as filled in textbox2 in the userform.
View 2 Replies
View Related
Jul 16, 2014
I am trying to quickly transfer all worksheets in a directory into one worksheet listing all worksheet names in the tabs in number order.
The formula have so far is below. But it does not name the individual tabs as the worksheet names in no order.
Sub GetSheets ()
Path = "Y:
Filename = Dir(Path & "*.xls")
Do While filename ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
Sheet.Copy After:=ThisWorkbook.Sheets (1)
Next Sheet
Workbooks (Filename) . Close
Filename = Dir ()
Loop
End Sub
The worksheets appear as follows 1982-001, 1982-003 up to 1982-250 ( I want them in single workbook but as multiple tabs in number order)
View 1 Replies
View Related
May 6, 2009
I want to select items in a listbox and transfer those items via command button in a textbox. The listbox is already filled. I have no idea how to realize that.
Attached is the form I created so far. I copied everything together and matched it up for me. It's probably not the best way but it works. I marked the section where I need help in yellow.
View 9 Replies
View Related
Jun 1, 2009
i have the following macro which transfers credit control data from an outstanding tab to a paid tab:
View 9 Replies
View Related
Jan 19, 2008
I have a macro that transfers data from one workbook to another, this works fine, however the problem I have is that one of the files has the name changed frequently to another name, so each time i run the macro I have to change the original file name to the revised file name.
here is a copy of the macro
Dim NextRow As Long, Isht As Worksheet, Lsht As Worksheet
Application.ScreenUpdating = False
Set Isht = Workbooks("RMG Daily.xls").Worksheets("Retail Team 1")
Set Lsht = Workbooks("Weekly Monthly YTD Scores.xls").Worksheets("Raw Data")
NextRow = Lsht.Cells(Rows.Count, 2).End(xlUp).Row + 1 'next empty row in col A
the "RMG daily.xls" is the file change is used as a template but then saved as ie "010108.xls"
rather than me editing the macro each time I need to create a pop up box that will allow user to type in file name for the transfer - this will then link in with this part of my VBA code
"Set Isht = Workbooks("RMG Daily.xls").Worksheets("Retail Team 1") to instantly recognise where my data is being transferred from.
View 9 Replies
View Related