Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: jamesx - 10 Mart 2017, 10:43:41

Başlık: Otomatik seçim
Gönderen: jamesx - 10 Mart 2017, 10:43:41

Merhaba Arkadaşlar

A1:A40 arasındaki metin yada sayıyı butona bastığımda rastgele içlerinden bir tanesini seçmesini ve seçtiğini B1 hücresine yazmasını istiyorum
mümkünmüdür??


Alltaki resimde gördüğünüz gibi butona bastığımda A sütünundaki değerlerden rastgele 1 tanesini seçip sarıya boyadığım C4 hücresine (yada baska hücrede olabilir) yazmasını istiyorum

Başlık: Ynt: Otomatik seçim
Gönderen: lark - 10 Mart 2017, 14:03:29

Merhaba, B1'e yazanı;

Kod: [Seç]

Sub sec()
Randomize
sayi = Int(Rnd * 40) + 1
[b1] = Range("A" & sayi)
End Sub

Başlık: Ynt: Otomatik seçim
Gönderen: jamesx - 10 Mart 2017, 15:19:26

Tam istediğim gibi üstad.. Çok teşekkür ederim :saygilar

Başlık: Ynt: Otomatik seçim
Gönderen: lark - 10 Mart 2017, 15:34:24

Rica ederim. Kolay gelsin.