| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Chnge code help requited
Hi,
I have been given this code to randomly chose a number from range R36:R57 then copy it to cell E34 Sub getnumber() x = Int((52 - 32 + 1) * Rnd + 32) mynumber = Worksheets("sheet1").Cells(x, 18).Value Worksheets("sheet1").Cells(14, 4).Value = mynumber End Sub 2 changes to the code are required please 1) when a number is selected from the range and pasted to E14 can it be removed from the original range? 2) If a blank cell is randomly selected, ignore it and loop until a number is found. Hope this can be done and thanks in advance |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Chnge code help requited
Sub getnumber()
mynumber = "" Do While mynumber = "" x = Int((57 - 32 + 1) * Rnd + 32) mynumber = Worksheets("sheet1").Cells(x, 18).Value Worksheets("sheet1").Cells(x, 18).Clear Worksheets("sheet1").Cells(34, 5).Value = mynumber Loop End Sub will pick a value randmly from R36:R57 then copy it to cell E34 then do the clear and then loop if necessary -- Gary''s Student gsnu200710 "Anthony" wrote: Hi, I have been given this code to randomly chose a number from range R36:R57 then copy it to cell E34 Sub getnumber() x = Int((52 - 32 + 1) * Rnd + 32) mynumber = Worksheets("sheet1").Cells(x, 18).Value Worksheets("sheet1").Cells(14, 4).Value = mynumber End Sub 2 changes to the code are required please 1) when a number is selected from the range and pasted to E14 can it be removed from the original range? 2) If a blank cell is randomly selected, ignore it and loop until a number is found. Hope this can be done and thanks in advance |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Chnge code help requited
thanks for that - just great
"Gary''s Student" wrote: Sub getnumber() mynumber = "" Do While mynumber = "" x = Int((57 - 32 + 1) * Rnd + 32) mynumber = Worksheets("sheet1").Cells(x, 18).Value Worksheets("sheet1").Cells(x, 18).Clear Worksheets("sheet1").Cells(34, 5).Value = mynumber Loop End Sub will pick a value randmly from R36:R57 then copy it to cell E34 then do the clear and then loop if necessary -- Gary''s Student gsnu200710 "Anthony" wrote: Hi, I have been given this code to randomly chose a number from range R36:R57 then copy it to cell E34 Sub getnumber() x = Int((52 - 32 + 1) * Rnd + 32) mynumber = Worksheets("sheet1").Cells(x, 18).Value Worksheets("sheet1").Cells(14, 4).Value = mynumber End Sub 2 changes to the code are required please 1) when a number is selected from the range and pasted to E14 can it be removed from the original range? 2) If a blank cell is randomly selected, ignore it and loop until a number is found. Hope this can be done and thanks in advance |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Chnge view order, Area chrt? | Charts and Charting in Excel | |||
| Shorten code to apply to all sheets except a few, instead of individually naming them, and later adding to code. | Excel Programming | |||
| Protect Sheet with code, but then code will not Paste error. How do i get around this. Please read for explainations.... | Excel Programming | |||
| Excel code convert to Access code - Concat & eliminate duplicates | Excel Programming | |||
| How to chnge 35 relative cells to 35 absolute cells at one time. | Excel Worksheet Functions | |||
Hybrid Mode
