Random Highlight only 1 in the each row

[Kishan]

Using Excel 2000</SPAN></SPAN>
Hi,</SPAN></SPAN>

I need a VBA, which can highlight 1 character out of 1X2 in the each row so far each time 14 total are selected within the 14</SPAN></SPAN>

Example..

Book1
	A	B	C	D	E	F	G
1
2
3
4
5
6		1	1	X	2
7		2	1	X	2
8		3	1	X	2
9		4	1	X	2
10		5	1	X	2
11		6	1	X	2
12		7	1	X	2
13		8	1	X	2
14		9	1	X	2
15		10	1	X	2
16		11	1	X	2
17		12	1	X	2
18		13	1	X	2
19		14	1	X	2
20
21
22
23
Sheet1

Thank you in advance</SPAN></SPAN>

Regards,</SPAN></SPAN>
Kishan</SPAN></SPAN>

 

[DanteAmor]

Kishan lists his version at the top of his first messages... he is using XL2000.

Thanks @Rick Rothstein, I did not see it.

Hi @Kishan, Version 2000 does not support the function.

RANDBETWEEN function
Excel for Office 365 Excel for Office 365 for Mac Excel for the web Excel 2019 Excel 2016 Excel 2019 for Mac Excel 2013 Excel 2010 Excel 2007 Excel 2016 for Mac Excel for Mac 2011 Excel Starter 2010

https://support.office.com/en-us/article/randbetween-function-4cc7f0d1-87dc-4eb7-987f-a469ab381685

 

[Kishan]

I cannot get it to move the colors back and forth in any reasonable time frame, but maybe this will be acceptable to you...

Sub RandomHighlight()
      Application.Wait Now + 0.00001
  Next
End Sub

Rick, yes adding to code wait now it is much better, thank you so much</SPAN></SPAN>

Kind Regards,</SPAN></SPAN>
Kishan </SPAN></SPAN>

 

[Kishan]

See if either of these is what you mean. If so, you can experiment with changing the 'Const' lines near the start of each code to get the desired effect.

Sub Rnd_Highlights_1()
        For j = 1 To Delay: Next j
    Next i
  Next rw
End Sub

Sub Rnd_Highlights_2()
  Dim rw As Range, rng As Range
  Dim i As Long, j As Long, k As Long, colnew As Long
  
  Const CycleStart As Long = 3
  Const CycleSize As Long = 4
  Const Delay As Long = 90000000
  
  End Sub

Peter, both the code is working very nicely, these move give bit sensation that like a code is trying to find top random I like the code.</SPAN></SPAN>

I do appreciate your help</SPAN></SPAN>

Kind Regards,</SPAN></SPAN>
Kishan </SPAN></SPAN>

 

[Peter_SSs]

Peter, both the code is working very nicely, these move give bit sensation that like a code is trying to find top random I like the code.</SPAN></SPAN>

I do appreciate your help</SPAN></SPAN>

Kind Regards,</SPAN></SPAN>
Kishan </SPAN></SPAN>

You're welcome. Thanks for the follow-up.