Otomatik Şifre oluşturma

[johnwick5208]

merhaba arkadaşlar. Excel 8 haneli otomatik şifre oluşturma nasıl yaparız?Herhangi bir hücreye otomaik 8 haneli şifre ataması yapacak şekilde nasıl yapabiliriz?

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub kod()
Dim krktr As String, sfr As String, a As Byte
krktr = "0123456789"
Randomize
For a = 1 To 8
    sfr = sfr & Mid(krktr, Int(Rnd * Len(krktr)) + 1, 1)
Next
Range("A1") = sfr
End Sub

 

[johnwick5208]

Merhaba,
Deneyiniz...

Sub kod()
Dim krktr As String, sfr As String, a As Byte
krktr = "0123456789"
Randomize
For a = 1 To 8
    sfr = sfr & Mid(krktr, Int(Rnd * Len(krktr)) + 1, 1)
Next
Range("A1") = sfr
End Sub

Hocam bu kodu butona atama nasıl yapabilirim?
Şifret üret adında butona ekleyebilir miyiz?

 

[ÖmerBey]

Aşağıdaki konuları inceleyiniz...
Sayfada Buton-Düğme Oluşturmak ve Makro Atamak-1 (Resimli Anlatım)
Sayfada Buton-Düğme Oluşturmak ve Makro Atamak-2 (Resimli Anlatım)
Sayfada CommandButton Oluşturmak ve Makro Atamak (Resimli Anlatım)