Excel de otomatik degerler uretmek istiyorum acil !!!

[ILKERT]

Merhaba Excel de cok ıyı degılım ama Bır network dekı Kullanıcıların ısım kullanıcı adı vs bılgılerı excele kaydettım..
c hucresınede rasgele 8 karakterlı alfanumerıc bır deger atamak ıstıyorum
bu konuda nasıl bır makro yapabılırım

ornegın c1 hucresı Er98Bx25 dıger 600 c hucresınde de bu formatta farklı degerler uretmek ıstıyorum...

 

[abazya]

Buradakilere bakarmısın

http://www.excel.web.tr/viewtopic.php?t=228&highlight=rasgele+say%FD+%FCretme

Arama motorundan daha değişik olanlarınıda bulabilirsin

 

[Mahmut Bayram]

Aşağıdaki makroyu çalıştırmadan evvel D1 hücresine üretmek istediğiniz rakamların üst sınırını yazınız. D2 hücresine ise kaç adet sayı üreteceğinizi yazınız.

Sub rastgele()
Dim i As Integer
Dim bul As Range

Randomize

If Range("D1").Value < Range("D2") Then
MsgBox "D1 hücresinin değeri D2 hücresinden küçük olmamalı"
Exit Sub
ElseIf Range("D1").Value = "" Or Range("D2") = "" Then
MsgBox "Ama olmaz ki D1 ya da D2 Hücreleri boş olmaz"
Exit Sub
End If

Cells(1, 1).Value = Int((Range("D1") * Rnd) + 1)
For i = 2 To Range("D2")
Cells(i, 1).Value = Int((Range("D1") * Rnd) + 1)
For Each bul In Range("A1:A" & Cells(i - 1, 1).Row)
If Cells(i, 1).Value = bul.Value Then
Cells(i, 1).Value = Int((Range("D1") * Rnd) + 1)
End If
Next bul
Next i
End Sub