rastgele sayı ve harf birlikte

[askm]

Sub SifreOlustur()
Dim a As Integer, c, b As String
Randomize Timer
c = "ABCDEFGHIJKLMNPQRSTUVWXYZ023456789"
For d = 1 To 3
    If d < 3 Then
        For l = 1 To 1
        b = b & "-"
            For k = 1 To 4
atla1:
                a = Fix(Rnd * 1000)
                If a < 32 Or a > 255 Then GoTo atla1
                If InStr(1, c, Chr(a)) > 0 Then b = b & Chr(a) Else GoTo atla1
            Next
        Next
Else
        For l = 1 To 1
        b = b & "-"
            For k = 1 To 6
atla2:
                a = Fix(Rnd * 1000)
                If a < 32 Or a > 255 Then GoTo atla2
                If InStr(1, c, Chr(a)) > 0 Then b = b & Chr(a) Else GoTo atla2
            Next
        Next
End If
Cells(l, 1) = Mid(b, 2, Len(b) - 1)
Next d
End Sub

 

[mars2]

Sayın askm;

cevabınız için teşekkürler.

 

[askm]

Rica ederim.