I have a worksheet with 10 columns, and an ever number of growing rows.
What I would like to do is to Sort Column 'B', along with all the
other respective data in the other columns, each time the spreadsheet
opens. I would prefer to use VBA or some other auto-launching event.
I have dates values in 3 columns.
A1 - Header - "Holidays in XXXX'
B1 - Header - "Holidays in YYYY'
C1 - Header - "Leaves by YOU"
A2:B11 have static dates consisting of 10 dates in each column.
C2:C11 - the user may enter any date at any point of time.
I would like to auto-merge the dates in all the 3 columns (A2:C11) in a single column say D2:D31 and then the system should auto-sort the column based on dates in any one order. So as soon as the user enters a value in say cell C2, all the 10+10+1 dates should get sorted.
Also the constraint here is a user may not apply all 10 leaves at in a year. So many of the cells may have blank values.
I am trying to create a VBA macro that autosorts a selection of columns by column A. I currently have the below already written which gives the desired effect. I was just wondering if there was a way i could have this script constantly running on the sheet so it is always sorted correctly without me having to click Run Macro everytime.
Sub Macro1()
Columns("A:F").Select
Selection.Sort Key1:= Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
I am looking for some help with a spreadsheet I am working on, the purpose of this sheet is to record case numbers that I am working on.
This spreadsheet will have new information added to it regularly and the cases may not be in a sequential order.
What I have found is a code that will sort a column of case numbers into an ascending order upon opening the file. What I would like to be able to do is apply the same rule to all columns on that sheet.
I have included the current spreadsheet to let you see how far I got.
I have a menu workbook with macro buttons that call different workbooks. Call the menu workbook (switchgear.xlsm). Switchgear contains 2 buttons. Button 1 closes switchgear and opens Book1. Button 2 closes switchgear and opens book 2.
If book1 is open and nothing has changed for 3 minutes I would like it to close and open switchgear.xlsm. I do not want it to just close in 3 minutes... I want it to close after 3 minutes of inactivity.
I have search all over and tried and tried to achieve this without success...
I have been able to get the timer to work but it gets caught in a loop. If I open book1 and close it in less than a min then 3 minutes later out of nowhere the code tries to run???
Secondly when this happens I see several book1 vba projects loaded in the editor window???
I have an excel file stored on a network drive for the purpose of information sharing. (File protected with a password)
But some the guys leave the file open for quiet long time and hence I cannot open the file for updating the data.
-I need to have a macro that runs every 5 minutes and displays an alert message saying "Please close the File" as long as the file is kept open.
-A second macro with a modified version of the above to close the file automatically after 5 minutes from file opening time after showing an alert message "You cannot leave the File Open, File is Closed Automatically!"
Need vba code to automatically open sheet one when a workbook is opened? At the moment it opens on the page on which the workbook was last saved.
I have created a spreadsheet some time ago and have been asked to improve on it but I'm rusty with VBA.
I have an automated ordering system that saves each sent order as the date e.g "05-04-2013.xls" but the management team want a graph with the data for the last 4 weeks compared. I have created a seperate workbook called "consumables report.xls" which has a column with the products listed followed by columns "Quantity" and "cost" which is repeated for the 4 weeks of the month.
I want to add a button to prompt the user to choose the saved order e.g "05-04-2013.xls" (all orders saved in same directory) to copy and paste the quantity and cost columns (c8,D69) into "consumables report.xls". I got this to work earlier but it would only paste the formulas and not the values. So I need
A prompt to open workbook
Copy range (c8,d69)
Close work sheet
Paste special .value (c8,D69)
I dont care if it has to open the workbook to copy the data as this will only be used once a month so it dosnt matter how slow the code is.
week 1 week 2 week 3 week 4
Product
quantity
cost
quantity
cost
cost
quantity
cost
1
2
3
4
5
6
7
8
I have Monthly sales sheets that import my cash register data into them. I wanted to set them up to do everything without being there. So I have my task manager open excel at 9:30pm everyday and it runs the macro to import the data into the correct day of the month. Here is the workbook
open macro-
Private Sub Workbook_Open()
Dim dTime As Date
dTime = Time
If dTime >= TimeValue("9:30 PM") And _
dTime < TimeValue("9:40 PM") Then
ImportData
End If
End Sub
This is in my July spreadsheet only. So is there a way to make it know which month spreadsheet to open on the 1st of the month? So come August 1st it will automatically open the August workbook and input the data for the first day? By using the date?
Using DataEntry sheet for data.
Trying to rearrange the data to DataFormatedProperly sheet.
So far all I can accomplish is DataFormatedWrong sheet.
Edit: Not sure what happened but file was NOT understandable before. It should be correct now.
I have a presentation that I open from a short-cut. After the "Welcome Page" is opened, I want to open a second workbook in a new instance of Excel after 4 seconds.
I think that I can open the new instance of excel, but I don't know how to activate the macro after 4 seconds.
I'm sure there is a function someplace for this that can be used in a macro.
Then, after the second Workbook is opened, I want the Welcome Page "Workbook" closed, leaving the second Worbook open.
I have the following code:
[Code] ....
When I run the macro, some columns are already hidden. The macro doesn't seem to autosize cells correctly. For instance, one cell in a row appears to have some contents hidden (or below the reading area of the cell). In other instances, the rows are auto-size to huge heights and widths.
My Splash screen opens a few seconds after the workbook has loaded. Is there a way to make the workbook open minimzed until the the splash screen closes then open properly? What I trying to say is that only the splash screen is visible until it closes.
View 5 Replies View RelatedThere are only 3 columns, A, B, C and only 10 rows but I would like it to sort automaticaly. I enter data on other sheets and it is loaded automaticaly back to sheet 1 after some calculations are made. I would like the data on sheet 1 to sort automaticaly on column C keeping the rows of data intact.
View 14 Replies View RelatedI am trying to figure out how to auto sort information on a spreadsheet so that when update notes are added by date at the bottom of the list, they are automatically sorted (moved) to the top of the list so the latest update is shown first. I am pretty clueless when it comes to macros although I have given it some attempts after reading other posts without success. I am including a copy of the spreadsheet. The info that I need sorted starts at B43:E43 and goes to B104:E104. That same sort info would then be used for the similar info to the right of this one. For example everything on the line B43:E43 would move together.
View 11 Replies View RelatedI would like to write a Sub that will see if a workbook is open and if it is not then open it. I know how to have a macro automatically open a workbook, but I run into problems when the macro runs and tries to open an already opened workbook.
View 5 Replies View RelatedI am trying to sort a long range of text that is placed horizontally in a spreadsheet. I can do it vertically with the sort function in Excel but it does not seem to work for text that is placed horizontally. Example is as below:
Inventory Accounts Human Resources
this is a relatively straightforward query, would be obliged for any tips on same. I have the following piece of -
View 2 Replies View RelatedCreate a full copy of an open workbook (eg. activeworkbook MyFile.xls) using VBA, with the new copy (eg Book1.xls) open as well ,without having to save a copy first then open it ?
View 9 Replies View RelatedI did a macro on my mac to transfer a sheet from one workbook to another worbook. It works very well when the destination workbook is open. Therefore I wanted to add some piece of code to check if the destination workbook is open. If not then I wanted the macro to open it before tranfering the sheet. Here is the code I´m using for tranfering the sheet
Sub Transfer_Sluttet()
If ActiveSheet.Index <> Sheets.Count Then
Application.DisplayAlerts = False
Set ws = ActiveSheet
Sheets(ws.Index + 1).Delete
ws.Move Before:=Workbooks("Sluttet.xls").Sheets("sheet2")
'Moves active sheet to beginning of named workbook.
'Replace Test.xls with the full name of the target workbook you want.
Application.DisplayAlerts = True
End If
End Sub
This is the type of macro I useually use on my pc to check if a workbook is open and if not then open it
If IsWorkbookOpened("Filename.xls", "C:Documents and ..................
For some reason I have a worksheet that won't sort stuff by Autofilter any more. I built it as a customer database but for some reason today I just can't get the names to ascend or descend. there is something simple I can check for, I can post an empety sheet if needed but right now I can't really post a list of all my customers info.
View 5 Replies View RelatedIs it possible for a column of "sums" to auto sort from largest to smallest? I have a dashboard with 20 charts and I want them to show in the order of largest to smallest but its rolling data so it changes daily.
View 6 Replies View RelatedI'm trying to learn how to do auto sort. I Know how to do the custom manual sort but it is taking to long to do my spreadsheet every night. I love to play the greyhounds but to manually sort 18 columns a race with 15 races each night takes a while there has to be a easier way.
here a sample of what I'm trying to do. The columns are in two C-D E-F G-H I-J and so on. The rows here are 7-14 as you see I have to sort some high and some low. Is this possible to do a auto sort for each set of columns
C---- D----------E------F--------G------H--------I------J
BEST-------------AVG-------------EARLY-----------LATE
SPEED-----------SPEED------------SPEED----------SPEED
BOX--LOW-------BOX--LOW------BOX----HIGH------BOX--HIGH
1----31.3-------1----31.47----- 1-----87.55------1-------0
2----31.2-------2-----31.69------2---- 51.53------2-----(-1
3----31.85------3-----31.95------3-------0--------3-------0
[code].....
Need to add an auto sort code to the end of this worksheet module 2, so that after all the dates are figured, it will sort by this date, no matter how many dates there are.
View 5 Replies View RelatedAs you can see from the attached spreadsheet. I have a page called Pattern Etch where we enter the data for all the processing done in a single machine.
Each device type is slightly different, and therefore has a different calculation fasctor for its etch time. This all weorks fine. What I had previously was another spreadsheet with the pages b and g in it. This is where the factors are calculated and updated from.
I'd like to make this update automatic, and suspect the easiest way is to combine the two spreadsheets, as in the attached version. Can the sorting of the data from the patternetch page to the apprpriate pages, b and g be done automatically? If so can it be done for many pages as I have cut down the spreadsheet, I actually have 50 variants, each will need its own page (as for b and g).
is it possible to auto sort data using VB script?
as i know i can manually do it but i would like to run a script to sort data on sheet 2
I have created a spreadsheet using columns A to G with row one as the following headings Surname, Middle Name, First Name, Alias, Offences, Temp# and CRO#.
The thing is I tried writing a VBA code to let the Surname(column A) automatically sort in ascending order but it doesn't work.
where sorting begins in Column A with the range A2:A5000 and at the same time row one being frozen.
I have the below small code which auto sorts information in column A & B but I am having trouble trying to get it to sort from row 3 and not sort the first 2 rows. The first row is the column header the second row I want left blank and then sort after that.
Plus at the moment after I enter something into column A it auto sorts itself but what I would really like to do is have it commence the auto sort after I have entered information in column B and pressed "enter". Because at the moment I enter info in column A then it auto sorts itself then I must then find it and then enter the info into column B.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rg As Range
Set rg = Columns("A") 'Column containing names to sort
If Intersect(Target, rg) Is Nothing Then Exit Sub
Range("A:B").Sort key1:=rg.Cells(1, 1), order1:=xlAscending, header:=xlGuess
End Sub
I have a worksheet in Excel which contains scores for a quiz I am organizing. The rows contain the team names, the columns the scores per round per team.
I would like to have the worksheet automatically sort the columns in descending order (so that the winner will come out on top after the quiz has finished), everytime I change something (everytime a score is updated). I can't find anything in Excel which would allow me to do that, so I'm guessing it's only possible in VBA? Unfortunately, I don't know anything about VBA, so I'm stuck.
These are the ranges I would like to have sorted, in order of priority:
Row 1 is the row with the column titles (Round 1, Round 2,...).
C2: C26
N2:N26
M2:M26
L2:L26
K2:K26
J2:J26
I2:I26
H2:H26
G2:G26
F2:F26
E2:E26
D2:D26
I know that I could just click sort, decending, "points" etc but I figure there must be a way of it auto updating.....
Please see the attached file - I have attempted doing it with Ranking Formula but forgot that it would just give me error messages when two have the same points so I got rid of that.
Have tried doing it with other formula found on this website and others, however I appear to be stuck. I might be doing it wrong but as I'm not manually putting in the "points", they are being worked out with =( SUMPRODUCT((H4:H16={"W","D","L"})*({3,1,0}))+58) for example, it does not move their position.
What I would like it to do:
1. People select from drop down list whether they think the team will W, D, L
2. The Table to the right should automatically change the points dependant on the result
3. The Teams position should change automatically in line with their new points total.
