Two macros have been developed in order to write entries to a sheet called Detention Register from another sheet named Database.
The first macro (AutofilterDatabase1) filters for two criteria in the Database sheet: 1. All dates 7 or more days prior to today's date (5th field called rDate) & 2. The smallest positive value for a person in field 10 (called rSmallest).
Once these filters have been applied a second macro (named WriteDetentionRegister) is supposed to write the filtered entries to a sheet called Detention Register. However, if no enties at all are found by the filter it writes all entries to the Detention Register. Is there any way of stopping the writing process if no entries at all are found after the filtering process?
I'd also prefer it if after the writing process (or not as the case may be) that all autofilters were returned to displaying 'All' data in the Database sheet for fields 5 and 10. Is this an easy tweak to make to the existing code?
I enclose the code of the 2 macros.
Sub AutoFilterDataBase1()
Application. ScreenUpdating = False
'Get today and convert to serial value, subtracting 7 days
d = CLng(Date) - 7
I am wanting to create a spreadsheet for my stationary orders with some macro's and I have no idea on how to set this up. All the product information will be in Sheet 1 and the Order Form will be in Sheet 2 of the document.
In "sheet 1" we will make a list of all items that get ordered on a regular basis. This can be up to 500 items but I have given you an example of 6 to play with.
We need the "QTY", "Unit Price" & "Total" in both "Sheet 1" and "Sheet 2" to sum up with a formula
Once the user has chosen the line item they will click on the "add" button next to the line item.
This will inturn take that particular line item and insert only the "Code", "Product", "Unit Price" & "Total" columns in "Sheet 2" and leaving out the "Page Number", "Item Number" & "Description" & "QTY" fields to Sheet 2 (Order Form) The user will manually change the "QTY" field on the "Sheet 2" (Order Form)
When the user selects another product and clicks "add" then this new line item will be added below the first line item on Sheet2 (Order form) and so on.
We will probably only be ordering 10 - 50 items each time so we wont need a huge list on the order form (Sheet 2)
Data consists of a series of ranges from columns A:N and rows varying in number between 3 and 30.
There are two blank lines between each range of data.
Each range is (with exception) numerically ordered down column H (e.g, 1, 2, 3, etc).
Problem: there are around 1100 occasions when a range contains a row of data which is to be disqualified from consideration. On these occasions the data always appears in the top row of the range and is identifiable in column H by the nine codes 111, 222, 333, 444, 555, 666, 777, 888, and 999).
I wish to find a macro which will :
1. where the top row of a range in column H is one of the codes 111 to 999, transfer that row of data to the bottom of the range.
2. delete the now empty top row from which the transfer was made from.
3. insert a new blank row at the bottom of the range below the row which the data was transferred to (in order to maintain the two blank rows above and below each range).
I am now on my third attempt to perform a fairly basic task of transferring data keyed to a separate log. I originally started with a user form transferring to a separate work book however this was not practical. I then had a values keyed into a worksheet being transferred to a separate workbook however network issues mean this data keeps being lost.
I am now trying to simply transfer data keyed in one worksheet to the next available line in a different worksheet in the same workbook.
Here is my code that I have chopped and mashed together from my previous versions.
The sheet the data is be keyed into is called Key and the sheet where the data is to be sent is called log. I would also like the values in the Key sheet to cleared once transferred:
Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Log") iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _ SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1 ws.Cells(iRow, 1).Value = Key.Range("E7") Key.Range("e7").Value="""" End Sub
I have been given the following code to transfer data from multiple workbooks within folders and subfolders to retreive the same line of data from each of the workbooks and place them in a master workbook.
the folders are set up as follows,
there is a main folder, (a yearly folder) within this are 12 monthly folders (named January to December) within these are four weekly folders (named week 1 -week 4) contained within these weekly folders are the workbooks that i wish to copy data from.
for example a1 - k1
the code i am using transfers the file names but comes up with #REF! instead of transfering the data
I am currently working on a workbook to have employees fill in data on what tasks they compelted for the day, and how long it took. There are 5 colums (for this purpose) Task, Description, Time, Required to complete, Completed. The tasks are predefined and listed out in each row. There is also a space for employees to select the date they are entering the data for.
I would like to have a macro that is linked to a submit button and when pressed populates this data into a database on another sheet. This database is split into two sheets (1 with time and one with tasks required/compelted). Each sheet has the list of tasks going down a cloum on the left, and dates along a row on the top. When the employee presses submit I would like this data to popuplate in the coresponding date and task fields and then reset the form on sheet 1 to all 0's.
I have data in 2 different workbooks, and I need to transfer all data in 'Jx_ex1' to sheet1 in the 'template' workbook, and all data in 'Gr_ex1' to sheet2 in 'template' workbook. All data should be transferred to the same cell numbers, from A1 to Y5000. I actually have loads of workbooks to transfer to the template but if I have an example with the two then im sure I can work out how to modify it. All files will be in the same folder.
I am looking for a Macro which can transfer data from sheet 1 to the first available empty row on sheet 2.
For example, I have data in the following cells on sheet 1: B2, B4, B6, B8, and B10. I want to transfer this data to the first available empty row into cells A1, B1, C1, D1 and E1 of sheet 2. The cell number is ofcourse depending on the first available empty row and could thus be 2, 3, 4, 5 etc.
I also want to delete the data from the original cells in sheet 1 after the data has been transferred.
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.
I use excel and would like to know how to copy a large volume of address data but at the same time filtering out irrelevant data placed under each other in a row, in this case, air compressors air conditioning web address etc ( see below for example). I need the first 5 lines only. The rows of unwanted data are irregular i.e some have 10 lines, others 5 , and others 2 or one line which makes using a formula difficult as there is no consistency. The data eventually need to be placed horizontally in columns to be compared to other address lists. To make matters worse, the text data has been merged and wrapped.
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
I'm looking to build a macro which will automatically transfer a line of text from one worksheet to another within the same workbook. Once the macro has been run, the text in the original sheet should disappear and re-appear in the other worksheet. It should appear in the same column, but different line from the original.
I have a spread with five tabs. Each tab is a person's job responsibilties for numerous properties. Each person works with a property called Orange Avenue. I want to create a tab for JUST Orange Avenue items but want it to automatically pull any and all info from each tab where that person's Ornage Avenue duties are.
I have an Excel 2003 worksheet that has a list (Data > List > Create List), which displays the AutoFilters for each column in the list. I am seeking a macro that will filter the results (Custom > does not contain "Closed").
I would like to assign the macro to a button as the casual user might not understand the AutoFilter use.
The worksheet in VBE is defined as "Sheet3 (Audit Findings)" My list has headers on row 7 (A7:K7) I would like the AutoFilter to return all results except those marked as "Closed" in column K.
I am fighting a quixotic battle against a problem, that I realise may well be unsolvable. I have a worksheet that consists of approximately 27,000 rows in a four-level structure, like so:
1 1.1 1.1.1 1.1.1.1
To make the sheet easier to navigate I have created an expanding/collapsing tree structure by using simple hide and unhide rows, and on the last level of headings (1.1.1) I have cells that change between "+" and "-" depending on whether the fourth-level subset is currently visible or hidden. Naturally I need to keep the cell as "+" when the set is collapsed, and "-" when expanded. I have accounted for all methods user can change the hidden settings of those rows, but one:
When users autofilter the list, the +/- signs obviously screw up, because filtering resets the user-set hidden-settings. Suddenly I have expanded subsets with "-" on headings that were previously "+". Now this is obviously a vanity problem, as the +/- sign is not integral to the working of this macro, but the problem is that with three different levels of headers the worksheets starts to look a little cluttered.
Finally, my question: Is there any way to trigger a procedure to reset these signs upon/after autofilter? I realize that this is not a built-in Excel event, but a workaround will do just fine. Any way to detect that an autofiltering has taken place without having to check the.
I'm trying to convert this code so it transfers the data without the input box being needed.
Dim response As Long Dim strLastRow As String Dim rngC As Range Dim strToFind As Variant, FirstAddress As String Dim wSht As Worksheet Dim rngtest As String Application.ScreenUpdating = False
Set wSht = Worksheets("Transfer Sheet") strToFind = Application.InputBox("Enter Your Initials") If strToFind = False Or strToFind = "" Then Exit Sub
With ActiveSheet.Range("H2:H5000") Set rngC = .Find(what:=strToFind, LookAt:=xlWhole) If Not rngC Is Nothing Then FirstAddress = rngC.Address
Do strLastRow = Worksheets("Transfer Sheet").Range("A" & Rows.Count).End(xlUp).Row + 1 rngC.EntireRow.Copy wSht.Cells(strLastRow, 1) Set rngC = .FindNext(rngC) Loop While Not rngC Is Nothing And rngC.Address <> FirstAddress
I have to workbooks and I want to populate one of them with data from the other. The receiving document has the fields Account and SubAccount which I need to match up with the account and subaccounts in the other workbook.
However, in the other workbook, the line looks like "1000 Wages 000001" (which is account, name, subaccount). I can't find out how to have my receiving document scanning the providing document and when it finds an account and subaccount (in the above string) that matches the account and subaccount in the receiving document, to bring over the data.
From the attached spreadsheet I need to transfer all the rows where the issue status in column T is either ongoing or open. Now I know how to transfer them over if row 1,2,3 etc was going into row 1,2,3 etc into the new spreadsheet but as not all rows from this sheet is going over I need to now how to transfer data so in the new spreadsheet it just follows down rather than have spaces in it. i.e. if on this sheet I need to transfer data from rows 1, 5, 10, 15 on the new one they go into row 1,2,3,etc
There’s one “master table”. Two columns in master table are titled “Name-1” and “Name-2”, and all columns in front of it carry “Properties” corresponding to these names.
In a “second” table, when we choose/type the Name-1 and Name-2, corresponding properties should automatically be picked up from the master table. Is that possible?
I have a sheet with 1250 data. All are in Column "A" I want to print them out and therefore would like the data also in Column "B" and "D" in order to save printing paper and make it easier to search. Since the data is alphabetical sorted, doing it manually is a big job.
I have a new spreadsheet that I made to give us the break down of each invoice we create. what we want is to see each job that is done (by code), the amount we charge per each, the cost of goods per each, and the profit margin. In this spreadsheet I have two tabs. in tab one it has the form I made that has a place to input the data that will change with each invoice as well as a section that is broken down into columns. In these columns I have it listed this way. CA=Job code, CB=Job Description, CC=how many, CD=Charge ea., CE=rate total, CF=COGS ea., CG= COGS total, CH=profit
I have the formula done for all of the math the get the totals. My idea was to make a second tab. In tab 2 I have everything listed in columns that will go into tab one. It is broken down like this. CA=Job Code list, CB=Job Description list, CC= charge ea. CD= COGS ea.
What I want to be able to do is when I type in the job code in the first cell under the column A on tab one, it will bring over all of the info from tab 2 and put it in the right spot for that code. So if I typed in say TT001 in that cell it would bring over the description matching that code and put it in the cell under B, along with the charge in column D, and the COGS under column F. And I want it to be that way for each code I type in and it will be different each time I fill this out. How do I explain this part? Ok so I a new invoice made its # 22. I take this spread sheet and do what I want and get all the totals so I print it out. I then want to be able to clear all the info and or just type in a new set of codes that will be on invoice # 23 and then #24 etc.
So what I am saying is the codes will be different each time I fill it out. that's why I have them listed on a different tab and will just put them in tab one long enough to get the total and print it out. Is that clear as mud? I will stop here and wait and see what questions I get back.
I have a program I built and need to transfer data from a form, from workbook "C" to another workbook "W". The workbooks are open by different users . 90% of what I locate on the Web pertains to worksheets and what don't, does not work. The folders are stored in my Public Documents.
How to transfer data from one workbook that's open to another in a macro form. I included two sample data workbooks I have. Sample will have the macro inside it and will already be open for the other portion of the macro that will be running. I already have code that will open up the Sample2 file. I'm trying to take specific data from Sample and paste it into a summary sheet in Sample2. In Sample i will be cycling through roughly 30 sheets to find this data but I only included one because I just need to know the basics on how to make this work and then how to modify it.
