- Katılım
- 10 Mart 2019
- Mesajlar
- 6
- Excel Vers. ve Dili
- 2016
Merhabalar elimde olan ürünlerin rastgele şekilde (HARF,SAYI,SAYI (örn. F13)) önek oluşturmak istiyorum fakat çoğu sitelere bakmama rağmen çözüm sağlıyamadım yardım ederseniz sevinirim
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
cevabınız için teşekkürler fakat demek istediğim bu değil A15 - B11 C56 tarzı olacak
Sub rastgeleKod()
For i = 1 To 100
k = Chr(WorksheetFunction.RandBetween(65, 90))
k = k & Format(WorksheetFunction.RandBetween(1, 99), "00")
Cells(i, 1) = k
Next i
End Sub
Function rastgeleUret()
k = Chr(WorksheetFunction.RandBetween(65, 90))
k = k & Format(WorksheetFunction.RandBetween(1, 99), "00")
rastgeleUret = k
End Function
evet istemiş olduğum buydu çok teşekkür ederimKod:Sub rastgeleKod() For i = 1 To 100 k = Chr(WorksheetFunction.RandBetween(65, 90)) k = k & Format(WorksheetFunction.RandBetween(1, 99), "00") Cells(i, 1) = k Next i End Sub
Kod:Function rastgeleUret() k = Chr(WorksheetFunction.RandBetween(65, 90)) k = k & Format(WorksheetFunction.RandBetween(1, 99), "00") rastgeleUret = k End Function