I wish to randomly select a cell, using an InputBox, and then delete the entire row that cell is in. Once the row has been deleted the InputBox opens again for the next random cell to be selected.
When finished selecting I wish to cancel out.
The macro below will select a random cell, I would like to add a color (green) to the selected cell and add NO/CANCEL to msgbox, when NO is selected it will continue selecting random cell and CANCEL exit sub.
I found the code below which randomly selects number and places them into column "I". However, I need the code to search through column "F" and randomly select numbers from column "F" and place the result in column "I".
' Select the indicated number of items from the ' currently selected cells. Public Sub SelectRandom(ByVal num_to_select As Integer) Dim num_items As Integer Dim indexes() As Integer
Issue with array that's bolded The way it is set up is to rename the 3rd sheet to MyFileName and rename the last sheet to MyFileNameTwo. The file names will remain constant. They will always be the 3rd and last sheets, but the number in between will vary. Is there anyway to select the 3rd sheet through the last sheet to delete these? When I use the array it wants sheet names but those are based on multiple variables in other workbooks.
I am working on a Random Cycle Count Generator that provides random SKU#s based on 3 separate columns of SKU listings. The user clicks a button to generate the SKU#s to cycle count for that day. What I would like to see is a date stamp in the columns next(B,D,F) to the referenced SKU listing(A,C,E) based on which SKU#s are generated. This will let me see the last date that the SKU was generated. I would also like it to automatically save after generating.
I have a form that loads and depending on the word selected in the drop down the following code loops through cells Q2:AC2 until it finds the word in one of those cells (the word will always be in one of the cells)
Code: For Each c In Range("Q2:AC2").Cells If c = period Then c.Select
[Code]...
The active cell it finds will always change, i know I need something to code the active cell back but I don't know what it should be.
1: A hyperlink to a random cell in a particular column
2: A hyperlink to recalculate the spreadsheet (to generate another random hyperlink in the cell above, but obviously it need not be linked, literally to 'refresh').
Now, I can't find anything about number 2, but for number 1 I tried the following:
I have an excel sheet attached that I would like to customise to become a random seat picker. I wanted it to select a random cell representing a seat and highlight that cell in someway (e.g. change the background colour or text colour) and display the data within in in a cell in the middle of the sheet.
I have used formula to achieve the later half of the problem but am unsure how to highlight the cell. my current solution uses f9 to refresh the data. Ideally I would like to attach the behaviour to a command button. I have attached the excell sheet and have highlighted the problems I am having.
I have what seems to be a pretty complicated situation involving random numbers and letters. I need to generate random sets of this combination of 2 letters follows by 6 numbers (ex. AB123456). I need the final product to be randomly generated and non-repeated.
I have played with various methods of producing random numbers and random letters both repeated and non-repeated. The closest I can get would be a cell of randomly generated letters adjacent to a cell of randomly generated numbers which so far has been useless.
I have a spreadsheet where I need the end result to be auto filled after recognition of an adhoc "top up" amount. How do I get E7 (3170) to automatically recognise the insertion of C7 (3000) to give this result without having to manually update the formula in E7?
I have a range of cells that have values from 1 to 7 in them. What I would like to do is to have the next column generate a random number from 1 to 7 that does not generate the number that the cell next to it has. for example if cell A1 has 6 in it, I would like cell b1 to generate a random number other than 6 in it. if cell A2 has 3 in it then cell B2 would generate a number other that 3 (1,2,4,5,6, and 7).
I want to create a button so when you press it, it will pick a random cell and display the info. Similar to the same sort of thing as a 'tip of the day' button you see on so many websites. I have a formula that kind of works from this site, but only when you make changes on a sheet or each time you load it up. I have tried to assign it to a button/picture but with no luck!
I have an index of 80,000 names from an index. Some names appear in multiple volumes and on multiple pages within a volume. While the name is the same, they are different people. The Roman numeral is the volume and the numeric is the page number.
Example of original data: Joe Shmoe V-225, 310 VIII-22, 86, 110
I have separated the data into separate columns. Now I have:
Col 1 Col 2 Col 3 Col 4 Col 5 Col 6 Joe Shmoe V-225 310 VIII-22 86 110
At this point, I want to combine the Roman numeral in Col 2 with Col 3 and 4 and combine the Roman numeral in Col 4 with Col 5 and 6.
There are way too many records for me to manually enter the Roman numeral where missing.
How can I change the font color or highlight cell A1, when I select cell A2. Cell A2 is still blank, no value entered yet. I also would like cell A1 to return to original font color or no hightlight when cell A2 is no longer selected (active), whether a value is entered or not in cell A2. Let me clearify, (A1 thru N1) and (A3 thru N3) have diferent dates and the font color is white, as is the cell too. Therefor you can not see the dates in (A1 thru N1) or (A3 thru N3).
However, when any cell (A2 thru N2) or (A4 thru N4) is selected (example A4), the cell above it (cell A3) changes font color or highlights, so the date can be seen in (A3). But when cell (A4) is no longer selected the above cell (A3) hides the date (changes back to white font on white cell). Data or a value is not necessarily entered into (A4) for (A3) to change. (A4) is only selected to show the date in (A3). But if data or value is entered into (A4), the date in (A3) will still be seen until (A4) is no longer selected/active.
how can i select the cell to the right in a macro? i want to runa command in the cell to the right of the one i'm in after a caommand has taken place there
i.e.
1st command run in col b following by selcting the col c and running another command there
I am making a sheet that has many colums of data that I want to sumup colum wise. I am doing is using this macro .. ============================================= Sub Add_Totals()
For Each NumRange In Columns("C").SpecialCells(xlConstants, xlNumbers).Areas
But i want to save the number in a dim single variable called N. I try to put N where i have write ActiveSheet.Range("$B$2") and do N=Application.Run ... But it doesn't work.
I want to copy every other cell in a row that isn't blank to another sheet. I am able to copy every other cell by using
=INDEX(Sheet1!$A1:$J1,2* COLUMNS($A$1:A$1)-1)+1) f
From this thread, by specifying a very long range. But the problem with this is that cells in sheet2 are filled with zeros when sheet1 has empty cells. I have to export the excell file to csv, I don't wan't trailing zeros or ,,,.
I just want to grab the information in C1, then select cell E1, find next blank cell in that row and paste the information. It keeps giving me a runtime error on the line that tries to find the next empty cell.
Code: Private Sub CommandButton1_Click() Range("C1").Select Selection.Copy Range("E1").End(xlToRight).Offset(0, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
This should be so simple (I would have thought), but so far I'm struggling.
Using Range / Offset or something similar, I want my macro to select a certain cell (which is dependent on the data in another cell) on my worksheet so that the user can then input data into the chosen cell.
Something along the lines of:
Range("A1").Offset(23 + t4, 1).Select
[where cell t4 contains a number which dictates how many lines down I want it to jump]
I have two worksheets. ws1 contains a large number of dates on column 3. ws3 contains around 20 dates on column 3.
I want to pick two dates randomly in ws1 that does not already exist in ws3.
Here is my working code, but it is really slow to process. How to optimize this code? Also I would like to add a function where if the macro is not able to find two random dates that aren't already in ws3 then exit loop.
VB: Set ws1 = thisworkbook.sheets(1) Set ws3 = thisworkbook.sheets(3)
lr = ws2.Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row Set rvis = ws2.Range("c2:c" & lr).SpecialCells(xlCellTypeVisible) mynodate = 0