I am putting together a spreadsheet and I want to loop through a series of columns (G to L let's say) and in those columns I want to look at a range of rows (4 to 17 let's say). And if that range has no values in it, I want to hide that column and then move on to the next column. I am having a bit of trouble figuring out how to determine if the range is blank and then building that into a loop.
View 5 RepliesI've got a formula which makes a word "Order" (column B) meet the closest value of 35.00 (column A)
How to modify the formula so that ''Order" meets the closest value of 35.00 in the range (>=35;<39) throughout the column?
There are about 20 approximate and precise values of 35.00 in the column A which have to be met by "Order".
I've been trying to change the value comparisons and precisity (pecentage) to set up the range from 35.00 till 39.00.
but encountered a problem that "Order'' often meets two closest values of 35 till 39, often one of them is going under 35.00 e.g. 36.50; 34.00.
Consequently how to change/substitute the formula, parameters, value comparisons etc. to meet the requirements!
See the workbook attached. 13_05_det_closest_value.xlsx
I've recorded a macro that selects a bunch of cells so I can work with them. However, it's hard-coded to the bottom cell of H1551, and I need it to work no matter how large the range is.
Code:
''' Concatenate column H with B & F
Application.Goto Reference:="R2C8"
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-6],"" "",RC[-2])"
[Code]....
I want to determine the range in the countif function automatically and relating to a date (i.e. today).
In the attached sheet there are two employees who worked during a certain period, a day worked is 1
Then I would like to count how many days each employee has worked up until today, counting the 1's in the row of that employee until today.
I have a long range of cells (U3:AX3), all of which are empty save one. Is there a way to search through the range of cells, and return the contents of the one cell that contains text?
I would do this with a series of nested IF statements if there weren't more than 30 of them!
Let's say you have a named range, Rng1, which consists of cells A1 & A2. In vba how would you report back what, if any, named range the following cells resides:
Code] .....
here are multiple named ranges so using intersect is not feasible. Essentially, through code, I will be given a range and I need to determine if that range if part of a named range.
Let's say I have thousands of employees, but I need to determine who worked for me during a particular date range, and all I have to go on is their start date in one column and their end date in another column.
If:
A1 contains beginning date of employment
B1 contains ending date of employment
C1 contains specified beginning date (criteria)
D1 contains specified ending date (criteria)
Using the following code to remove empty rows based on whether a specific range of columns is empty. The code works if the cell has a zero, but not when the cell is blank. An example of the data is attached.
VB:
Public Sub DelRows2()
Dim Cel As Range, searchStr, FirstCell As String
Dim searchRange As Range, DeleteRange As Range
[Code].....
I am using code from http://j.modjeska.us/?p=31 which update WBS numbering. I have modified the code to run until the first empty row. What I would like to do is to have it run until it finds a range of 3 cells in column 3 that are empty. (I am sure that despite instruction some users will insert blank rows). Here is the
View 3 Replies View RelatedI have a set of spreadsheets that I am creating a macro for. The sheet reports Overtime data for the month for multiple teams.
For this section I am having trouble with this is what I want my macro to do. I was able to accomplish steps 1 and 2.
1. The data is sorted by Pay period End Date.
2. Then 3 rows are inserted between changes in PP end Date.
3. Total all data in column F and Column G in the first empty row after each date change.
* The number of rows will change from month to month. The constant I have will be the 3 rows after the date change will be empty.
Below is an example of the code that I have. I would like to accomplish this without using the subtotal feature.
Sub CopySort()
' This section Sorts the data on the spreadsheet
' by Pay Period End Date "J" then Employee ID "E"
I have this code here, which run's fine, if I don't include the red line. The red code, should do the following: If the "D" Column and/or the "E" columns k-th cell have no value then it should increase the k by one. If theres a cell in "D" or in "E" (or in both of them) which have a value in it then it should start the "EXECUTING COMMANDS" part.
Code:
...
Dim ws As Worksheet
Set ws = wb.Sheets(1)
...
Do While ws.Range("A" & k).Value ""
[Code]...
But this won't start too after processing the do while line. How this .value command works.
=IF( SUM(S7:Y7)="","",SUM(S7:Y7)) - Produces 0
=IF(SUM(S7:Y7)="0","",SUM(S7:Y7)) - Still Produces 0
What I am trying to do is if ALL cells S7 thru Y7 are blank then be blank otherwise sum them. I've used this on a single cell, but not to test a range of cells. What I use for a single cell would be like this...
=IF(S7="","",S7) - Will not produce 0 if the cell is blank, just leaves it blank.
I have a range varable (say productxrange), is there a way to determin if that range is empty?
View 4 Replies View RelatedIs there a way to search a column range, and do an if/then on it in another cell. Ex) search e25:e37 and if none of the cells have anything in them, then input "--" into cell c14.
View 7 Replies View RelatedIn the attached table I found the Last Column and Row which non empty cells in a range.
But I need to find the first column and row which non empty(filled) in the range .
I am trying to hide columns in a range, "P8:ET1087" but it isn't working. After I autofilter a value, every row will be hidden except for the rows where the value is found. This is always 6 rows, won't be more or less.
The 6 cells in every column are the same and contain from 1 to 6:
Text
Text
Date
Number
Text
Date
What I am trying to do is to hide the column if all cells in that column are blank/empty after it's autofiltered. That for the 135 columns, from P to ET.
I was messing around with the following code:
[Code] .....
But it doesn't seem to work.
I need code in VBA that look for empty cells at a range and return msgbox with the empty cell
View 5 Replies View RelatedI'd like to compute the average of a few numbers, but only if the data has a certain number of non-null values. I've attached my Excel sheet for reference.
I have relevant data in columns B and D, where B represents a day and D represents temperature. I'd like to average the temperatures together for each day and place the result in column E. However, this must be done only if each day has at least 22 non-null values (null values are represented by -9999).
A perfect example is day 296 - my average is thrown completely off by the existence of several null values in the last half of the day.
In addition to the problem above, I'd also like to only compute the average using the non-null values (ie, if a day has 23 non-null values and 1 null value, I want to ignore the null value in the average calculation - see day 222 as an example).
how to write a module that will if check if
if cell A5 has text in it,
check range (b5:t5) for any empty cells or any cells with the word "sp" in it,if there are any empty cell or cells with "sp" delete this sheet.
then check
if cell A8 has text in it,
check range (b8:t8) for any empty cells or any cells with the word "sp" in it,
if there are any empty cell or cells with "sp" delete this sheet.
i need a code that will find the first empty cell in column "H" then select go down a row and select upto column "R" so in example range ("H2:R3") would get selected.
I am lost this is all i have so far and it doesn't work
Code:
Worksheets(newname).Range("H" & Rows.Count.End(xlUp).Offset(1) & ":" & "R" & Rows.Count.End(xlUp).Offset(2)).Select
I am trying to delete all the empty rows in a range. What I currently have deletes the rows but skips over a lot as the code runs. Below is what I currently have.
Code:
'msgbox delete blanks???
If MsgBox("Are you sure you want to delete ALL the blank rows in the chart?", vbYesNo, "Delete Blanks?") = vbNo Then
Exit Sub
[Code].....
In cell D1 of sheet 2, I want the cell reference to be displayed of the next available cell in column A of sheet1
for example if cells A1:A238 in sheet1 are populated the cell D1 of sheet2 will display A239
How do I select the next empty cell in a range?
Say I have myrange=Range("B32:B37"), then I want to put values into the next empty cell in that range.
I want to check if I have a value in B32, and if I have, I want excel to go to B33 and print a string there and the same for 34.
I have an if statement as follows:
If IsEmpty(Range(Cells(iCurrentRow, iFirstDataColumn), Cells(iCurrentRow, iTotalCol)))
Then
i did a select to make sure it was selecting the whole range I want and it works fine:
Range(Cells(iCurrentRow, iFirstDataColumn), Cells(iCurrentRow, iTotalCol)).Select
Inside my range I can have cells with 0s in them and cells with nothing in them. What I would like my if statement to do is return true ONLY when ALL cells have nothing in them. At the moment, even if I have 0's in some cells, it's returning false.
How can determine if a range is empty without looping it till the first value is found? On a 5x5 range a for loop is not that bad but what if its the whole worksheet? Is there a fast way to do this?
View 3 Replies View RelatedI have read all the tutorials and examples of how to delete rows IF the row contains no data within a worksheet or workbook.
I don't want all rows deleted, just rows within a set range.
I can't find any reference to deleting blank rows within a range, just the entire workbook or worksheet.
I was wondering whether someone knows a formula that would be equivalent to WEEKNUM (excel 2003) since I will not be able to install the Analysis Toolpack because of IT validation issues?
View 4 Replies View RelatedWhat code can i use to determine the same rows in 2 different columns and compare the data in those two cells?
View 9 Replies View RelatedI am writing the following code to set the source data for a column chart. the source should be F13 until last cell, which is F862
VB:
ActiveChart.SetSourceData Source:=Sheets("Input TE country").Range("F13:" & ActiveSheet.Range("F13").End(xlDown).Address), PlotBy:=xlColumns
Now it selects F13 until the last cell, which is F65536.
This will probably turn out to be a really quick one: I've got some named ranges I'm working with that in of themselves use Offset to automatically expand a list.
View 7 Replies View Related