Ben de tam bunun üzerinde çalışıyordum. Bu işine yarar sanırım.
Sub rastgele_harf()
For x = 1 To 200
Range("C1").Formula = "=round(rand()*90,0)"
If Range("C1").Value > 64 Then
kelime = Chr(Range("C1").Value)
kelimex = kelimex + kelime
i = i + 1
Range("d1").Value = kelimex
If i > 8 Then Exit Sub ' 6 veye 7 yapabilirsin
End If
Next
End Sub
Sub rastgele_harf()
a = InputBox("Başlangıç Harfini Yazınız", "İlk Harf")
b = InputBox("Kaç harf üretmek istiyorsunuz", " Harf Sayısı")
For x = Asc(a) To Asc(a) + b - 1
harf = Chr(x)
kelime = kelime + harf
Range("A1").Value = kelime
Next
End Sub
özür dilerim ailevi nedenlerden dolayı net e uzun zamandır ugrayamadım. daha simdi cevabınızı aldım fakat benim istedigim
aaaaaa
aaaaab
aaaaac
aaaaad
......
zzzzzz
tarzı .. yardımlarınız icin cok tesekkureler
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.