Macro To Loop Until Cell Value Equals Another Cell Value?
Jan 8, 2013
I have a Random Number macro that will generate a random number (from 1 to 50) and place it into cell C4 of the worksheet. From there, various calculations are performed in the spreadsheet, ending with a value in cell AB5 and cell AB6. Depending on this random number, occasionally the value of cell "AB5" and cell "AB6" do not match. I want the macro to continue looping (generating another random number until a match is made between AB5 and AB6). I've tried various things but nothing is working to make it loop.
Below is the code for the random number macro.
VB:
Sub RandomNo()
Randomize
MyNumber = Int((50 - 1 + 1) * Rnd + 1)
Range("c4").Value = MyNumber
End Sub
I have a spreadsheet with a lot of account numbers. I want my Macro to highlight the row A:C if certain accounts are found in the spreadsheet.
For Example:
Account numbers "10998-0000" and "18999-0000" are allowed to be in the spreadsheet so don't want them highlighted. But Account "10110-0000" should be highlighted.
I know the Macro will be big but I was hopping something like: If ActiveCell is not accounts .... I would then list all my account numbers... Then
and at the end a loop until ActiveCell is Empty.
I have this so far.
Range("A12").Select MyColumn = 1 i = 12 Range("A" & i).Select
I'm trying to create macro that will clear the contents of the cells in the 4 columns to the left of a cell that = 0 %, as well as the cell that = 0%. For example, if cell F13 = 0 % then the contents of B13:F13 would need to be cleared. The range in which data is being pasted into is B13:F27.
I need to match data in cell A to cell B and then if they equal I need to copy the adjacent cell C to cell X . How do I set up a macro to do this automatically? I have over 5000 cells to compare and match up.. I have Office 2003.
I have 2 columns and 10 rows (A1:B10). In column A are certain text values. How do I write a macro to go through the table and preform an operation in the corresponding cell in column B depending on the value in cell A? for example, if A3 = "Complete", overwrite the formula in B3 with the value (paste value)?
I have a 700 line spreadsheet and would like to delete the cell next to another cell if it contains a certain string. I.e if A1 to A3 equals "Test" then i would like to delete the contents of B1 to B3, But if A2 equals "Completed" then only B1 and B3 should be cleared.
So I am having trouble figuring out how to do multiple text to equal multiple numbers. For instance right now I use =IF(E9="JOHN DOE","07", but I would like to have it where IF E9 = John Doe the cell shows 07, but IF the E9 = Sam Doe I want the cell to show 08, and the same IF E9 = Pat Doe the cell shows 09 and so on.
Meaning is there a way to have multiple functions go to a cell dependent on what is entered into E9 for example. I just want to have a number come out in one cell if a certain name is entered in a different cell. I loooked at this post [URL]....which got me started,
The spreadsheet is password protected. The only cells that students can enter values into are the answer cells.
I am trying to figure out how to have a cell switch to being locked if the correct answer is inputted. ( I have a column that I hide that has the correct answers in it. Then I use a countif function to determine if the answer cell equals the inputted answer.)
I'm trying to link data that is located on one spreadsheet and equal that to other information located in a different worksheet within the same file. See HPRP A Vital stats in E,F,G 12. I want to have the inforamtion from the spreadsheet Staff - Client Pre Screening in cell D,E,F,G 12. I tried the = function, but it is not working.
For example: IF I3=A and J3=1 then K3=low IF I3=A and J3=2 then K3=med
I'll be creating 10 rules like this.
In "I" column the values are A to E while in J column values are 1 to 5. In K column I want to set if it is low,med or high depending on the value combination of I and J.
I have a sheet where there is a column showing all the totals of previous entries, however a couple of the cells shouldn't total but just show the last entry.
The cell is for an ongoing count of year to date applications received.
Can anyone tell me a formula that would look for the last data entered in a row and return that value
Sub Test2() ' Select cell A2, *first line of data*. Range("A2").Select ' Set Do loop to stop when an empty cell is reached. Do Until IsEmpty(ActiveCell) ' Insert your code here. ' Step down 1 row from present location. ActiveCell.Offset(1, 0).Select Loop End Sub
How can I set a cell value = to what cell I the loop is currently on?
All good, but on my summary sheet (that is summarising the data in each sheet) I want a cell to return me the name that each sheet is called, but simply saying ='SheetName'!B1 is not working
So how to I get the cell on my summary page to return me the text of the cell that is using the above formula.
I have created a file in which other users use on a daily basis to input their time in and time out hours per activity. There are 16 rows allowing them to input up to 16 activities completed in a day. More often than not they do not use all 16 rows. My issue is that these users are very computer illiterate and will often delete the zero that is in their time in or time out hours on unused rows. This results in their total time displaying "####" I have explained to each of them multiple times to input a zero and their problems will be corrected, but they can't seem to grasp that concept.
How to allow the users to input their times, but if they hit delete on a cell and the cell is blank for it to automatically populate the cell with a zero no matter what the user does. I have all other cells with formulas on the sheet locked, but if I lock these cells then they can't input their times.
The issue with this formula is if D65 is 0...then the result is a negative number. Just for clarity,
D65=0, E65=10%.....
So I end up with -10%. I can't have a negative number so I'm looking if the result is negative then the cell just equals 0. Is this possible with an IF formula?
I am familiar with the macro DeleteRowOnCell, but I want to delete rows when a cell in a selected column has a formulae which is returning empty text. I tried the macro DeleteRowsFastest without success.
I need to copy a changing source cell, paste its value into another specific cell (always the same), and then return to the source cell for continued action (ie range selection, copy & value paste, which I can code).
This action is then followed in the next cell to the R of the first cell copied, etc to end of data. I can code the move to the R.
How do I return to the source cells as part of a loop?
Specific notes included in attached - I hope I've explained it clearly.
I am trying to insert a row every time a certain value appears in row.
Example attached.Example 1.xlsm
I need to copy the entire row that has the value 2 in column B and insert it in the line above (not fussy). It must be inserted and move all data in other rows accordingly.
I am looking for a formula to allow an image file to show when a cell equals a certain text string. If it can be done can it be achieved with multiple images? I am making a database that will calculate from many variables my required glass sizes, given the size and window type and I was hoping to go one step further by making it raise a purchase order from a series of images and other related data.
Is there any way of playing a sound (or even better, speech) whenever a specific cell equals a certain value or contains a certain string (such as "Alarm")? This has to happen automatically as the cell updates and require no interaction.
I have a row range 5:20004. In that row range column R may have 'QLD' in the cell.
I am trying to delete all rows within that range that have QLD in column R or delete the row if R <> 'NSW' (would be a better way just in case there is something other than QLD)
