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 29-10-2017, 19:57   #11
mars2
Altın Üye
 
Giriş: 02/09/2004
Mesaj: 297
Varsayılan

İyi Günler;

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

Randomize Timer
c = "ABCDEFGHIJKLMNPQRSTUVWXYZ023456789"

For l = 1 To 1
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


sadece A stununda değil B ve c sutunlarının ilk satırlarında veya sayfa sonklarında farklı harf ve sayı üretmesini istiyorum .

Yardımlarınız beklemekteyim
mars2 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-10-2017, 20:34   #12
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,031
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Alıntı:
mars2 tarafından gönderildi Mesajı Görüntüle
....
sadece A stununda değil B ve c sutunlarının ilk satırlarında veya sayfa sonlarında farklı harf ve sayı üretmesini istiyorum .
Size önerilen kodları aşağıdaki şekilde kendi isteğinize uyarlayabilirsiniz.
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 d = 1 To 3
For l = 1 To 1
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, d) = b
Next
Next d
End Sub
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-10-2017, 09:19   #13
mars2
Altın Üye
 
Giriş: 02/09/2004
Mesaj: 297
Varsayılan

Sayın antonio;
Teşekkürler, istediğim gibi sizden küçük bir rica olabilir mi
b = ""
b = "-" işareti koyduğıumuzda A sutunun önüne de gelmektedir.
ilk (A) sutunda "-" işaretinin gelmemesi için ne yapılabilir.
mars2 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-10-2017, 09:27   #14
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,622
Excel Vers. ve Dili:
2010-2016
Varsayılan

Cells(l, d) = b satırını Cells(l, d) = Mid(b, 2, 5) şeklinde değiştirin.
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-10-2017, 16:16   #15
mars2
Altın Üye
 
Giriş: 02/09/2004
Mesaj: 297
Varsayılan

Sayın Askm;
İlginze teşekkürler, ancak
rastgele üretilen harf ve sayılar oluşan komminasyonlar arasına - işareti ile ayırmak istemekteyim
Örnek:
ABS54-lŞ78Ş-458YU-hu4l5 gibi olmasını düşünmekteyim.
İlk sutunda bulunan komminasyonun sol tarafına (ABS54-) - işaret olmaması (-ABS54-)gerekmektedir.
Veya Bir hücre komminasyon bir hücre - işaret olabilir.
Yardımlarınız için teşekkürler
mars2 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-10-2017, 20:47   #16
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,622
Excel Vers. ve Dili:
2010-2016
Varsayılan

O zaman aşağıdaki gibi yazmanız gerekli.
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 d = 1 To 3
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
Cells(l, 1) = Mid(b, 2, Len(b) - 1)
Next
Next d
End Sub
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-10-2017, 09:51   #17
ahmedummu
Altın Üye
 
ahmedummu kullanıcısının avatarı
 
Giriş: 21/06/2009
Şehir: Ankara
Mesaj: 275
Excel Vers. ve Dili:
2003 türkçe
Varsayılan

Elinize sağlık sayın askm.
__________________
Burası Excel Vadisi
Burada Excel Konuşulur.
ahmedummu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-10-2017, 09:55   #18
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,622
Excel Vers. ve Dili:
2010-2016
Varsayılan

Rica ederim. Asıl kodun iskeletini oluşturan antonio ye teşekkür ederiz. Ben sadece isteğe göre kodda oynama yaptım. Kolay gelsin.
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-10-2017, 17:01   #19
mars2
Altın Üye
 
Giriş: 02/09/2004
Mesaj: 297
Varsayılan

Sayın askm, antonio;

İlgi ve yardımlarınız teşekkürler.
mars2 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-11-2017, 08:47   #20
mars2
Altın Üye
 
Giriş: 02/09/2004
Mesaj: 297
Varsayılan

Sasyın Ustatlar;
Konu hakkında yeniden yardımlarınız esirgememeniz dileğimle,
koda göre; her biri 4'li olmak üzere üç adet farklı rastgele sayı veya harften oluşan kombinasyon (şifre) vermekte, ancak son dörtlü şifrenin diğerlerinden farklı olarak 6'li gelmesini istemekteyim.

Örnek:
As42-45ğH-7k/d92
mars2 Ç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 17:05


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- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden