Put an [Marker:X, Y, Z] in 300 random rows (100 x each Marker)
Note: Can substitute an object ([iRandomCount] as string) for the count (101)
Sub Mark_100_RandomRecords()
Dim Ws1 As Long, iRow As Long, iCol As Long, iLoop As Long, iRe1 As Long, iStartRow As Long
'===========================================
'Standard Objects (Some Hard Coded)
'===========================================
Ws1 = ActiveSheet.Index
iRe1 = Worksheets(Ws1).Cells(1048576, 1).End(xlUp).Row
'(Can use InputBox to Prompt User to choose [blank] Column)
iCol = 3
iStartRow = 2
'===========================================
'===========================================
'Create 3 Random markers
'===========================================
For iLoop = 2 To 101
DoEvents
iRow = Int((iRe1 - iStartRow + 1) * Rnd + 1)
Worksheets(Ws1).Cells(iRow, iCol) = "X"
Next iLoop
'===========================================
For iLoop = 2 To 101
DoEvents
iRow = Int((iRe1 - iStartRow + 1) * Rnd + 1)
Worksheets(Ws1).Cells(iRow, iCol) = "Y"
Next iLoop
'===========================================
For iLoop = 2 To 101
DoEvents
iRow = Int((iRe1 - iStartRow + 1) * Rnd + 1)
Worksheets(Ws1).Cells(iRow, iCol) = "Z"
Next iLoop
'===========================================
'===========================================
'Update Header
Worksheets(Ws1).Cells(1, iCol) = "Filter(Random)"
'===========================================
'===========================================
'Standard Format
'===========================================
Cells.Select
Selection.AutoFilter
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
Cells.EntireColumn.AutoFit
Range("A2").Select
'===========================================
MsgBox "Done"
End Sub
- Use InputBox to allow the user to determine the number of records to mark
- Use a percentage of the iRe1 value (iRandomCount = ire1 * .01) (Add Round)
Sub Mark_100_RandomRecords()
Dim Ws1 As Long, iRow As Long, iCol As Long, iLoop As Long, iRe1 As Long, iStartRow As Long
'===========================================
'Standard Objects (Some Hard Coded)
'===========================================
Ws1 = ActiveSheet.Index
iRe1 = Worksheets(Ws1).Cells(1048576, 1).End(xlUp).Row
'(Can use InputBox to Prompt User to choose [blank] Column)
iCol = 3
iStartRow = 2
'===========================================
'===========================================
'Create 3 Random markers
'===========================================
For iLoop = 2 To 101
DoEvents
iRow = Int((iRe1 - iStartRow + 1) * Rnd + 1)
Worksheets(Ws1).Cells(iRow, iCol) = "X"
Next iLoop
'===========================================
For iLoop = 2 To 101
DoEvents
iRow = Int((iRe1 - iStartRow + 1) * Rnd + 1)
Worksheets(Ws1).Cells(iRow, iCol) = "Y"
Next iLoop
'===========================================
For iLoop = 2 To 101
DoEvents
iRow = Int((iRe1 - iStartRow + 1) * Rnd + 1)
Worksheets(Ws1).Cells(iRow, iCol) = "Z"
Next iLoop
'===========================================
'===========================================
'Update Header
Worksheets(Ws1).Cells(1, iCol) = "Filter(Random)"
'===========================================
'===========================================
'Standard Format
'===========================================
Cells.Select
Selection.AutoFilter
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
Cells.EntireColumn.AutoFit
Range("A2").Select
'===========================================
MsgBox "Done"
End Sub