Personel & Zimmet Takip Programı (KZT-v.5) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1676.0

Gönderen Konu: Otomatik seçim  (Okunma sayısı 3968 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı jamesx

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Erkan Tuncay
  • Doğum Yılınız: 1982
  • İl / İlçe: İstanbul
  • İşletim Sisteminiz: Windows 7
  • Mesleğiniz: muhasebe
Otomatik seçim
« : 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
« Son Düzenleme: 18 Mart 2017, 14:25:42 Gönderen: Bülent Öztürk »

Çevrimdışı lark

  • Excelce Destek Ekibi
  • ****
  • İleti: 74
  • Puan +2/-2
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Turgay
  • İl / İlçe: İstanbul
  • Mesleğiniz: SMMM
Ynt: Otomatik seçim
« Yanıtla #1 : 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şıma bir şey gelecekse de ATATÜRK'ü seviyorum !

Çevrimdışı jamesx

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Erkan Tuncay
  • Doğum Yılınız: 1982
  • İl / İlçe: İstanbul
  • İşletim Sisteminiz: Windows 7
  • Mesleğiniz: muhasebe
Ynt: Otomatik seçim
« Yanıtla #2 : 10 Mart 2017, 15:19:26 »
Tam istediğim gibi üstad.. Çok teşekkür ederim :saygilar

Çevrimdışı lark

  • Excelce Destek Ekibi
  • ****
  • İleti: 74
  • Puan +2/-2
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Turgay
  • İl / İlçe: İstanbul
  • Mesleğiniz: SMMM
Ynt: Otomatik seçim
« Yanıtla #3 : 10 Mart 2017, 15:34:24 »
Rica ederim. Kolay gelsin.
Başıma bir şey gelecekse de ATATÜRK'ü seviyorum !