In the worksheet "Batting and Pitching Register", I'd like to be able to sort the data in the two charts (APBA Batting Register and APBA Pitching Register) by simply clicking on the cells in the respective header rows.
I've set up ranges (Batting and Pitching), but have had no luck moving beyond that.
what is the code to sort a spreadsheet in VBA code by HEADER rows?
i have 2 rows i want to sort by: first by Column D row 1, then by column C row 1.
Cells.Select
Range("C1").Activate
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Key2:=Range("C2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("C2").Select
selects all cells, sorts, then de-selects.
I have two header rows on a sheet that I need to sort starting on Row 3, Column A.
The sheet is A-K and rows 1 and 2 are headers
Row 1 has merged cells of A-F which says "Information" and then G-K " Tracking Section"
Row 2 is broken up into individual sub-headers in columns, A-K each one having a bit more info for instance:
Under the "Information" merged header in row 1 there is
A2 Name
B2 Work Center
C2 C/O date
D2 Due CC
E2 Due MX
F2 Date Received
and G-K in row 2 has different sub-headings.
I have tried to use my normal code, which is great for one header, but it ends up sorting the sub-header as I call it...
I have an issue with an export file which is produced in CSV format and needs to be aligned. I have attached a sample of what I refer to.
My Source excel file looks like:
ABC A-101 B - 202
DEF B-203 C - 100
The destination should align with the relevant column headers and place a blank if it doesn't match. Other have queried a similar thing, however my header and data and description is actually in the same cell with a dash separating them.
The output I want is:
A B C D
ABC 101 202
DEF 203 100
There are multiple row of employees with varied column headings as its dependent on what system access the user has. The headings i.e. A,B,C for example is a fixed number of headers.
In my real data set the headers represents a 3 letter system prefix e.g. ZCR,ILP etc
Attached is an example page. My goal is to be able to click on one of the header cells, and have it sort that column from high to low, and if I click that same cell have it sort from low to high. I know how to do this by making a command button, but, I want to do it by clicking on the cell itself. I just dont know how to do the onclick to execute the code.
View 3 Replies View RelatedCame across a spreadsheet that my firm created, where you can click on the column header and it automatically sorts ascending order for the column without messing up the other columns. Then if you double click it again, it will sort in reverse order.
View 9 Replies View RelatedI have a spreadsheet which contains a list of chemicals in Column A, and a list of numbers in Column B. The chemicals are separated into groups. I am trying to create a macro which sorts the chemicals in their groups by column B, so that the lowest number is at the top. I have 8 groups, and the number of lines in each group may vary, so I need to make the code dynamic.
I have attempted it. The way I thought it could be done was to search for the first group header, then save the address. Do the same for the next group header, then offset that by -1 row and 1 column, then sort using these two addresses as the range. The first part of the code works, where I find the address for both group headers, but everything after that doesn't work.
Sub Sort()
Dim CNMT(8) As String
Dim j As Integer
Dim fromRow As String
Dim toRow As String
Dim rng1 As Range
Dim rng2 As Range
CNMT(1) = "TPH Fractions"
CNMT(2) = "BTEX & MTBE"
CNMT(3) = "PAHs"
CNMT(4) = "VOCs"
CNMT(5) = "SVOCs"
CNMT(6) = "Metals"
CNMT(7) = "Inorganics"
CNMT(8) = "Pesticides"
For j = 1 To 8..................
I would like to create a list covering multiple columns.
I would like to have 5 columns which will contain the same value/ (word).
If I select,that value from the list, I would like to have each row the word is
found be displayed regardless of which row it is found.
In row 1 I want to have the names of servers, so we would have A C D E
Under each of those I want to have 4 other columns, so A would have on row 2 Start, End, Data, Time, or something like that.
Then B would have under it Start, End, Data, Time
And so on for C D ...
I would then want to sort it by the top level row, so if I had to insert B at the end I could sort it so it would be
A B C D E with all of the Start End Data and Time for the server to be moved along with it's master header.
I tried setting this up but then I went to sort it told me it could only sort if the columns were the same size, so having a merged top level A with four things under it did not work.
I want to rearrange(sort asscending) columns based on numerical value in column header string through VBA macro. Please check attachment.
i.e. (Present Data)
# A B C D
1 col.1 col.4 col.3 col.2
(Output Data )
# A B C D
1 col.1 col.2 col.3 col.4
test.bmp‎
find macros to sort fixed ranges but not an entire column with existing header rows from 1 to 4.
Added to that is the need to keep the code compatible with Excel 2003 even though I have Excel 2010 at office (it's a file that needs to be "openable" in both versions so the vb code needs to be in XL 03.
Column currently starts at C5 but goes down to C47, at this point. But it's a growing list. Some of the rows are blank at the bottom, too.
Is there a way to disallow certain cells to be clicked on?
View 9 Replies View RelatedI have the problem to sort data in the single cell, i have search in this forum but no solution found for example my data like this:
CELL A1: R1, R7, R103, R50, R5
CELL A2: C8, C22, C2, C5
CELL A3: DB9, DB12, DB6, DB60, DB4
i want the macro to sort content in cell become:
CELL A1: R1, R5, R7, R50, R103
CELL A2: C2, C5, C8, C22
CELL A3: DB4, DB6, DB9, DB12, DB60
I have a list of links in 1 excel worksheet. They are spaced every other row if it makes a difference. I need to create a macro that clicks on every link automatically. Each link is a direct file that I need downloaded every few months. I have no Macro experience beyond hitting record to automate basic tasks.
View 13 Replies View RelatedI run this code in my workbook and it seems to work but i would like to do same kind of jumps by clicking on a different cells and cant seen to figure out how i can add more of these function.
View 2 Replies View Relatedi created this form and i want it to do the following tasks :
-after clicking export the in content of the txtbox to excel cells
-save the excel file
-and prompt another form
(and when entring new content , export it in a new line (i have 30 lines))
i also want to creat a button that opens the first form
i have made (found) a way to change the data in a cell by clicking on it, however i can only make it go from 1 to 0 or 0 to 1...heres the VB
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If (ActiveCell.Value = 1) Then
ActiveCell.Value = ""
Else:
If (ActiveCell.Value = "") Then
ActiveCell.Value = 1
End If
End If
End Sub
however, i would like the code to do a different task, i would like it to add one to the number everytime you click on it...i.e. it goes from 1 to 2 to 3 to 4 to 5 etc. everytime you click on it...
if it is possible, i would also like it to be restricted to a few cells, which i can determine afterwards and change
(Using Excel 2007)
What would be the quickest and most efficient way of doing the following:
Example
Sheet 1: clicking once, twice, three times in the following cells to change the fill to Red, Yellow, Green respectively (in Row 22, COLUMNS E H K N Q T W Z AD AG) and mirrorring this format/fill on:
Sheet 2: , mirror the selected fill on sheet1 in E22, H22 , K22 in in E3:N3 respectively example E22 (sheet1) is mirrored now in E3 (sheet 2); H22 (sheet 1) is mirrored in F3 (sheet2) etc etc.
I have 35 tabs formatted in the same way - each tab, as with Sheet 1 is linked to a different row on sheet 2 in the same range as is sheet 1 and would need to replicate the mirorring on Sheet 1 to each of the other 34 tabs.
I have two buttons in my excel ("Fund Set up" & "Broker Set up") sheet1. so what i need is when i click the button named as "Fund set up" a input box should appear as "Enter the volume" and the user has to input the volume..For ex, user has entered the volume as 2. After that a line of data should be populated automatically from col A2 to col E2 as below.
Similarly if i click the "Broker set up" button the same action should happen but the activity should be populated as "Broker set up".
S.No Date Activity No.of Req Type of Action
1 21/01/2014 Fund set up 2 Input
2 21/01/2014 Broker set up 4 Input
So whenever i click any of this two buttons a input box should appear to get the volume and once the volume is entered by the user an entry should be populated as above in a new line.
I havet he following code which sorts data. If there is no data to sort I keep on getting a run time error. Could I add something to my code to prevent the run-time error, as sometime there won't be any data to sort. The code runs when I switch to the worksheet in question.
Sub SortMeetings()
Dim iCTR As Integer
Dim yCTR As Integer
Dim zCTR As Integer
zCTR = 11
For iCTR = 12 To 23
For yCTR = 1 To 10
If Len(Range("D" & iCTR).Offset(0, yCTR)) 0 Then
Range("AA" & zCTR).Value = Format(Range("D" & iCTR).Offset(0, yCTR), "HH:MM") & " " & Range("D" & iCTR).Value
zCTR = zCTR + 1
End If
Next yCTR
Next iCTR
Range("AA11:AA" & zCTR).Select
Selection.Sort Key1:=Range("AA11"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
I have master data in sheet1 with 4 headings (EmpNo.; Name; Grade; Status) and i put a push button beside it. what i want to happen is that, if i push the button, all data with a value of "Inactive" in sheet1 will be COPIED to sheet2 with the heading but only the EmpNo and Name will be transfered to sheet2.
View 9 Replies View RelatedIn excel, I have created a table containing macro pull-down menus and text boxes.
The question I have is this:
In the properties table for my pull-down menu, I have the “ListFillRange” filled with the correct range of cells containing the data that I wanted stored in it.
The problem/solution I am having/wanting is to have not just one selection present, but many (to show up in the text box directly below it) since there will be some data that have many sub-data that need to be visible for the person who will be testing whatever…
All in all, I would like to know if there is a code that I can write in the Visual Basic window or the macro “view code” window that will allow the text box below to be filled with the information that is clicked on from its corresponding pull-down menu. Is this possible?
I have a problem on auto-sorting my data after clicking the "x" or "Close" button on DataForm. Im creating a command button that trigger a macro to open an autofill DataForm. I want a code that everytime i ADD or EDIT using the DataForm, it will automatically sort the Column A after clicking the "x" or "Close" button. Below is the code of my macro:
Code:
Sub OpenForm()
Sheets("DATA").Select
ActiveSheet.ShowDataForm
End Sub
Is there a way to link a header or a portion of a header to a specific cell?
View 14 Replies View RelatedI added an attachment with an example. You will see a matrix, with in the most left column an ID, then the headers of the matrix has different numbers that mean something.
What I want to do is, you fill in a number in the combobox, then press on a button and a report will be made on a new worksheet. With a list of the numbers and dates in the matrix that the ID has. Like shown in the example sheet in the workbook.
Everyday I get reports on Spreadsheet1 from different users, who all keep the same format & Headers and I am trying to compile these on Spreadsheet2. So that I can copy cell data from this Spreadsheet2 to a cells in another spreadsheet3, under same headers but having more or different number of columns and also the command/action runs till the end of Row with data on Spreadsheet1 or Spreadsheet2. Ultimately I am going to append records from Spreadsheet3 onto a table in Access Database. For some reasons I have to keep the reports on Excell spreadsheet.
View 2 Replies View RelatedIs there a way to enter data into a cell and it would auto fill the Header and Footer in all worksheets? Maybe an embeded marco in the worksheet "TOOLS"?
View 6 Replies View RelatedThe basic spreadsheet consists of a list of names down the left hand side with 19 columns across - one for each art activity (I have pasted a copy of it below - but it doesn't paste so good!). Each person has selected their three activities and this has been recorded by placing a 1, 2 or 3 in the relative columns. Each person has been told that they will get a place on two out of three of their chosen activities (in which case we will change one of their choices to a 0).
What I would now like to be able to do is to create a mail merge in Word which looks at each person and then goes along that row to find out which columns have a 1, 2, or 3 in it. The heading for that column would then be used as a merge field so that I end up with a word document which looks something like this:
{Woodwork Stars} and {Cooking Sweets}
NameClassGlass
Painting
Candle
Centre Piece
Large
Nativity Figures
Beaded
Decorations
Advent
Calendars
CrackerPaint
Bowl/Plate
Xmas
chimes
Woodwork
Stars
Cross
Stitch
Sewing
Decorations
Recycled
Wreaths
Pompom
Robins
Clay
Xmas Tiles
Decoupage
Bowl
Cooking
Cake
Cooking
Sweets
Salt
Dough
Wrapping
Paper/Cards
Smith, Fred213John, Elton213Turner, Tina123
I have a data set with the weeks of the year as my column headers and a value of 1 (from a pivot table) in a distinct row value (removed for privacy) showing whether it existed in a given week based on pre defined criteria. What i need to do is ID the first (from the left) non blank cell in each row and then return that cells column header. I then need to do the same for the last (from the left) non blank cell in each row and then return that cells column header. On the attached I've put values in column N and O to show an example of what I need to return using a formula.
View 7 Replies View RelatedI'm looking for a VBA Macro that will do the following:
1. Count number of cells in a given row that contain special character "*"
2. If there is an asterisk in a given row, return the column header(s) contained in row 1 of the spreadsheet that correspond to each instance of cell(s) that contains the "*".
Is there a way to do this? I've attached an example of what I'm talking about, (Column A shows the desired result.)
Formula Question.xlsx