Case Statements Only Work On Cell Selection
Jun 19, 2009
I've got the following code, which evaluates a sheet for the string "Event held", and then offsets multiple columns before adding several strings.
The second part of the code is what I can't get working correctly. Each cell containing the strings inserted by the offsets are set to change colour based on their contents.
What I want is for them to change colour as soon as the strings are offset, but at the moment, I have to click on each cell before the colour appears....
View 9 Replies
ADVERTISEMENT
Jul 3, 2008
I know the concept of Case statements sounds simple, but trying to write it in my scenario seems a lot more difficult than I thought it would be. I have three columns with an unspecified number of rows (which are generated from another macro). Lets say those colums are C, D, E, and they should be strings because my criteria are based on the number of digits contained in each cell. I want to add a certain number of periods to a given cell, then add that string onto two other cell strings, and form one combined string in a separate cell.
Basically I want to sort of Concatenate the cells into a given cell in column F for each row, but there are many conditions. If the cells in column C contain 3 digits, I want to add one period "." onto the original string. If it has 4 digits, then I add nothing, and then, add that cell to the string in cell D, and then Cell E. [It is like the function Concatenate(C1&".",D1&"..",E1)]. Cells in Column D have 6 criteria, and cells in Column E have zero criteria.
And I need this to loop down until it reaches an empty row or cells.
View 12 Replies
View Related
Feb 17, 2007
Select Case Statements. if there is a better or shorter way to write the following code.
Select Case Sheet1. Range("I6")
Case 0
Exit Sub
Case 5
returnvalue = Sheet1.Range("G35").Value
If returnvalue = "Yes" Then
myresult = MsgBox("Hi " & Sheet1.Name & ". Your prescription for " & Sheet1.Range("C6") & " expires " & Sheet1.Range("B2") & " Would you like like an Email reminder?", 36)
Else
End If
Select Case myresult
Case Is = vbYes
Application.Run "Mail"
Sheet1.Range("H6") = 0
Case Is = vbNo
Sheet2.Activate....................
View 6 Replies
View Related
Jan 12, 2014
Trying to get some dandy IF/Then statements to work in my favor. I'm trying to get "x" in each row to equal the number in column B IF x is present in column C and represet the cells point in column D (again, only if X is present). Another wrench is that row 6 (offering) is 1 point per dollar they bring so instead of an "x" in column C for that one, I'd like to simply enter the number of points (or dollars) they gave. If 5 dollars, that would equal 5 points. Then, I'd like all the points for week 1/12 to be added up on Column D Row 10.
View 1 Replies
View Related
Aug 27, 2013
I've selected a case statement (see below) but I want to that code to work automatically. So i do not want to press a button to show a certain value in S2. But I want cell c2 to automatically pop up the value (depending of the value in V4). So kind like an if/then statement.
Sub CASEMEDEWERKER()
Select Case Range("F4").Value
Case "Medewerker"
Range("S2") = "M"
Case "Interview"
Range("S2") = "I"
Case "Data"
Range("S2") = "D"
Case "Observatie"
Range("S2") = "O"
End Select
End Sub
View 4 Replies
View Related
Dec 11, 2012
Regarding the below code:
VB:
Sub AutoPopulate()
Dim i As Long
Dim lr As Long
Application.ScreenUpdating = False
[Code] ....
This code relates to a list I have determined on my excel spreadsheet using a range from another sheet in my spreadsheet.
Basically this is a standard group of domains I want people to use, but based on where the user will use this there may be local variations for example amount, some people here use UKDW amount at 15, 2.
As this is a global project the above is the global standard I have set out. What i want to do is if people in the UK want to add there own values so UKDW for example they can do but assign a macro to a button that will add this to my range on a seperate sheet but also will add another case to the macro above.
So if someone entered UKDW_AMOUNT as DECIMAL 15 2 then clicked "Add to Domains" Button this will add UKDW_AMOUNT DECIMAL 15 2 to my list on a seperate sheet but also update my case selection macro.
View 2 Replies
View Related
Jun 12, 2009
Excel spreadsheet will contain a form that will consist of drop down boxes (data validation). Each drop down box will define the data that can be selected in the next drop down box.
The way I initially went about it, is creating nested IF statements. However, we all know there is a limit of 7 nested IF statements. I have 10! So below formula does not work:
=if(B5=1,F5:I5, if(B5=2, F6:I6, if(B5=3, F7:H7, if(B5=4, F8:J8, if(B5=5, F9:H9, if(B5=6,F10:G10, if(B5=7,F11:H11, if(B5=8,F12:H12, if(B5=9, F13:I13, if(B5=10, F14:K14))))))))))
I tried other workarounds such as CONCATENATE, or & signs. No luck. VLOOKUP does not work also, because there are multiple columns in col_index_num. Anything else I try gives me this message:
“The List Source must be a delimited list, or a reference to a single row or column”
What should really happen is this:
User selects value in first list box. Second list box shows values associated wih the value from the first drop down only.
View 9 Replies
View Related
Apr 8, 2013
I have the macro below, how do I make it NOT be case sensitive, I want it to work for test. Test, TEST
Excel 2003
Code:
Sub test()
If Left(ActiveCell, 4) = ("test") Then
MsgBox "Activecell starts with test"
End If
End Sub
View 3 Replies
View Related
Aug 3, 2006
A sample macro has EXACTLY the effect that I want, but contains absolute references. I want it to operate on a string selected by the mouse. How can I make that conversion ?
The successful macro will change the case of text I select to lower case.
View 5 Replies
View Related
Dec 10, 2013
What I would like to do is use the IF function to retrieve data from another sheet called Data which has six columns but has various amounts of data that I would also like to pick as a drop-down menu.
The initial cell has a dropdown populated with data using the Data Validation.
Example would be if the following is selected from the initial drop-down menu and then allows me to select data depending on the previous selection.
PX1 - fetch information from Data T2 to T25 and then select that data which then would allow me to select data again from say column U2 to U9.
Is this possible?
View 5 Replies
View Related
Jun 3, 2009
I've got a pretty intense macro already written, a lot of Select Case components. At the end, if nothing matches I'd like to just copy the cell above to the cell below. However, there is a range of about 400 cells in length, so I'd need some sort of wildcard for range.
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Dim Cell As Variant
For Each Cell In Range("A1:OL1")
Select Case Cell.Value
Case "Eng1"
Cell.Offset(1, 0).Value = "Engine One"
tons more in the middle here
Case Else
Cell.Offset(1, 0).Value = "N/A"
Rather then returning "N/A", how could I reference the cell above and just copy it instead?
View 9 Replies
View Related
Aug 26, 2009
I have a string of names that run together without spaces or commas between each name.
"Danny TrejoJean Claude van DammeVincent SchiavelliGabrielle FitzpatrickDavid 'Shark' FralickPat Morita" for example.
Is there a way to add a comma and space between a lower case and upper case letter?
View 7 Replies
View Related
May 8, 2008
Sub Addy()
Do Until ActiveCell. Offset(0, -4) = ""
Renamer = Proper(ActiveCell)
ActiveCell = Renamer
ActiveCell.Offset(1, 0).Select
Loop
End Sub
fail? Trying to remove all capitals from names/addresses. Error message is "compile error - sub or function not defined"
View 6 Replies
View Related
Oct 3, 2006
I tried very hard to design a leave roster for user to mark their leave application. The criteria are as follows:
1. 4 applications per date
2. a region of worksheet (i.e. "A2 to H20) will be defined for users to "click" on the cells (within the defined region) to mark their application.
3. once a cell is clicked (i.e. marked), it cannot be altered.
4. each click will automatically increase the total by 1.
I got the following code to deal with the situation but user can still click on any cell outside the region (in fact I fail to define the region).
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim m
ad = Mid(ActiveCell.Address, 2, 1)
m = Range(ad & 24).Value 'here a formula "CountA(A2,A20)" will be place in the cell (24, c).......................
View 2 Replies
View Related
Nov 22, 2008
I have three IF statements as below. the problem is if the first statement is true I want it to skip the next two statements or the result will be changed again.
View 2 Replies
View Related
May 26, 2008
Sheet one will contain the following:
DATE A B C D E
2/22/2008TRUEFALSEFALSEFALSERon
2/23/2008FALSETRUETRUETRUEPhill
2/24/2008FALSETRUEFALSEFALSETracy
2/25/2008FALSEFALSEFALSEFALSESharon
2/26/2008TRUETRUEFALSETRUEBill
On sheet two I need to list any date that has three or more true statements with the coresponding name.
EXAMPLE:
2/23/2008Phill
2/26/2008 Bill
View 4 Replies
View Related
Apr 22, 2009
I decided to try to change it into a Case Statement. Here is what I have now. But the problem seems to be this time at this line: When I have "01" in C5 the script just keeps going?
View 14 Replies
View Related
Jun 20, 2008
When I use a simple formula such as:
=upper(a1)
that will obviously change whatever is in a1 to Upper Case - but it will put it in the cell that holds the formula.
What I want to know is:
Is there any way I can format the cell to run the formula when the information has been pasted into the spreadsheet
View 9 Replies
View Related
May 4, 2007
I'm trying to build an investment calculator. Tried searching "calculator" as keyword but return nothing similiar.
There are eight cell : [ A ][ B ][ C ][ D ][ E ][ F ][ G ][h]
[ H ] is price of the leverage
[A] is X balance
[b] is X lot size
[C] is X amount of money use to get x lot
[D] is X percentage of money use to get x lot
[E] is X point gain
[f] is X money gain
[G] is balance + money gain
Ignore the formulae for leverage to determine 1 lot price. Take 1 lot = 250.
What I'm looking for is when I enter any value at cell B, C or D, it will automatically calculate the value for either B, C or D cell.
Let say, the balance is 10000.
If I enter 2 at cell B. Then, it will calculate the value for cell C & D.
If I enter 750 at cell C, then it will calculate value for cell B & D.
If I enter 25 at cell D, it will calculate value for cell B & C.
how to use OR Selection in excel.
View 9 Replies
View Related
Oct 14, 2009
How can I combine the two below statements like these to make one "Or Statement"? Sorry...I haven't done excel and/or's in forever?
=IF(('Proj Info'!L10="main")*AND('Proj Info'!L9="CT"),"BMSVC",'Proj Info'!L9)
OR
=IF(('Proj Info'!L10="serv")*AND('Proj Info'!L9="CT"),"BMSVC",'Proj Info'!L9)
View 2 Replies
View Related
Aug 10, 2006
I use macros to print pages, depending on the number of entries I have. If I have 1500 entries, I have to have 1500 If statements. Is there a way to write VBA in a macro to where I can refer to a cell and use the value of that cell to print the range.
View 5 Replies
View Related
Dec 4, 2008
I am trying to using multiple if staements regarding one cell. What I am trying to achieve is:
if b2=0, then null, however if b2=1, then arable, however if b2=2, then manged grassland, however if b2=3, then forestry/woodland, however if b2=4, then semi-natural vegetation, however if b2=5, then urban, however if b2=6, then water
I have these 2, but they don't work - what am i doing wrong?
=IF(B2=0,null, IF(B2=1, Arable, IF(B2=2, Managed_Grassland, IF(B2=3, Forestry/Woodland, IF(B2=4, Semi-natural_Vegetation, IF(B2=5, Urban, IF(B2=6, Water, NO_LAND_USE)))))))
=IF(B2=0,IF(B2=1,IF(B2=2,IF(B2=3, IF(B2=4,IF(B2=5, IF(B2=6, Water, null), Urban),Semi-natural_Vegetation), Forestry/Woodland), Maneged_grassland), Arable), null)
View 5 Replies
View Related
Apr 2, 2013
Is it possible to format a cells properties based on the value of the cell? I want to automatically format numbers that fall within certain ranges. For example, if I enter a number less than x, the number will be bold, in a blue color. If I enter a number greater than y, that number will be bold and red. All numbers outside the specified ranges would remain the default font. I would prefer that this property be set for a specified range of cells prior to entering any data, and automatically format as I enter the values.Can it be done?
View 8 Replies
View Related
Oct 14, 2013
I want to create a formula that will turn B2 in floors if A2 has /1 with its formula, Ceilings if it has /2, walls if it has /3, and M&E if it has /4. For example 456-401/2-1569 in cell A2 will populate ceilings in B2. I know I can create If statements but I can only figure out how to do this to search for one text and populate one word. I know Vlookup is possible but this spread sheet will be blank and as people populate there information I need the cells to automatically populate the data into the B column. how I can create the right formula?
View 4 Replies
View Related
Feb 16, 2010
Can you have multiple IF statements in one cell. I know nested IF's are out there, but they will not work for what I need.
I just need to have two (or more) complete IF statements.
View 9 Replies
View Related
Dec 11, 2013
I have a number value in (e.g.) cell A1, and I want to display it in cell B1.
The number in A1 updates automatically from a website (and through a few regexp and other functions). Most of the time it displays a number, but sometimes it can be an error if for example the website connection doesn't work or something else is wrong.
I want to display the number of cell A1 in cell B1, but if the number in A1 is an error, I don't want to display an error, or a zero, or a dash, or anything of the sort you'd normally do, like =IFERROR(A1,"error"). I want to see the number there was in B1 before the error occurred. In other words I want to update the value of B1 only if there is a number to update with.
View 4 Replies
View Related
Jan 28, 2014
I'm trying to formulate:
If it's mixed case, copy it. If it's all lower case or ALL CAPS, then make it PROPER.
i.e., if 'bananas' is in A1 and B2 says =PROPER(A2), then B2 says Bananas, because PROPER capitalises the first letter of each word.
I would like to do
[Code] .....
View 5 Replies
View Related
Feb 12, 2009
How can i convert into upper case every word in a given cell. For instance:
I have the following in column A: books pen desk
i want it to be like this: Books Pen Desk
View 3 Replies
View Related
Oct 31, 2011
I'm trying something interesting with Select Case where instead of using a static Case, my Case is based on the value of a cell.
here is the example of the present code:
Code:
Select Case Range("F75").Value
Case Is > Range("F30").Value
Range("AB59").Value = "Use"
[Code].....
View 2 Replies
View Related
Oct 20, 2009
I've got a column of data that I need to split into further columns, the only way of identifying the split from the data is if a lower case character appears next to an upper case character.
For example, a cell in column A could look like;
Computer ProductsDrivesDVDExternal
And I'd need to split that out to cover columns A B and C with
Computer Products / Drives / DVDExternal
I'd need to do that for all the cells in column A.
View 9 Replies
View Related
