how I would add in code to sort the worksheets from A-Z. Also, Ideally, I would like to hide the template sheet that the new records are copied from. Is it possible to add code that would unhide the resulting worksheet once it is copied and renamed? I am learning loads from this forum, so thank you once again. Here is the code in it's current state:
View 5 RepliesI have 20 sheets set up exactly the same with employee payroll and another sheet that lists all of the unique names and id's. I need to get a total sum of all the sheets per employee. Please note that some employees can appear multiple times on a sheet.
******** ******************** ************************************************************************>Microsoft Excel - Book2___Running: 12.0 : OS = Windows XP (F)ile (E)dit (V)iew (I)nsert (O)ptions (T)ools (D)ata (W)indow (H)elp (A)boutA1=ABCDEFG1last namefirst namePositionIDGenderDeptamount2JonesJohnX89891MF410$1,830.003JohnsonMikeX89892MD167$2,220.004AllenRayY89893MF410$675.005ThompsonDavidY89894MG43A$300.006JonesAlZ89895MHYJ$195.007PhillipsTomC89896MT567$150.008SmithBenV89897M67L$240.00Sheet1 [HtmlMaker 2.42] To see the formula in the cells just click on the cells hyperlink or click the Name boxPLEASE DO NOT QUOTE THIS TABLE IMAGE ON SAME PAGE! OTHEWISE, ERROR OF JavaScript OCCUR.
how do i create a sheetsarray to include all sheets between First and Last? I plan to loop through each sheet in this array to copy data to a summary page, as per [url]
View 9 Replies View RelatedA colleague of mine maintains a spreadsheet with a worksheet of data for each month labeled "Apr'07", "May'07", "Jun'07", etc. He then has a summary worksheet that gives summaries of the various data fields on the monthly sheets. Currently he has been using the kludgy method of listing each cell to be summed. (e.g. " SUM('Apr'07'!A2,'May'07'!A2,etc.) Since he is dealing with a summary of about 200 rows by 15 columns this is a big pain to maintain. My first thought was to set up his formulas as a range of sheets rather than naming each; E.g. SUM('Apr''07:Jun''07'!A1)
Then I thought that rather than having to update each formula when he adds a new month, he would be better off having two cells that control the start and end sheet and having then feeding them into the summary formulas using the INDIRECT function.
However, try as I might, I can't seem to get the INDIRECT formula to work. In the attached example spreadsheet I have set up B1 and B2 to hold the names of the start and end worksheets, respectively. So my attempt at an Indirect Sum formula is the following: SUM(INDIRECT(" ' "&B1&":"&B2&" ' !A1"))
(Note: spaces added between " and ' for clarity) When I look at the formula evaluator it evaluates to SUM(INDIRECT("'Apr''07:Jun''07'!A1") and then generates a #REF error. What am I doing wrong here? I'm open to all suggestions of fixes to this method or an alternate method that would achieve the objective of performing calculations on cells across a dynamic range of worksheets.
I have this VBA (from a recorded macro) how can I amend it so that these two formulas change depending on the number of values....right now the range is to 129 only because we only have 129 cells of info but some sheets will have more some will have less. I want excel to base it based on the column I which used to be H.
VB:
Sub SLCREPORTDATA()
Cells.Select
Range("F1").Activate
Cells.EntireColumn.AutoFit
Columns("H:H").Select
[Code]....
I've managed to piece together a VBA code that works perfectly for my needs. The problem is that the sheet it is on gets adjusted a lot, and I only need the code to run when certain cells are changed (rather than each time any cell is changed).
Here is the code I have now:
[Code] .....
Put simply, I need this code to run only when a cell in Range "TValueDeal" is changed. Is making this adjustment as simple as adding a couple lines of code, or is there a better way to write the entire thing?
I would like to include a message within this VBA code, not sure of the code to use.
ActiveSheet.SendMail recipients:="dan@aol.com", _
subject:="Your inputs are due", _
returnreceipt:=True
End If
[URL] ....
I want to sort the Inventory Checklist sheet based on Column D but it gives me nothing but references errors.
I have below code to open DOS from excel. it is working fine.
I wanted to excecute some DOS command automatically after opening DOS, command is entered in the excel Sheet1 E5:E1000
Sub openDos()
Call Shell("cmd.exe " & dosCmd, vbNormalFocus)
End Sub
I have a spread sheet with 2 columns of data. On the top of the sheet, I want to include a Search Button that when it is clicked, a box pops up and asks to Enter Search Term, when they click ok it operates a the find function in excel.Macro I should create and apply to the button
View 3 Replies View RelatedBasically, I'm trying to alter the code by inserting another condition where if S12 = R than it will exclude the value found in D12, other wise D12 is included. It was initally setup with a range of $C12:$H12 but i had to write it out long to exclude $D12
Here's my ammended ...
I have some existing code which I did not write, nor do I have the expertise to update. The macro code takes multi rows of data for one person and "flips" the output to be one record per person with columns of data.
The source data looks like this sorted by teacher, Term and Period (columns H and I are the new ones added; the code currently looks through column G only)A
Faculty Name
B
Periodc
C
[Code]......
I just want to add column H and I data to the period course listings by term. So instead of "Term: TM#", just have the display indicate Termcode: Tally/SectSize.... such as (example): "TM1: 20/30"
My Code is as follows:
Option Explicit
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
[Code].....
I am having trouble trying to develop a code to include into a spreadsheet for work. It will be a live spreadsheet accessed by a few people who will have control over there own columns in the spreadsheet (2 columns are designated for one project) Each Project director is to edit the info about their project.
So my goal is to put a code in cell C3 that shows the date that cells C4-32 and D4-32 were last updated.
I need the values that are copied from the template to copy over in text form from the "Data" Tab. Secondly, the master sheet has multiple lines for each vendor. For the area highlighted in red I'd like for it to copy all cells in column C for the vendor and search the vendor by name. Then, move to the next sheet.
View 10 Replies View RelatedI want to concatenate two Cells into a single cell BUT have the first field left justified and the second cell right adjusted.
A1 = "John Williams", A2= "Single"
A3 = "John Williams Single"
I need to sort my sheets by name, A-Z but as the worksheet names are things like Door 1, Door D67, Door 100 etc, I don't think I can use a simple code like the below, Because i'd end up with Door 1, Door 100, Door 101, Door 2, Door 200......
Code:
Sub Sort_Active_Book()
Application.ScreenUpdating = False
Dim i As Integer
Dim j As Integer
[Code] .......
I have this code, which sorts a list of data in cell C17 down to CXXX (the list will keep growing as I add more doors) It works by pasting a formula stored in F17, in Col D, next to my list of doors, and picks out the numbers so that I can sort.
Code:
Sub ListSorter()
Dim LastRow As Long
LastRow = Range("C" & Rows.Count).End(xlUp).row
Range("F17").Copy Range("D17")
Application.CutCopyMode = False
[Code] .......
Perhaps I could add some code to the bottom of this, that will sort my worksheet names as per the order of my list in col C?
I have the code below that is two separate activities and I want to change the second activity from a cell trigger (Set KeyCells = Range("K42:AD42")) to a button trigger. I need to first to remain unchanged.
I'd be ok if this was just one macro that I could assign to a button but because its two and I need to write the second's to clicking a button I'm over my head.
Its occured to me while writing this that because it'll be a range of buttons I'll probably need to make each one an individual code? Is this the case? If so I may have to just keep this as it is.
On Sheet1 I have a list of 32 people in column A (A1:A32) and on the same sheet in column B (B1:B32) is a 3 digit number representing a score. I have the 2 columns sorted together descending order based on column B scores.
On Sheet 2 in column A (A1:A32) I have the same 32 names in random order with associated information in columns B to K. I want to sort the names and associated information on Sheet 2 column A based on the order of the same names in Sheet 1 column A. Is there a formula to achieve this result?
I have sheet with data which needs to be sorted out.
I already started with some vba code but am stuck.
Please have a look at the attached file..
Here we go..
I have a work sheet with about 35,000 lines of data. Every day I have to sort the list by product category (I use auto filter to separate) and then copy the results into a new worksheet, there are about 300 product catagories. I'm new to macros but I'm wondering if there is a macro that can automate this process.
View 6 Replies View RelatedI have sets of data (A1....F50000 or more) that I need to sort out based on the cell value in column F. Based on the cell value I would like the info on the row (A to F) put into a different sheet. There would be 8 different sheets and each sheet would include 1 to 50 different sorts from column F.
The macro could start with one material sort each and I could fill in the rest of the sorts. The 8 different materials (one for each sheet to start) could be "34b2p""ptop27""pdw19""p58leg""ppdpts""mirror""Pdoor""bent""p4545".
I have a sheet named: tool
In this sheet I have a long list of data that i would like to have sorted out on different worksheets that needs to be created by the macro. The deciding factor for the sorting are found colum B. In this colum there are different text strings. I would like for the macro to look at this text string and copy the entire line over to the respective work sheet. the work sheet needs to be named according to the text string in colom b.
Furthermore in the sheet named tool the first 3 lines are headings and i would like all of these transfered to each of the new sheets.
I am wondering if a block of code can be used rather than having to enter line by line as the following code is below? Also if the select is necessary?
Sub Macro1()
'
' Macro1 Macro
' Keyboard Shortcut: Ctrl+Shift+S
'
Range("N135:V135").Select
Selection.Sort Key1:=Range("N135"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Range("N142:V142").Select
Selection.Sort Key1:=Range("N142"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
End Sub
I have a column of over 1000 cells with context in it. Each cell as a keyword in parathesis associated with the context. Therefore, different context are associated with the same keyword. However, the cells with the same keywords are spread out all over the 1000 cells.
Example:
cell1: anti-lock brake system (abs)
cell2: baromic pressure (Baro)
cell3: anti brake systematic (abs)
...
Basic solution:
I need to create a vba code that would look through the 1000 cells for a specific keyword and copy all the cells having that keyword in parathesis into another spreadsheet or column, so I can look through them easily. so if i look for (abs) it will give me:
cell1: anti-lock brake system (abs)
cell3: anti brake systematic (abs)
...
Ultimate solution:
The VBA code would be "smart" enough to copy all 1000 cells in keywords order. It would give me all possibilities:
cell1: anti-lock brake system (abs)
cell3: anti brake systematic (abs)
cell2: baromic pressure(Baro)
...
I need to do VBA coding. Got 12 Sheets for 12 month of Sales. Every Sheets are in same Header Format.
For Column R (Status), there's Filter Data "TRUE" and "FALSE". I have to move/copy "TRUE" item into Sheet Aging 2014.
I manage to transfer using only one Sheets using Advanced Filter VBA, failed with other Sheet.
I attached the file : Sales 2014.xlsx
Im trying to sort items in two list boxes on a userform. I found some customizable sorting code online here:
[URL]....
But I'm not having any success with it.
I copied the 'Sub SortListBox' code and added it to the bottom of the Code for the Userform.
I then added the following lines to the Userform Initialize procedure:
Run "SortListBox", lbUnitList, 0, 1, 1
Run "SortListBox", lbPOList, 0, 2, 1
This should Sort lbUnitList Alphabetically by Column 1, and sort lbPOList Numerically by Column 1.
However as soon as I add those lines to the Initialize procedure it prevents the userform from opening. No Error message is displayed, it just won't load.
I have attached my workbook. The Userform is called ActiveEquipment.
I need to create a table with the top 14 'ReNo' for each code listed in columns F1-R1. These need to be in chronological order. Also if the code is part of the latest date then that first ReNo. needs to be ignored (since it will not have completed its cycle).
getting to the formula I have but I can't get it to sort in these ways, so as it is its not working right.
Example3.xlsx
I have an excel database that contains a code to identify specific people.
NAME ADDRESS PHONE CODE
Jones 3 Quay St, PN 063586954 JU79N4
White 24 Dyk St, PN 063547786 9GVJ64
Smith 9 Random St, PN 063512698 4LN867
Butt 89 Yeah Pl, PN 063569986 D920HK
Handle 69 James Ct, PN 06 3549687 ZK26S84
If I wanted to filter the list so I only had codes that had Z, N, H in it. How do I do that??
I have an auto generated report that is exported into .csv, my dilemma is that it sorts both the account code and the date in the same column, like this:
9884A B Gerrish Ltd œ 577.270577.270
30/09/201231/10/20121865518655277.010277.01MAL/553260
30/09/201231/10/20121884218842264.260264.26MAL/553259
30/11/201231/12/2012195541955436036MEL/549200
so "9884" and "30/09/2012" are in the same column.
Some how i need to turn this information to say the below three invoices are for account 9884, into more of a usuable data like:
9884 A B Gerrish Ltd 30/09/2012 etc etc.
Obviously through out the document this repeats for each account, upto some 1000 accounts.
jas.xlsx
I would like to add 2 buttons to each page. One button to add a row at the bottom of the table while keeping all of the same formatting and another button to Delete a selected row from the table. So that if there is more assignments than allowed in the current table, a row could easily be added.
I would think that the code for the class sheets would all be the same.
The other obstacle I thought about is possible making a button on the Summary page that would add another sheet, call it Class and whatever number comes next and also add it to the summary table with the same formatting (including the hyperlink that's in the Classes column where it will take you to the Class sheet that you want to drill down to).
I have attached the file. If the summary sheet is took much work it's not a big deal, I would be fine with just being able to have 2 buttons on the class sheets that allowed them to add and remove and such.
I would also like to contribute. I know a decent amount about SQL and SSRS/SSIS Reporting services.
I also need it to be able to unprotect my worksheet and then protect it back, Since I will only want them to be able to type in the areas I specify. I also moved the summary at the bottom of each class sheet to the right side at the top so its easier for them to view.