How 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
I have a set of data that has repeating column headers. So, on a sheet called "January" I have "Forecast" and "Actual" headers that repeat over and over underneath "Week 1", "Week 2", etc. On a different sheet (called "2014"), I'm trying to write a formula that will produce the latest or rightmost number underneath the "forecast" header. What I want is to be able to input data into the "January" sheet every week so that I have a record of progress and I want the "2014" sheet to show the latest data for every month.
View 5 Replies View Relatedfind a continuous data range in Column A of a worksheet with a header in A1. But now I'm thinking that I asked the wrong question. Each day I have new data (a series of numbers) that are moved into column A of a spreadsheet. I never know ahead of time how many numbers will be in the data set. And I need to perform a series of calculations on the data. I need to do the following:
1. Find the range of the data set.
2. Perform a series of calculations on the data set.
3. Report the results in a new location.
If #1 is pre-defined, then #2 and #3 are very easy. However, #1 is causing problems. I can find the range as a string:
I'm trying to use Indirect in a formula where named range refers to multiple non adjacent cells; e.g. ever other cell {A1, A3, A5... etc}; however, when I use indirect, I recieve a #ref error. Replacing the indirect with the actual named range will make the formula work just fine, or using a named range that a continuous range works fine as well. It seems that indirect doesn't like non continuous ranges. ?
View 6 Replies View RelatedI want to select a range of cell relative to A2 then copy and paste that range 12 times.
See my coding below. I have been getting a Warning box titled "Microsoft Visual Basic"
(X) 400.
Sub mycopytry()
Dim check As Integer
For check = 1 To 12
Range(ActiveCell.Offset(29, 0)).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
check = check + 1
Next
End Sub
I am building a macro to conditionally edit cells that meet certain criteria within the current selection:
Dim FinalStr As String
If CheckBox3.Value = True Then
For Each cell In Selection
If cell.Font.ColorIndex = Range2.Font.ColorIndex Then
FinalStr = FinalStr & "," & StrConv(cell.Address, 1)
End If
Next
End If
FinalStr = Right(FinalStr, Len(FinalStr) - 1) 'To remove extra "," at the beginning
What I am getting from this macro is a string like "$I$27,$J$27,$E$28,$F$28" that I use later to edit that range, for instance
Range("$I$27,$J$27,$E$28,$F$28").ClearContents
It worked fine, however, I found later that XL cannot handle more than 20-30 individual cell addresses. The error msg I am getting is: " Method 'Range' of object '_Global' failed " Note that it won't be very practical to pick the cells and edit them within the same loop since there are several criteria times several edit options.
I have a big sheet and i want to create a mask where i can insert a value and in a ListBox appears all accurrences of this value and the other in the same row.
I created a listbox where, with the RowSource proprety show me LAST row where there is the value i want. Now i want a list of rows not continous in the sheet. For example i have this sheet:
A1 Jim B1 23 C1 1998
A2 Steve B2 27 C2 2010
A3 Francis B3 23 C3 1992
Now i want to search all people with 23. So i want in my ListBox appears:
A1 Jim B1 23 C1 1998
A3 Francis B3 23 C3 1992
I am searching for the best way to loop thru col A and highlite cells with a fill color of green. I then wish to copy and paste these cells to another WS.
View 5 Replies View RelatedIn an employee attendance file I am trying to count the number of times an employee has taken 3 or more days of leave together (continuously) in a month. My attendance file looks something like this
sat
sun
mon
tue
wed
thus
fri
[Code] ..........
In the example above E001 has taken 3 continuous days leave twice so formula should return 2, for E002 & E003 the answer would be 1 each.
I have a range of 30 cells in a row. From that row there are groups of cells that have data that might be 1-7 cells populated in a row and in between these groups are blank cells in the row. I need to see what is the highest number of cells in a continuous row that contain data, what the mode is for continuous cell counts, and what is the average value for the data from the continuous cells. The average is a nice to have but not entirely necessary as most cell data will be fairly similar and I can get a close enough average just by knowing the average number of cells that contain data in a row. I have to do this calculation for about 1000 rows of individual data so its important a formula fit in one row.
Almost need a count function to count starting with each cell and then stopping at the first no no value it finds. Then it would show those counts and I could run a formula to pick the highest count and also show the mode of counts.
I will let the experts at it!, my weak mind could not think this one through. I thought something to do with MATCH for a while but no go from what I could do.
I am using the following Selection_Change Event to show a UserForm when a cell in 1 of 31 named ranges is selected.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim i As Long
For i = 1 To 31
If Not Intersect(Target, Range("StatPost" & i)) Is Nothing And Target.Value = "" Then
If Target.Offset(0, -8).Value = "" Or Target.Offset(0, -7).Value = "" Or Target.Offset(0, -6).Value = "" Or Target.Offset(0, -5).Value = "" Or Target.Offset(0, -3).Value = "" Or Target.Offset(0, -2).Value = "" Or Target.Offset(0, -1).Value = "" Then....................
My searches have not produced anything that I could apply to this situation.
I'm trying to write VBA that would:
1. Search a Workbook for Dynamic Ranges.
2. When a Dynamic Range is found the code would:
A. Determine the current coordinates for the range.
B. Change the "Refers To" value From "=OFFSET...." To "=Worksheet_Name $Column$Row:$Column$Row"
3. Save Changes.
4. Close File.
My apologies but I have very little experience in writing VBA. I understand about variables, arguments, and IF/THEN but just enough to use functions within Excel.
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 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
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
I have created a worksheet with different validation rules for different columns for users to enter data. Is there a way I can make it so each cell must be filled in? I don't want any blank cells. Is it possible to create some so that the user must fill in the cell before moving on to the next cell.
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 populate a cell with a dropdown list via data validation. The source is a list that contains blanks both in between data and at the end of the list. Like this:
John
Peter
(BLANK)
Ann
(BLANK)
Carol
(BLANK)
(BLANK)
(BLANK)
etc.
The blank cells are actually not empty, but contains formulas (and I therefore assume I cannot use COUNTA for leaving them out).
Anyone knows how to create a source list for the data validation dropdown list that leaves out any blanks (containing formulas) in the middle and the end of the range?
I used each of the following codes for dynamic name ranges.
View 4 Replies View RelatedAssume this Data in a spreadsheet
I want to count blank "PI" based on "Product name" & "Product date" occurence together
So I created intermediate field "IS Blank", and I dunno what formula can give me the below results
My obective to get this result
CountBlank for PI = 3
--------------------------------------------------------------------------------
Product Name..... Product Date.... PI...... IsBlank "PI" [Desired Formula output]
xxx .......................ddd ...............Blank.................. 1
xxx .......................ddd ...............Blank.................. 0 (counted above for same xxx&ddd)
xxx .......................ddd222 ..........Blank.................. 1 (PD changed to ddd222)
yyy ......................ttt............... Blank....................1 (another product,yyy)
yyy .....................ttt ...............Blank......................0 (same product and date, so not counting again)
