Mark 8 random With "X"

[motilulla]

Using Excel 2010
Hello,

I need VBA which can mark 8 random with “X” in column D from data column C

Data sheet...

Excel Question.xlsm
	A	B	C	D	E	F
1
2
3			Mixed	Mark
4			Num & Text	Random
5			Total 14	8 With X
6			A
7			1	X
8			D	X
9			5
10			10	X
11			12	X
12			F
13			15	X
14			A
15			D	X
16			F
17			22	X
18			27
19			32	X
20
Sheet1

Regards,
Moti

 

[Sektor]

You just need to mark first 8 numbers with "X"?

 

[motilulla]

No, I need 8 out of 14 to be marked numbers or text randomly are in the column C

 

[Sequoyah]

Hi Moti,
here is my attempt, change the sheet name and destination range in the code if necessary

Sub Insert8RandomX()
'https://www.mrexcel.com/board/threads/mark-8-random-with-x.1265256/

    Dim rng As Range, cel As Range
    Dim i As Integer, intPos() As Integer
    Dim intRandom As Integer, temp As Integer       
    
    Set rng = Sheets("Sheet1").Range("D6:D19") 'ADAPT sheet name and range if needed
    rng.ClearContents   
    
    ReDim intPos(1 To 14)
    For i = 1 To 14
        intPos(i) = i
    Next i   
    
    For i = 1 To 14
        intRandom = Int((14 - i + 1) * Rnd + i)
        temp = intPos(i)
        intPos(i) = intPos(intRandom)
        intPos(intRandom) = temp
    Next i   
    
    For i = 1 To 8
        rng.Cells(intPos(i)).Value = "X"
    Next i
      
End Sub

 

[motilulla]

Hi Moti,
here is my attempt, change the sheet name and destination range in the code if necessary

Hello Sequoyah, thank you yes it worked as I required! I wish you have a lovely Sunday. Good Luck.

Kind regards,
Moti