Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
choose range based on criteria
Hello,
I am trying to create a macro that would choose a random name based on the first letter of that name if cell I8 has a letter in it. (e.g. if I8 has A in it, the random name generator would only randomly choose from the names starting with A). I have the random part working (I have cells 1 to 1238 chosen for the input) but do not know how to add in the criteria if a specific letter is chosen from I8. Here is the code I was working on: Sub RandomLots() Dim rndnum As Integer Dim up As Integer Dim low As Integer Dim outp As String Dim st As String If Cells(8, 6) < "ANY" Then st = Cells(8, 6).Value = "" Else Cells(8, 6).Value = "" Range("StartW").AdvancedFilter _ Action:=xlFilterInPlace, _ CriteriaRange:=Range("Criteria") Else Randomize rndnum = Int((1238 - 1 + 1) * Rnd + 1) Sheets("Lots").Range("A" & rndnum).Copy Destination:=Sheets("Lots").Cells(3, 9) End Sub Thanks, Ivan |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Summing a range of cells based on criteria in another range | Excel Worksheet Functions | |||
choose a range to copy paste based on data in the cells | Excel Programming | |||
Copying Range Based On Certain Criteria? Possible looping through the Range | Excel Programming | |||
MIN within range based on criteria | Excel Discussion (Misc queries) | |||
group rows in a range based on criteria from another range (vba) | Excel Programming |