deleting random amounts of data from user selected columns..

[Jimmyc1023]

I need help! I cannot seem to figure out the best way to modify a
worksheet in excel. I have a worksheet with 38 col's, and 47 rows of
data. I need to allow the user to select one or more columns, then
remove a random number cells from the selected columns. Any ideas????

***** Posted via: http://www.ozgrid.com
Excel Templates, Training & Add-ins.
Free Excel Forum http://www.ozgrid.com/forum *****

 

[Dave Hawley]

Hi Jimmy

This should get you started


Sub RandomRemove()
Dim iNumber As Integer, iLoop As Integer
Dim lRow As Long, iCol As Integer

iNumber = Int((Selection.Columns.Count * Rnd) + 1)

For iLoop = 1 To iNumber
lRow = Int((Selection.Rows.Count * Rnd) + 1)
iCol = Int((Selection.Columns.Count * Rnd) + 1)
Selection.Cells(lRow, iCol).Clear
Next iLoop
End Sub


You may want to restrict the selection to only data cells via the
SpecialCells Method.

***** Posted via: http://www.ozgrid.com
Excel Templates, Training & Add-ins.
Free Excel Forum http://www.ozgrid.com/forum *****