belirli aralıktan rasgele seçilen hücreleri birleştirmek

[cengiz3519]

arkadaşlar şöyle bir sıkıntım var

a1 den a100 arasında 100 adet farklı isimler var ben bunlardan rasgele 5 tanesini seçip b1 hücresinde aralarında boşluk bırakmadan peşpeşe ekleyeceğim. benim buradaki problemim rasgele seçme komutu nedir, nasıl kullanılır, ve rasgele seçilen her hücrenin farklı olması için ne yapılabilir???


(bu soru özel rasgele komutunun çalışma mantığını bilenler için) bir de rasgele komutu hakkaten rasgelemidir.

 

[kombo]

Sayın cengiz3519

İstediğiniz işlemin metin olarak nasıl olabileceği konusunda bilgi sahibi değilim. Ama şöyle bir şey yapılabilir. Sayı olarak rastgele seçim yapılır ve sayı karşılığı hücreye yazılabilir. Böyle yapılmış dosya ekte.



Özür Dilerim soruyu yanlış anlamışım. Eklediğim dosyayı kaldırdım.

 

[agent1980]

Merhabalar...

Şöyle bir şey denedim istediğiniz gibi olmuştur inşallah

 

[Seyit Tiken]

Çalışmanıza uygun olanı deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:a100]) Is Nothing Then Exit Sub
[b1] = [b1] & Target
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a1:a100]) Is Nothing Then Exit Sub
[b1] = [b1] & Target
End Sub