I have some trouble to find a solution to sort blocks of data, the blocks have multiple headers and i would like to sort by the user column C.
I have attached a sample to easier understand my ramblings.
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 was just recently forced to create my first UDF and after how well it worked I now am very interested in learning more. I am trying to create a function to sort a range by the values in a specific column and return the range. I know this should be really simple but for some reason my code dies whenever it gets to my inner-most loop. I need to use this in a larger function but for now this is my only question. I did find that Excel 2007 has built in Functions for this but my company still uses 2003.
My
Public Function SortRange(rngToSort As Range, valCol As Integer)
Dim Swapper As Variant
Dim i As Integer, _
j As Integer, _
k As Integer
For i = 1 To rngToSort.Rows.Count
For j = 1 To rngToSort.Rows.Count - i
If rngToSort(j + 1, valCol) < rngToSort(j, valCol) Then
For k = 1 To rngToSort.Columns.Count
Swapper = rngToSort(j, k)
rngToSort(j, k) = rngToSort(j + 1, k)
rngToSort(j + 1, k) = Swapper
Next k
End If
Next j
Next i
SortRange = rngToSort
End Function
is it possible to leave a column out of this sort code as in A the very first column which just numbers the rows?
Here is my sort ....
I'm creating an excel sheet that is linked to several others. Basically my salesmen will enter their new prospects into their own sales sheets and that will transfer via a link to my main one. The problem I'm having is mainly with my sort.
When the information is transferred, I need the sheet to auto sort the Company names alphabetically and move any blank cells to the bottom.
I'm using links to pull our sales prospects from our salesmen's individual sheets into one master sheet for reference. Once the prospect information arrives in the sheet, I need it to sort alphabetically by customer name so that we can see which customers have been visited and don't visit the same customer twice.
So far in VB, I've been working on this
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A5:L" & Cells(Rows.Count, "L").End(x1Down).Row).Sort Key1:=Range("B6"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
But it's not sorting the way that I need to. All I really need is for the sheet to sort automatically by Company Name and for all of the 0's to go to the bottom. They are 'blank' data that will eventually be imported from the salesmen's individual sheets as they encounter new customers.
I have a question regarding automating excel sorting in Excel 2007. Here's what I have, I have a sheet that I need to sort on a weekly basis as the data is always being updated. Here is what i am basically doing with sheet and I am using a MACRO RECORDER to automate it.
1) I select column2 ~ column 7 (B:G)
2) I sort with the following order.
- column 3 (column C) ascending order, then
- column 4 (column d) ascending order, then
- column 6 (column f) ascending order, then
- column 2 (column b) DESCENDING order.
everything from this point on, it's repeatitive. I select..............
I need a listbox or combobox in an excel form whos list is created from 2 ranges. for example first name is range a2:a500 second name is rangne b2:b500. the list box should list both coloums in a single list and return the row number. better still if it does not list blank ranges. i have never used a list or combo box before so please explain in terms a simplton can undrstand
View 7 Replies View RelatedIn A1 of Sheet1!, I need a formula that lists and sorts all the 'unique' values from range
ECWP!$O$6:$Q$1505
I have a column (B) of randomly generated numbers 1-14, and am using this formula range to sort in descending order and return the relevant value from column (c).
=VLOOKUP(LARGE(B3:B20,1),B3:C20,2,) to =VLOOKUP(LARGE(B3:B20,14),B3:C20,2,)
Works great, except when a number is duplicated, (E.G. 14,13,13,12,11,10,10,9,8 etc). It then returns the first value from(C) repeated, and not the value from the second and subsequent duplicated reference numbers.
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'm trying to come up with a single formula to create a single column list from a table with blanks.
a
b
c
d
e
f
g
To
a
b
c
d
e
f
g
I know I've done this before but having trouble visualizing today.
I have a spreadsheet with two columns - one with names, the other with values. In some cases, the values column alongside a name is blank. Is there a formula-driven method (not a pivot table) that could produce a separate list of only the names that have a value in the value column? The formula needs to be dynamic, not produced via a filter.
View 7 Replies View RelatedI 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 would like to ask if it is possible to sort a range of row? What I mean is, if I sort like Row 1, the entire block of row 1 will move as well? Like if i have column A to F, then row 1 of column A to F will move together at the same time.
View 3 Replies View RelatedHow would you turn
A | B | C | D | E | F | G
1 2 3
into
A | B | C |
1 2 3
A | B | C | D | E | F | G
1 2 3
A | B | C |
1 2 3
Would like to Condense Column Q to Col S no Blanks no Zero's
Tried formulas on net but won't work for me ? ?
I need to perform the following calculation:
=FTEST($A$2:$A$30,$B$2:$B$30)
The problem is that this statistical test needs to have pairs and sometimes the ranges won't all be filled or paired. For example, column A may have 15 rows while column B may have 20. So in this case I would need to only add A2 through A15 and B2 through B15.
Is there any any that can be done?
Using the following bit of code that will Select the whole range of A2:C2 all the way down to the last row:
ws2.Range("A2:C" & ws2.Range("A2:C2").End(xlDown).Row).Select
How do I get around it if there happens to be a Blank cell(s) within the range.
I still need to work with the range even though there may be blank cells.
I have use for this function on varying ranges. I pasted my function as well as my call to it. PhasesActive is just a named range of 5 cells. I get an error... by ref argument type error. Something with the argument, do I have to name the worksheet the range is on?
Function RangeValueCount(Rng As range)
'The function to check if a range has more than one value marked for 'selection, ex: The phases choices
For Each cell In Rng
If Not IsEmpty(cell) Then
RangeValueCount = RangeValueCount + 1
End If
Next cell
End Function
Call RangeValueCount(PhasesActive)
If RangeValueCount > 1 Then
msg = "There appears to be multiple phases selected. Please select only" & vbNewLine
msg = msg & "one phase at a time"
MsgBox msg
End If
I'm trying to output a couple columns (and 300 rows) to a csv file. This code works wonderfully, save for the fact that it doesn't igore any cells in the range that are empty.
how I can get it to ignore empty cells?
Public Sub textFileDelim()
Const DELIMITER = ","
Const MYFILE = "E:EricTesting Folder2_Thurs.csv"
Dim Last_Column As Integer
Dim Last_Row As Long
Dim Row_Loop As Long
Dim Column_Loop As Integer
Dim FileNum As Integer
FileNum = FreeFile
I am trying to find a way to code to replace any cell that is not blank with the text "LOA", then after I replace all blanks with "Active"
The Replace blanks is easy:
Columns("K").Replace What:="", Replacement:="Active", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
but before this I dont really know how to quickly replace all non blank rows. Only way I know is to loop thru all cells in the column checking for not equal to "" then replacing, but the code above for replacing blanks is elegant, and only replaces in the used data section.
Trying to do the following. Look at a range of cells in a row, say A1- H1. Sum the last three cells that have a number in them versus being blank. So, let's say the last numbers in row 1 are in cells B1, F1 and H1, but in row 2 they may be in cells E2, F2 and G2.
View 3 Replies View RelatedI have data that gets seperated into different cells and what i need is for all the data to line up from left to right with no empty cells in between.. so basically shift delete on each cell and shift the data left.
So i thought i know, ill simply f5, select the blanks, delete and shift left... however that option doesnt come up.. it simple says delete row?
What is the best way to select all the blanks in a range and delete them and have the cells that contain data move to the left so all data is next to each other.
I have copied the following codes to create a Function of "Concatenate a Range Skip Blanks". However, I humbly seek help to add "," in between every word and also take away the empty space when there is only 2 words are concatenated. Pls refer to my attachement for easy understanding.
View 6 Replies View RelatedI am in need of a solution (probably VBA) that can fill a range of cells with a formula IF they are blank. Ideally that range is a named range I can define in Excel. If that is too hard, then a hard coded column I hand-edit the script for is tolerable. Also, ideally, this script auto-executes whenever data changes on the sheet.
You formula I will populate is:
=IF(ISNA((VLOOKUP(B33,$A$32:$L$43,12,FALSE))+1),"",(VLOOKUP(B33,$A$32:$L$43,12,FALSE))+1)
..but a simpler formula can be stubbed in.
NOte that it does have relative references, so the script needs to adhere to normal EXCEL conventions of enumerating cell references.
If the script points to a refernce cell that contains the formula that is uber.
Maybe it should do copy and paste instead of a string replacement in order to leverage EXCEL's referencing?
I'm stuck on this, and this would be VERY useful for many of my sheets to be able to point to a refernce cell containing a formula to fill in.
i have a sheet with many formulas on it some in a range are if statements which output a blank ("") if the condition is not met i.e. false.
i need to be able to count how many blanks (false) in the range
Trying to determine the best way to do this. I understand that the standard AVERAGE function will ignore blanks if given a range; the function I'm using does a search for a particular value to determine if a value is to be included in the averaging: ...
View 9 Replies View RelatedI want to count blanks in a horizontal range (all in one row) that will change (dynamic range). The values in the range could be numbers or words. Some values may be added to the end, but there may still be some empty cells to the right of the last value. My goal is to count blanks in the range up to the last entered value, but no beyond that. As an example:
A6 = 2
B6 = empty cell
C6 = 2
D6 = empty cell
E6 = tt
F6 = empty cell
The range for the count blanks would be A6:E6. F6 is not included because the last entered value is in cell E6.
The answer (count blanks in dynamic range) should be 2.
I have got these 3 formulas to work, but it seems that there must be a better (shorter, faster calculating, more elegant) formula than these:
=COUNTBLANK(OFFSET(A6,,,,MATCH(9.9E+307,MATCH(A6:F6,A6:F6)+TRANSPOSE(ROW(INDIRECT(""1:""&COLUMNS(A6:F6)))))))
=COUNTBLANK(OFFSET(A6,,,,MATCH(9.9E+307,MATCH(A6:F6,A6:F6)+{1,2,3,4,5,6})))
=COUNTBLANK(A6:INDEX(A6:F6,MATCH(9.9E+307,MATCH(A6:F6,A6:F6)+TRANSPOSE(ROW(INDIRECT(""1:""&COLUMNS(A6:F6)))))))
How can I get the last cell with data, show in other cell? For example last cell populated info in total cell.
Date Cases Within 30 Days
01-Sep-0622.83
02-Sep-0622.78
03-Sep-06
04-Sep-0622.86
05-Sep-0622.82
06-Sep-06
07-Sep-06
Total22.82
