Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 25-04-2012, 14:06   #1
acolkesen1
Altın Üye
 
Giriş: 05/12/2007
Mesaj: 628
Excel Vers. ve Dili:
Office 2007
Varsayılan rastgele sayı ve harf birlikte

Merhaba arkadaşlar,
Forumdaki örnekler arasında arama yaptım ancak uygun bir örnek bulamadım. 10 adet rastgele 4 haneli sayı ve harf karışık olarak üretmek mümkün müdür?
Örneğin; 3X65,F5L9 veya KL6U gibi. ilgilenen arkadaşlara şimdiden teşekkür ederim.
__________________
acolkesen
acolkesen1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-04-2012, 14:32   #2
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
Eski 25-04-2012, 14:58   #3
ffff7
 
ffff7 kullanıcısının avatarı
 
Giriş: 08/01/2007
Şehir: İzmir
Mesaj: 147
Excel Vers. ve Dili:
2003 Xp Türkçe İngilizce
Varsayılan

Bir başkası..

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub SifreOlustur()
Dim a As Integer, c, b As String

Randomize Timer
c = "ABCDEFGHIJKLMNPQRSTUVWXYZ023456789"

For l = 1 To 10
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
Cells(l, "A") = b
Next

End Sub
ffff7 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-04-2012, 15:00   #4
acolkesen1
Altın Üye
 
Giriş: 05/12/2007
Mesaj: 628
Excel Vers. ve Dili:
Office 2007
Varsayılan

Merhaba Sayın Murat Osma,
Göderdiğiniz kod tam anlatmak istediğim gibi.. Çok teşekkür ederim. Esenkalın..
__________________
acolkesen
acolkesen1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-04-2012, 15:01   #5
acolkesen1
Altın Üye
 
Giriş: 05/12/2007
Mesaj: 628
Excel Vers. ve Dili:
Office 2007
Varsayılan

Sayın ffff7 ye de ilgisi için teşekkürlerimi ileti rrrr im.
__________________
acolkesen
acolkesen1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-04-2012, 18:49   #6
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

Rica ederim, iyi günler...
Murat OSMA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-02-2015, 16:10   #7
kayrahan
 
Giriş: 14/02/2015
Şehir: antalya
Mesaj: 3
Excel Vers. ve Dili:
2010
Varsayılan

verilen bu bilgileri uygulamada yapamadım.excelde bu formulleri nasılyazacağım.


Sub SifreOlustur()
Dim a As Integer, c, b As String

Randomize Timer
c = "ABCDEFGHIJKLMNPQRSTUVWXYZ023456789"

For l = 1 To 10
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
Cells(l, "A") = b
Next

End Sub
kayrahan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-02-2015, 15:15   #8
kayrahan
 
Giriş: 14/02/2015
Şehir: antalya
Mesaj: 3
Excel Vers. ve Dili:
2010
Varsayılan

Alıntı:
Murat OSMA tarafından gönderildi Mesajı Görüntüle
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
bu kodu nasıl excelde uygulayacağımı biliemedim.yardımlarınızı bekliyorum
kayrahan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-02-2015, 15:20   #9
kayrahan
 
Giriş: 14/02/2015
Şehir: antalya
Mesaj: 3
Excel Vers. ve Dili:
2010
Varsayılan rastgele sayı ve harf üretme

bu kodu excelde nasıl uygulamasını yapacağımı bilemedim.yardımlarınız bekliyorum.
kayrahan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-02-2015, 15:38   #10
PLİNT
 
Giriş: 31/12/2014
Şehir: Gürün
Mesaj: 1,240
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Alıntı:
kayrahan tarafından gönderildi Mesajı Görüntüle
bu kodu excelde nasıl uygulamasını yapacağımı bilemedim.yardımlarınız bekliyorum.
Merhaba
Şifreleri nerede kullanacağınızı belirtmemişsiniz.
Denemek içinse;
Vba kod sayfasında bir İnsert/modül oluşturup kodları ekleyerek düğme veya butona atayın örnekteki gibi:

http://www.upturkey.com/download.php...6şifre yap.xls
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 19:13


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden