Yalnız Mesajı Göster
Eski 25-04-2012, 14:32  
Murat OSMA
Altın Üye
 
Murat OSMA kullanıcısının avatarı
 
Giriş: 23/05/2011
Şehir: İstanbul
Mesaj: 4,856
Excel Vers. ve Dili:
Excel 2016 - Türkçe
Varsayılan

Deneyiniz;
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Sifreyap()
Dim Sifre As String
Dim i As Integer, j As Integer
    
    For i = 1 To 10
    For j = 1 To 4
        If j Mod 2 = 0 Then
            Sifre = Chr(Int((90 - 65 + 1) * Rnd + 65)) & Sifre
        Else
            Sifre = Int((9 * Rnd) + 1) & Sifre
        End If
    Next j
        Cells(i, "A") = Sifre
        Sifre = ""
    Next i
    
j = Empty: i = Empty: Sifre = vbNullString
 End Sub
Murat OSMA Çevrimdışı   Alıntı Yaparak Cevapla