i want to get the max value of a specific range. see below, exs. max value "from speed" coloumn - if values between 250-300 in coloumn "direction"
Speed
Direction
0.13
348.94
0.03
344.34
[Code] ...........
Here is what i am trying to achieve. If the date 2/20/2010 is located at F53 & the cell next to it at H53 is populated with a number between 1 & 16, then i want the cell at J11 (42 rows further up) to auto populate with the number 1. When this occurs the cells beneath this, from J12 to J52 should also auto populate with the with consecutive numbers from 2 to 42. Would also like to see the cells with numbers 1 to 28, automatically format to orange & the cells containing numbers 29 to 42 automatically format to yellow. I plan to have this condition repeat several times later in the year, at dates that are to be decided. When these dates are decided i want to be able to enter a number from 1 to 16 & next to the date & all of the above automatically occurs.
View 14 Replies View RelatedLooking to have a macro call a subroutine every time it finds a cell meeting specific criteria.
Code in plain english would look like this:
For EACH cell in range A1:BZ500 meeting the following criteria:
Cell value is a date
AND
Cell's date is at least a week or more in the future
AND
Cell background (Fill) = RGB color code: (R:191 G:191 B:191)
DO the following:
Call repeatingsub
I'm trying to find vehicle make and model in a cell containing a lot of text and then display that in the formula cell. For example if A1 is a paragraph that contains somewhere within it "Ford" & "Ranger". I want B1 to display "Ford" and C1 to display "Ranger". I have a list of vehicles makes (column A) and models (column B) on a seperate sheet.
View 2 Replies View RelatedI 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
How to create a sheet to generate Random numbers from 2 specific list of a main list range of 36 Numbers. (List A = Specific 15 numbers, List B = The remaining Numbers from these 36)
Example :
-The Main List Range is from Number 01 to 36
-The Specific random list will be 15 Numbers of these 36
List A-. The Specific 15 Numbers are: 01,02,03,10,11,12,13,20,21,22,23,30,31,32,33
List B-. Remaining Numbers : 04,05,06,07,08,09,14,15,16,17,18,19,24,25,26,27,28,29,34,35,36
So
I need to generate ONE Unique Random Numbers of List A ( 01,02,03,10,11,12,13,20,21,22,23,30,31,32,33)
In Cell A1
In Cell A2
In Cell A3
And from List B, (04,05,06,07,08,09,14,15,16,17,18,19,24,25,26,27,28,29,34,35,36)
I need to do the same thing In
Cell A4
Cell A5
Cell A6
It's possible to have a 6 cells with random but Unique Digits? (not repeated numbers between the 6 cell ??)
I have a custom email creation template I am merging with another version. The problem I am having is wrapping my head around not only selecting a range that is offset from ActiveCell (column 6-9) but seeing if there is an "x" in that range which is normally blank. My previous attempts identify the "x" but adds the text every time it is found. (Each column is a flag for an email bullet and they can have all four bullets in the email where I only want the text included ONCE if they have ANY bullets included). I use the range because I do not want the text included if none of the bullets are used.
Teh StandHTML then gets used in the body of the email like other HTML items I use
The email is generated using the ActiveCell.Offset to insert special text, emails and routing and has weathered alot of changes over time.
Dim Myrange As Range
Myrange = Range(ActiveCell.Offset(0, 6), ActiveCell.Offset(0, 9)).Select
If Myrange = "x" Then
StandHTML = StandHTML & "Important Text"
End If
I am tracking total man hours of contractors in columns of different rates applicable. At present I have structured my worksheet with the different rates across and days going down. As I am invoiced for a period of work I will log the invoice ref number in a separate field. I would like to sum totals to report against $ Invoiced and $ Committed (i,e worked but not actually invoiced against yet).
Here is an example of what I am trying to achieve. The Actual showing sum mhrs * rate only for the mhrs entries with an invoice in corresponding Invoice Ref Column. The Committed producing sum of all mhrs * rate [which I am using =(SUM(D9:D37)*D7)] regardless of what is in invoice ref column.
This way I can hopefully track what we have been billed and also what we can expect to have to budget for to cover what has been worked but not billed against.
I want to get the MEDIAN of the values in F2:Q107 only if the value in D2:D107 = D111, how do I do this. I want to do the same thing with MEDIAN.
I don't want to use a pivot table if I can avoid it.
I want to search for a value, in a specific range (in this case, in a row). If that value exists, l want the formula to return that value, otherwise l want it to return "FALSE" or whatever.
The formula must exist in one discrete cell only, i.e. the output will be contained in only one cell.I don't want to match the occurrence of that value with another row's cell. I don't want to search for multiple values (although if you have a way to do that, l'll be interested to know!), l don't want to count the number of times the value occurs.All l want is to return that value if it exists in the specified range of cells, and if it doesn't, l want to say "FALSE" or something.
I have a spreadsheet with Employee details and each employee has a Indicator and a Score.
I'm battling to get Excel to do a lookup on the Indicator, find the applicable Score Range, see if the individual's Score falls within the range and then inserts the relevant % into a cell in a specific row of each employee.
If we did not have more than 2000 doing it manualy might have been an option. Also, the Percentages and Score Ranges in the matrix might change a couple of times....
I am using the below macro to delete row:
HTML Code:
Sub REMOVE()
ActiveSheet.Unprotect Password:="P@ssw0rd!"
Set Rng = ActiveCell
ActiveCell.EntireRow.Delete
ActiveSheet.Protect Password:="P@ssw0rd!"
End Sub
However I would like not to apply that macro when I am in the row 12:26! btw, I am running my script by pressing CTRL+D.
Last thing would it also be possible to "extend" the exception to another range ? (name manager -> row 84:276 called "NEXT") if possible to define two name manager for the exception to implement to the existing macro.
I have an excel sheet with set ranges in it. I would like to refer to these ranges in my code, but i am doing something wrong. Here is a portion of the code. The range name is 'Status'
View 4 Replies View RelatedI need to look through a range for a specific value. When I find it if the nearby time column matches a specific time I want to retrieve the lookup value. Because I am not very macro savvy, and the spreadsheet has to run on both mac and pc I do not want to use a macro. Can I do this with an IF((AND combination or is there a better way? If there is a way to look through a range with IF, how would I structure the criteria to look through an entire column for the value? Lookup won't work because the value can occur several times through out the range, but only once with a specific time value.
View 5 Replies View RelatedI have a value that the user is suppose to type in the range(A3). The format is as follow: 20091227-I1 (yyyymd-Letter and No.) The letters are I and EK and after the letter a # from 1-10.
I want to create a macro, which reads the Range(A3). If the format is incorrect, then a MsgBox would display "Typing error. Please type the year, month, date, dash, letter (I or EK) and number."
I don't have a problem creating the message box. My problem is validating the Range(A3) with the specified format.
Column"A" on spreadsheet has list of unique Order Numbers. The orders are whole numbers with no letters or characters.
I want Columns B:J in each row to be a "named" range using the content in Col A as the range name.
So if A5 says "12345" I want b5:J5 to be named "12345".
Currently running a macro which selects all the rows between two specific words and pastes the selection into another worksheet. However, it runs this search on the entire workbook, whereas I'd just like it to run the search in a particular column (column D in this instance).
This is the code as it currently stands:
VB:
With ActiveSheet
.Range(.Cells.Find("financial assets"), .Cells.Find("liabilities")).EntireRow.Select
End With
.Selection.Copy
Sheets("Paste Currency").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Is there any way to focus the search on only one column?
Every week I have a set of open tickets with various dates. I need to break these Dates down to certain ranges.
Current DateAged Date Range Value to assign
10/20/2013 10/18/13< = 3 days A1
10/20/2013 10/7/13> 3 days & < 2 weeksA2
10/20/2013 9/23/132 weeks - 4 weeksA3
10/20/2013 9/22/13> 4weeks A4
I need in cell H:2 a value returned of with A1 thru A4 based on the results of the information in Columns A:D.
So basically it shoudl have in column H a bunch that fall in the reange of 3 day or less with "A1" then the dates that fall in the range of greater then 3 days but less then 2 weeks a value of "A2", etc. I hope i made this clear enuf to understand.
I'm using dynamic named ranges a lot recently. One thing that bothers me is that I have to do so many for one range.
For example I have a named range from A1:G30. Now I can use this named_range to do vlookup etc. but when I for example want to use the match with the index function I have to define a new range because for the match function to use it need only one column or row. Is there some hidden command I could use like named_range_row1 ? This would make it so much easier to read the code and I dont have to construct so many named_ranges.
I have my template workbook with sheet tab as following:
Summary/Report/Contact 1/Contact 2/Contact 3/Contact 4/Contact 5/Note/
And I have one macro to run and only want to run in the specific sheet as below:
Summary/Report/Contact 1/Contact 2/Contact 3/Contact 4/Contact 5/Note/
The sheet name for contact 1 to 5 is varies means it can be change to any name based on different job. How should I write my macro in order to do that with one macro?
I have a worksheet which contains daily results and want to copy the formulas within the Cell F2 but only copy into the cells where the data has recently been added.
EG: Within the attached worksheet i have just entered the data for the 03/06/2014, so i only want the formula to be copied into column F for this range.
Potential it could the vb code could look at Column B and if blank then paste.
I am having an issue with some code that I have typed up to reset the formatting for a specific range after having been copied from a different source. The issue I am having is the screen updating continues to reset no matter what I have tried. The code is a simple "Format Paint", but the range that is copied is located behind a graph in attempts to remain hidden. The primary function of the macro works fine, but every time I paste a value into the X8:AE54, the graph disappears and exposes cells I do not want to be seen.
[Code].....
Not sure if this is better suited for a macro or done via conditional formatting.
Trying to empty a standard template we use and of a certain range I need to empty all cells not containing N/A (typed not error).
I've tested and I'm getting errors trying to reference a range in a specific sheet.
I want to sum a range for further calculation and can get this to work perfectly if I don't specify a sheet - but it sums the range in the wrong sheet as the code is within a With statement range:
[Code].....
I've checked that wsSumm contains the 'Summary' worksheet value and that's all fine, I've also tested the following:
[Code] ....
I've also tried replacing wsSumm with Worksheets("Summary") and Worksheets(1), but get exactly the same results, so no it's not a fault with the worksheet variable. Also tried using Application.WorksheetFunction.Sum, but again exactly the same results.
So, why I can't sum the range on the specified worksheet? Is is something to do with being inside a With statement for another worksheet - though I've not come across problems with this before...
I am designing a form that tracks call times. I have a control "cmdStart" that when clicked will enter the "Start" time in cell A4 and each time clicked will skip a column and enter the next time in cell C4. The same for a control "cmdEnd" that will enter the "End" time in cell B4 when clicked. Then the next end time clicked will go in cell D4. However, when the Start time enters the time in AE4 I need the next start time to start in A6 and do the same in this row until AE6 and then drop down again. The same with the "End" time when it reaches AF6. I think I could write the If and Else for each individual cell, but there must be a more efficient way to do this.
View 4 Replies View RelatedI wrote a macro to create a chart out of a specific range of data.
View 11 Replies View RelatedI have a range of cells (A1:K20 for example) and I'd like to have Excel count the number of times a certain set of initials (PT for example) showed up in any of the cells within the range.
View 7 Replies View RelatedI am currently using the .resize function to give a specific value to each cell within a range.
First of all, is it the most efficient way to do it?
If so, why am I getting error "Application-defined or object-defined error"
with this code :
Code:
ThisWorkbook.Sheets("Merge").Range(Cells(3, 2), Cells(4000, 2)).Resize.Value = "TEST"
i just want to select first four column cells(A,B,C,D) in first row after filte the data.
View 1 Replies View RelatedI'm looking to easily drag the sum of certain cells in a different column BUT keeping a specific range, it's hard to explain so i'll show an example...
A1
A2
A3
A4
A5
A6
A7
A8
B1=SUM(A1:A4)
B2=SUM(A4:A7)
B3=SUM(A8:A11)
And so on...
Is there any way I can do this by dragging down the cell formula from B1 and it remembering the range of 4, so I don't have to manually select each range...?