Rasgele-Random hücreye kayıt yapmak!

[romeos11]

Merhaba bir sorum olucaktı, forumda çok aradım ama bulamadım?
Userformdan exceldeki belirli bir sütundaki, rasgele bir hücreye nasıl kayıt yapılır?
rnd ve randomize gibi kodlar gördüm ama pek uzmanı değilim?

"Exceldeki shared özelliğini, aynı hücreye kayıtta uyarı veriyor ama kullanıcılar, rasgele bir hücreye kayıt yaparsa; çakışma olmaz... bu yüzden istiyorum"

şimdiden herkese teşekkürlerimi sunuyorum...

 

[YUSUF44]

Bunun için örnek bir dosyanız ve örnek dosyanızda da userformunuz var mı? Userformdaki hangi eleman rastgele hücre seçecek?

 

[romeos11]

İlgilendiğin için sağol kardeşim, biraz uğraştırdı ama deneye yanıla bu kodla istediğimi yaptım..
bi bak, sen daha iyi anlarsın..

Private Sub CommandButton26_Click()
Dim mutlu As Integer
Randomize
mutlu = Int((500 * Rnd) + 1)

Rows(mutlu) = Range("A6").End(3).Row

Cells(mutlu, "A") = Left(TextBox1.Value, 5)
Cells(mutlu, "B") = ComboBox2.Value
Cells(mutlu, "C") = ComboBox1.Value
Cells(mutlu, "D") = TextBox1.Value
End Sub