Auto-Merge Dates In 3 Columns And Then Auto-sort Merged Columns
Jan 10, 2012
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 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.
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.
So I have several columns of data that have a location and then some numbers after it in additional columns. I need to be able to sort it so that all locations that are in both location columns are sorted first, and then any locations that are in one column but not the other column follows. Also the data associated with each column that follows the location needs to remain next to the location. Many times the columns will be of highly disportionate lengths too.
I've attached an HTML table so you can get an idea of what I am looking at, except what I'm dealing with is like.... hundreds of cells long.
And in this 6 row example, I'd actually only be interested in the 4 letters that were in both columns. If it makes it easier, I would be okay with discarding the last rows, but would rather just have them sorted at the end, so I could check if....for example there were two different spellings of the same thing, and they should actually be included.
I am trying to auto generate a calendar based on two drop down menus - Month and Year.
Once the month and year is selected I want to import all work orders onto the calendar based first on the "Labor Name" found in the list of work tab, then assign each work order for that labor name to the respective date on the calendar for the month.
I want to have 7 columns with headings for our weekly roster Stating with Mon 14/4/2014 in F1 Tue 15/4/2014 in H1 Wed 16/4/2014 in J1 Thu 17/4/2014 in L1 Fri 18/4/2014 in N1 Sat 19/4/2014 in Q1 & Sun 20/4/2014 in T1
The cells between each day/date column are blank for the sub heading Hrs to appear
I want the Day to remain permanent in each cell & to be able to alter the Monday date only and all cells will change to the correct day & dates across the spreadsheet automatically
How do I create a code that will concatenate the number in Column B, C and D into Column E for each row within each worksheet of the file, excluding the "Update" worksheet. If there is no number is each column of the row, then do not produce a record for that row in column E. Start executing function on row 2.
eg E2=b2&c2&d2=047, E3=b3&c3&d3=964, E4 cell is empty, because there is no record in b4, c4 and d4
In the code below, I found out how to make the column widths automatically adjust on a worksheet based on the text entered. This code works great but it also reveals the hidden columns on the worksheet. Can i prevent it from doing that?
Private Sub Worksheet_Change(ByVal Target As Range) With Me.Cells .Columns.AutoFit End With End Sub
Found here: Automatically Adjust Row Height & Column Width
For example, on column X, if I type 20, bob or bobafett it type 2.0 instead but on column I if I type bob, it will type 3.0
they would all be edited manually
or even better, no matter where I type it on excel, it would go in the right column, like bob X, then it would change to 2.0 and go directly in the X column
I got an excel, with a "validation list" in a certain cell.
Users can select value1, value2 or value3. based on this value, some columns will have to unhide (standard= hidden) (only for value2 this is the case).
I used the worksheet_change event to determin the value, but so far I'm only getting it to hide...
Code:
Private Sub Worksheet_Change(ByVal Target As Range) If C24 = "value2" Then Columns("H:O").Hidden = False Else Columns("H:O").Hidden = True End If End Sub
I've created an excel workbook to automatically create a report for my work. All you have to do is enter the data into the "DATA" worksheet. Easy. Only problem is that someone can easily ruin it if they try to run it when the "DATA" sheet is empty. I figure that if I can get two columns hide when it's empty and that would solve my problem. I've tried several VBA codes, but they don't work. Also, everything except the "DATA" sheet is protected to prevent accidently changes. This is the latest code I've tried:
VB: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "DATA!$P$5" And Target.Value = 0 Then ActiveSheet.Unprotect ("password")
I've been trying for some time now to figure out how to have one sheet automatically fill in another based on a larger data sheet. I'm trying to find a way to take a monthly calendar which contains a row for each employee and column for each day and use that to create smaller lists on another sheet. Basically if someone puts in for a day off, or has a medical appointment etc, that person has a coded single letter for that day for tracking and planning purposes. I want to have a second sheet that references those codes and makes individual lists (the following people are on vacation, these people have a medical appointment etc.)
A B C 4.5 9.50 4.657 4.5 11.60 4.789 4.5 12.50 4.654 4.5 13.50 3.930 4.5 15.20 3.826
I need to be able to auto-populate the cell in column G based on values in columns A & B. If I type 4.5 in E2, and 13.50 in F2, G2 should auto-populate with the value from column C
I am running a auto filter macro to I need to change it to only copy column A:B and past in column C:D in the sheet called "Diary". How to change my current macro to only select column A:B and paste it. It is currently pasting the entire row.
I am a truck driver and keep a record of my loading times when I am loading and unloading. At the end of a trip i transfer all the data to my computer, then "auto sum" the "HOURS" and the "MINUTES" columns. At the bottom of ech trip I end up with figures, lets say 32 (hours) in column "J" and 303 (minutes) in column "K".
Now 303 minutes is {5 hours and 3 minutes}. Now we all know that mathematically we can work out that {3} minutes is 0.05 of 1 hour and that would make the total time worked 32 (hours) + 5 (hours(from the minutes)) + the last 3 minutes and the total is 37 hours and 3 minutes.
What I am in need of is a formula that will take the hours in column "J" add the hours from column "K", leaving the minutes to be converted to 0.05, giving me a total in cell "M29" that can then be multiplied by the wage rate in cell "M30", giving me an amount that I should be paid in cell "M31"
Ive been trying to find a way of inserting a picture into a defined merged cell. Once I insert the pic I would like it to auto size/fit into the merged cells.
I have only managed to do this by either resizing the pic's first, or running a retro macro to resize the image. Just wondering if there was an easier way?
I am using a staff schedule spreadsheet and have each column displaying text of where a staff person is assigned.
Instead of displaying the word "lunch" separately across several columns, is it possible to merge several columns and have the word "lunch" automatically stretched evenly across the several merged columns?
I dont want it to be centered but to literally be stretched to fit evenly across all of the merged cells.
I have 2 drop downs that when changed, auto refresh all pivot tables. My problem is getting the columns to auto-adjust based on the refresh or change of the data in the pivot table. Listed below the code I have thus far for the auto-refresh on pivot tables. How to auto expand all columns simultaneously.
The pivot tables are based off of tables on a different sheet(TOS Tables). So the code listed below is in the table sheet, not the pivot table sheet (TOS Customer Level). So followup question will be, which sheet to put the auto-expand columns code?
VB: Private Sub Worksheet_Calculate() 'If data on this worksheet changes, refresh the pivot table Sheets("TOS Customer Level").PivotTables("PivotTable2").RefreshTable Sheets("TOS Customer Level").PivotTables("PivotTable5").RefreshTable End Sub
I have a sheet with a date and the number of months on it which will change. I need the sheet to list the dates in a column for each month automatically: e.g. Two cells contain date “jan07” and the period “10” months. The rows A1 to A10 should have jan07…jan16 listed automatically. If I change then change the number of month to 11 I would like the rows A1 to A11 to update automatically.
I found this code on Ozgrid to sort all columns of a worksheet that were continuous with no gaps or spaces that works well:
Sub CopyToA() Do While ActiveCell <> "" Range(ActiveCell, ActiveCell.End(xlDown)).Cut Destination:=Range("a65535").End(xlUp).Offset(1, 0) ActiveCell.Offset(0, 1).Select Loop End Sub
However, I've tried to manipulate the code myself to 1) find all columns that aren't empty then 2) sort each column individually (WITHOUT expanding the sort to other columns) and 3) combining all the numbers into one seperate column. There are many posts concerning sorting but not one that addressed this particular situation.
There 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.
I 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.
I am trying to automate a process where a series of numbers would get populated according the range values. Also I am trying to get the automation to pick up the next range when finished with first one and continue with the task.
Here's what I have as start info and where I want to get to.
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.
