vba code needed

[vino.spider]

plz help to solve this problem...
1. In sheet1 ,i have 10 rows and 10 columns of cells with data in it..
2. In a input box if i give 5,5 (5 rows and 5 columns) then it had to select
5 cells row wise and column wise RANDAMLY


thanks in advance....
hope u understand my problem...

 

[cgcamal]

Hi vino,

This is a basic macro, without errors handling, but it seems it does the job:
(Introduce rows,columns without spaces e.g

Excel Workbook
	A	B	C	D	E	F	G	H	I	J
1	1	2	3	4	5	6	7	8	9	10
2	1	2	3	4	5	6	7	8	9	10
3	1	2	3	4	5	6	7	8	9	10
4	1	2	3	4	5	6	7	8	9	10
5	1	2	3	4	5	6	7	8	9	10
6	1	2	3	4	5	6	7	8	9	10
7	1	2	3	4	5	6	7	8	9	10
8	1	2	3	4	5	6	7	8	9	10
9	1	2	3	4	5	6	7	8	9	10
10	1	2	3	4	5	6	7	8	9	10
11
12	Ramdom Range to select
13	Rows	Columns
14	7	2
7,2

#VALUE!

#VALUE!

Hope this helps.

Regards

 

[vino.spider]

hi ,
this line throws me an error
RamdomRow = Application.WorksheetFunction.ISO_Ceiling((HighR - 1) * Rnd() + 1)

could u plz explain ...
thanks..

 

[cgcamal]

If you're are using Excel 2007 or below versions, replace "ISO_Ceiling" by Int, the line would be as follow:

RamdomRow = Application.WorksheetFunction.Int((HighR - 1) * Rnd() + 1)

Regards

 

[meldoc]

Hello

A little late, but here's another way, same setup as César.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> test()<br>  m = 10<br>  <br>  ans = InputBox("Enter Rows and Columns les than ten, separated by comma.", _<br>  Title:="Selecting desired Range")<br>  <br>  <SPAN style="color:#00007F">If</SPAN> ans = "" <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br>  <br>  r = Split(ans, ",")(0)<br>  c = Split(ans, ",")(1)<br>  <br>  rm = m - <SPAN style="color:#00007F">CInt</SPAN>(r) + 1<br>  cm = m - <SPAN style="color:#00007F">CInt</SPAN>(c) + 1<br>  <br>  rs = Int((rm * Rnd) + 1)<br>  cs = Int((cm * Rnd) + 1)<br>  <br>  Cells(rs, cs).Resize(r, c).Select<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>