Some code that will remove blank cells from across five columns (A:E) so that after running code all data in each column moves to the top of sheet?
View 9 RepliesIs there way i can have a macro attatched to a button that when clicked, will copy BX:BX on sheet1, remove all the blank cells and put it on D:D on sheet2. Next time it is clicked, it will put BX:BX on to the next available column after removing the blanks and so on, filling a column at a time on sheet2?
If the above is easy, it would be really good if it could paste into columns until it reaches column H and then go back to D again but paste below the data already there, then E, but below, etc. I think though that the last bit is asking a bit much and is just cosmetic and easier to print, so dont worry too much.
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.
i think this will be simple for most of you. i need a macro that will move blocks of cells from one column into the succeding columns. say i have one column of 1000 values and i need to break that up into columns of 50.
View 6 Replies View RelatedI have a sheet which I need to arrange and it looks like -
Column A
Column B
Column C
Column D
[Code]...
the values in Column B, C , D , E & F need to be in new columns based on what we have in Column A associated with "1"
Output should be -
Column A
Column B
Column C
[Code]....
so whatever is in Column A associated with "0" should remain in place whereas whatever is in Colimn A associated with "1" should get added to the new columns. 0 and 1 resembles the 1 Records which are used as a split to normalize the data.
I have a large spreadsheet converted from pdf whose data still appears in A4 reading format.
I need to move part columns of data from 6 columns to form 1 large column in column A.
For example, move range B8 to B76 beneath range A8 to A76 and range C8 to C76 beneath that etc, page by page working through all 270 pages !
Also need to delete unnecessary 'page headers' throughout as in rows 2-6
I would like to move the data in one column up by 1/2 a row without moving the other columns/rows in the spreadsheet
Here is an example I made quickly in Photoshop - the above image is what I currently have in Excel, and the lower image is what I would like to achieve, with the column shift that I would like circled in red
(the empty space under the column heading is just an artifact from the edit, it doesn't have to be there)
I have attached a sheet as an example, as i am trying to Divide a cell by the number of populated cells in that column e.g column (A) has a table of 16 but only has 13 populated cells in that column, the sum would be something like this =sum(A18/13. Sometimes the column will have less and at times more populated.
test sum skip blank cells.xlsx‎
I am sure this should be REALLY simple, but i just can't find the answer i'm looking for. I have a sheet which changes daily in quantity of information. I want some simple code which counts up the number of populated cells in column A and returns the answer to a cell in another worksheet - or just automatically use it to print that number of pages.
I think i should be able to do the printing side, but, currently have no idea how to count up the number of populated cells in the row. If someones feeling very generous though, giving me the code for printing that number of pages too would save me some work (the worksheet which needs printing is different to the worksheet which needs the number of cells adding up.)
I have a list where the lines of data I need are not uniform in relation to the customer identifier, ideally I want to get the Lookup (or equivalent) to ignore the blank and move down the column to the next populated cell as below.
Customer identifierAddressCustomer identifier
Address1Vlookup?12Vlookup?Address 13Vlookup?2
Address 24Vlookup?3Address35Vlookup?6Vlookup?47Vlookup?
Address48Vlookup?59Vlookup?10Vlookup?Address 56Address 67
Address 78Address 89Address 910Address 10
I have a excelsheet that looks like this:
Column A | Column B | Column C
Los Angeles | Fire Dept | 3
Los Angeles | Health Services | 12
New York | Fire Dept | 8
New York | Health Services | 22
New York | Internal Services | 100
New York | Public Works | 7
Chicago | Health Services | 15
Chicago | Public Works | 56
Chicago | Social Services | 4
And I am trying to make it look like this:
Fire Dept
Health Services
Internal Services
Public Works
Social Services
Los Angeles
3
12
New York
8
22
100
7
Chicago
15
56
4
I need to be able to count all the blanks in columns other than A but only until the last used cell in column A. I am using a formula right now that counts the blanks in column A until the last used cell but I don't know how to apply the range of column A to other columns like B and C. Here is an example of what I hope to accomplish:
Formula used in A1 that I need applied to other columns but with the range of column A
="Total Blanks: "&COUNTIF(INDEX(A2:A8,MATCH(TRUE,A2:A8<>"",0)):INDEX(A2:A8,MATCH(2,1/(A2:A8<>""))),"")
Here is an example of what B1 and C1, with the formula, would look like if it counted blanks but with the range of column A
Total Blanks: 3
Total Blanks: 6
Total Blanks: 2
[Code].....
I am trying to create a straight column list that can take the rows and columns of a table, and list only the nonblank items. The formula I am using only seems to work with one column, not multiple.
Formula:
[Code] .....
In cells A71:A140 I have the following formula: =IF(A4"";A4;"").
How can I select only the cells in range A71:A140 where the formula has returned a value (number or text) and not the blank cells? When I try ctrl + shift + down arrow, all cells in the range are selected...
In a worksheet, J2:J52 contains a list of unique strings; each cell populated by an embedded formula. Some of the cells contain a valid 'blank' "" given by the formula.
I'd like K2:K52 to contain the values J2:J52, with all the populated cells stacked at the top and the 'blank' cells at the bottom. 'Blank' cells do not have to be in any particular order.
I've been fiddling with the formula kindly provided by WindKnife on the second post in the thread below for the past couple of hours, but to no avail:
http://www.excelforum.com/excel-work...om-a-list.html
Columns A:H in the same worksheet are populated and unavailable for use.
I am trying to move information that is pulled from a database to look cleaner and easier to read. All of the information exports out into column A only. The attachment is a brief example of what it looks like, and what I’m trying to get it to look like.
I want to move the data in col A to 5 columns C through G in groups of 16 rows. Once the last column is filled with a group of 16, it needs to fill below the first group of 16 in column B onward to column F. It should repeat this process until there is no more data in A. The attachment shows it much better than i can explain it.
I have some basic experience with formulas and macros, but I haven’t had any luck trying to manipulate any of them to give me the information the way I have shown. I would prefer to not have to manually type or cut and past the information in if possible.
How can you move data from multiple columns into a single column? I have attached a short example of the data I receive. (In reality, the data could be hundreds of columns and/or hundreds of rows, but this is representative of what I might receive). It does not need to be sorted and including the header row in its own column is optional. I do not know VBA all that well but can muddle through it if someone can give me an example of what the code should look like.
View 5 Replies View RelatedI need to move a portion of info over 4 columns. I need to do this after a certain criteria is met.
A B C D E
1 Mem# Mem Name Sta Area
2 123C Joe Smith G bev
3 4 Wine 4.95 6
4 5 wine 5.95 6
5 2 food 6.95 5
6 124G Fred Choi C Bev
7 4 Wine 4.95 6
8 5 wine 5.95 6
9 2 food 6.95 5
A3, B3,c3,d3 need to shift over 4 clmns then when nxt member #(a6) is met rows below need to shift over 4 clmns until nxt mem #, so on and so forth. Please Help. New to the macro scene.
I have 2 large rows of data next to each other imported from a different programme. Some of the cells in these 2 rows consist of values, some consist of words. I only want to cut the cells with values in these rows and paste them in a new row, called TXid. I have written VB code that cuts all the data in the rows and pastes them onto the new row. Now I would like to cut only the values in the row. How do I select only the values in the cell?
Cells.Select
Cells.EntireColumn.AutoFit
Range("I1").Select
ActiveCell.FormulaR1C1 = "TXid"
Range("G3").Select
Do
If ActiveCell = IsNumber = True Then
Selection.Cut Selection.Offset(0, 2)
End If
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell = ""
Range("H3").Select
Do
If ActiveCell = Isnumber = True Then
Selection.Cut Selection.Offset(0, 1)
Loop Until ActiveCell = ""
The ActiveCell = Isnumber = true is not working the way I want it to.
I have a table with one column of data. The data in this column repeats with 4 relevant pieces of information that I want to put in 4 different columns (fields) in a different spread sheet (or the same would work better and I would just delete the first column when done) keeping the same order the data is now in.
The data currently repeats in a regular pattern (i.e. 123412341234 with no other data in between). I would like to do this with a macro. Could someone help write a macro that will do this
I saw this thread from June Cut & Paste Macro: Move Address From Column To Row and I think this what I would like to have my macro do. I have one column which is copied and pasted as text in excel and there is several blank rows.
I attached the spreadsheet example - it has 40 lenders, with the top row being the lender name (A1), followed by address(A2), city-state (A3), two blank rows(A4-A5), lender type (A6), approved date (A7), one blank row (A8), lender specialty (A9), telephone (A10) , e-mail address(A11) and two blanks rows (A12-A13) and A14 starts over again. For this example there should be 8 columns and 40 rows (lender name, address, etc...). As I mentioned I think the previous thread's macro would work with some minor tweaks. I couldn't figure out the best way to handle the blank rows and or remove the blanks and what to add or take out of the macro code.
I saw a post that needed a solution for moving blocks of cells in order to get fewer rows but more columns. The post is gone but I'd like to think my work wasn't in vain as the algorithm was more difficult than I thought. The problem was wanting make a 5000 X 4 grid into a 1700 X 12 grid, 55 rows and 4 columns at a time. This is sometimes done for visiblity or printing purposes to get more data going across instead of down. An example would be wanting to have more data accross on a print page and the page holds 55 lines of data.
For example, A56:D110 would be moved to E1:H55, A111:D165 to I1:L55, A166:D220 to A56:D110 etc. The code is somewhat generic so different blocks of rows and columns can be specified. To see this code work, enter the number 1 in columns A-D, then fill series -> step by one for a thousand or so rows. Then run the code.
Sub FewerRowsMoreColumns()
'Rearranges blocks of cells so the end result is more columns and fewer rows
Dim RowStop As Long
Dim ColStop As Integer
Dim RowStep As Long
Dim ColStep As Integer
Dim RowOffset As Long
Dim rw As Long
Dim col As Integer
ColStop = 12 'Enter the last column number you want the cells moved to
RowStep = 55 'Enter the number of rows you want to move at one time
ColStep = 4 'Enter the number of data columns you are starting with.....................
Data is in a horizantal list, say row 2:
A2: SAM
B2:
C2: MARY
D2: JOE
E2:
F2: DAViD
i.e. like this:
SAM-blank-MARY-JOE-blank-DAVID
I am looking for formulas (not VBA) to compact this list by removing the blanks so the new will be placed in K2, L2, M2 etc. as follows:
SAM-MARY-JOE-DAVID
This is a good article but only works on vertical lists:
[url]
I need to generate a list of items from a column of data which frequently changes. In the attached example, I need to list all entries other than those that are blank (NB - the data generates the numbers as text and the blanks as "").
View 8 Replies View RelatedThis is a piece of a spreadsheet meant to track patient Range of Motion performance over a max of 4 weeks. How do I calculate % Improvement [write the formula for column J] to account for the fact that sometimes a patient is discharged after being seen 2 weeks OR 3 weeks or 4 weeks. I don't want to change the formula every time.
The SUMMARY % Improvement in J7 - will be changed to the average of each individual patient % Improvement from column J.
Looks like I need a dynamic range from what I can see from Googling. Do I need to use Offset ?
I am using excel 2007. I have data which, instead of being posted on multiple columns, is all within 1 column. The data most simply has the characteristics of:
AAA
AAA - description
BBB
BBB - description
CCC
CCC - description
and so on..
I would like to move the descriptions from column A to column B:
AAA AAA - description
BBB BBB - description
CCC CCC - description
and so on...
What would be the best way to accomplish this?
I'm currently using the following code to concatenate several cells into one cell, but it also displays the cells that contain blanks.
View 5 Replies View RelatedI need a macro that will take the values that are in the far right cells and move them to an area on the left. the columns they will be pulling from are the IU & IV column starting with row 2 down to row 460. from there I need the values to be pasted into the D & E Columns starting at row 6. The two columns IU & IV are a date and a task for that date. When they are pasted into the columns D&E they will need to be sorted by dates (or just all of the blanks removed), with the soonest occurrence at the top. The reason for pasting values is because I have formulas pulling the tasks and dates off of another sheet. The last thing is that the macro needs to be triggered by the information in cell c2, when that cell is changed the formulas go to work and everything in cells IU & IV update. That is when I would like the macro to kick in and work the miracle.
I have been trying to build a colony of formulas that could do it, but I have given up, then I tried to make an array index it for me, but that wasn't working for me either.
I need to write a VBA code to remove the value of the cells in column B if the value in column A is empty. In my excel sheet, the user will paste hyperlinks in column B. If any link does not meet certain conditions, the cell in the same row in column A will be empty.
I want to have a change event so that after pasting links, it automatically deletes the links from the cells in column B if the cell in column A is empty
I want to total column A & total column C but only if there is an amount in both cells on the same row
Can I do this with an array?
Do the columns have to be adjacent? I could make them if necessary.
Data
A C
11 12
21 0
0 17
15 15
11 9
in this example we exclude rows 2 & 3 from the total because one cell contains zero or is blank.
Total Column A = 37 (11+15+11)
Total Column C = 36 (12+15+9)