Random string

[YasserKhalil]

I have this code which generates a string of letters and digits
The code do it in A1
I want to edit the code to include the range("A1:A10")

Dim intCnt As Integer
    Dim intChr As Integer
    Dim strTemp As String
    Randomize
    For intCnt = 1 To 10
        intChr = Int(Rnd() * (122 - 49)) + 49
        If intChr > 57 And intChr < 97 Then
            intCnt = intCnt - 1
        Else
           strTemp = strTemp & Chr(intChr)
        End If
    Next intCnt
    Range("A1").Value = strTemp

 

[hiker95]

YasserKhalil,


Sample worksheet before the macro:

Excel Workbook
	A
1
2
3
4
5
6
7
8
9
10
11
Sheet1

After the macro:

Excel Workbook
	A
1	6vl8p767rt
2	hgyilnq1w4
3	as857hqkol
4	g4gv64elc2
5	9tk4qdho2o
6	3pt1agiq1y
7	3m42h5gr28
8	7pyhhjlqmn
9	y54v9koigu
10	j914cvxfsr
11
Sheet1

If you run the macro again:

Excel Workbook
	A
1	5mtlnstpgl
2	cschxkpd8s
3	sw3xoqc3vf
4	hd41vehmhw
5	d2bsonuqot
6	cdrgf2ourt
7	vo1jw6wsxh
8	clbrl3ej9b
9	qva57mwlkw
10	5gketyajw1
11
Sheet1

Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

1. Copy the below code, by highlighting the code and pressing the keys CTRL + C
2. Open your workbook
3. Press the keys ALT + F11 to open the Visual Basic Editor
4. Press the keys ALT + I to activate the Insert menu
5. Press M to insert a Standard Module
6. Where the cursor is flashing, paste the code by pressing the keys CTRL + V
7. Press the keys ALT + Q to exit the Editor, and return to Excel
8. To run the macro from Excel, open the workbook, and press ALT + F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.

Option Explicit
Sub GenerateString()
' hiker95, 08/02/2011
' http://www.mrexcel.com/forum/newreply.php?do=newreply&noquote=1&p=2811682
Dim a As Long
Dim intCnt As Integer
Dim intChr As Integer
Dim strTemp As String
Application.ScreenUpdating = False
Randomize
For a = 1 To 10 Step 1
  strTemp = ""
  For intCnt = 1 To 10
    intChr = Int(Rnd() * (122 - 49)) + 49
    If intChr > 57 And intChr < 97 Then
      intCnt = intCnt - 1
    Else
      strTemp = strTemp & Chr(intChr)
    End If
  Next intCnt
  Range("A" & a).Value = strTemp
Next a
Application.ScreenUpdating = True
End Sub

Then run the GenerateString macro.

 

[Yahya]

salam Yaser
try this code

Sub Yaser()
Dim intCnt As Integer
    Dim intChr As Integer
    Dim strTemp As String
    Randomize
    For Each c In Range("a1:a10")
    For intCnt = 1 To 10
        intChr = Int(Rnd() * (122 - 49)) + 49
        If intChr > 57 And intChr < 97 Then
            intCnt = intCnt - 1
        Else
           strTemp = strTemp & Chr(intChr)
        End If
    Next intCnt
    c.Value = strTemp
    strTemp = ""
    Next c
End Sub

 

[Yahya]

I believe there is a lot i need to learn about excel! I don't know a zilch about how it works!

follow this steps from hiker post

Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

1. Copy the below code, by highlighting the code and pressing the keys CTRL + C
2. Open your workbook
3. Press the keys ALT + F11 to open the Visual Basic Editor
4. Press the keys ALT + I to activate the Insert menu
5. Press M to insert a Standard Module
6. Where the cursor is flashing, paste the code by pressing the keys CTRL + V
7. Press the keys ALT + Q to exit the Editor, and return to Excel
8. To run the macro from Excel, open the workbook, and press ALT + F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.

 

[jim may]

try..

Sub Foo()
Dim intCnt As Integer
Dim intChr As Integer
Dim intNum As Integer
Dim strTemp As String
Randomize
Range("A1").Select
For intNum = 1 To 10         'Cell Range to fill
    For intCnt = 1 To 10
        intChr = Int(Rnd() * (122 - 49)) + 49
        If intChr > 57 And intChr < 97 Then
            intCnt = intCnt - 1
        Else
           strTemp = strTemp & Chr(intChr)
        End If
    Next intCnt
Cells(intNum, 1).Value = strTemp
strTemp = ""
Cells(intNum + 1, 1).Select
Next intNum
Range("A1").Select
End Sub

 

[YasserKhalil]

thank you very much for all these perfect replies
You are great ppl

 

[hiker95]

Yahya,

You probably should Dim c As Range

 

[Yahya]

Yahya,

You probably should Dim c As Range

yes i forgot it
thanx hiker

 

[YasserKhalil]

thank you very much for all of you
you are great ppl