Rastgele sayıya göre hücre seçme

[bcomez]

1-10 arası rastgele üretmiş olduğum bir sayıya göre hücre nasıl seçebilirim. Örneğin A1 den A10 a kadar hücrelerde veri var. B1 hücresinde rastgele sayı üretiyorum ve çıkan sonuca göre A1-A10 arasında hücre seçtirmek istiyorum. Sayı 2 ise B1 hücresinde A2 hücresindeki veri olsun, sayı 5 se B1 hücresinde A5 hücresindeki veri olsun.
Teşekkürler

 

[Necdet]

Merhaba,

Rastgele sayıyı sanırım fonksiyonla üretiyorsunuz.

B1 :

=RASTGELEARADA(1;10)

gibi

Fakat B1 hücresindeki bu değişimi makro anlamıyor.
Ancak B1 hücresi içine girip Enter'a bastığınızda ancak anlaşılıyor.

Bu durumda aşağıdaki kodları kullanabilirsiniz, kodları ilgili sayfanın kod bölümüne kopyalamanız gerekir.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [B1]) Is Nothing Then Exit Sub
    
    Range("A" & Cells(1, "B")).Select
    
End Sub

Ne amaçla bu soruyu sordunuz bilmek isterdim.

Doğrudan makro ile de yapmak olası.

Örneğin herhangi bir hücreyi Çit Tıklandığında, Herhangi bir hücreyi seçtiğinizde ya da ilgili sayfaya geldiğinizde Rastgele sayı üretim A sütununda o hücreyi seçtirebilirsiniz.

Ben Çift Tıklama'ya örnek olarak aşağıdaki kodları veriyorum. Size en uygun ne ise onu kullanabilirsiniz.

Selection Change, ya da Activate olaylarına bağlayabilirsiniz kodları.

Kodlar ilgili sayfanın kod bölümünde olmalı

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    
    Randomize
    Range("B1") = CInt(Int((10 * Rnd()) + 1))
    
    Range("A" & [B1]).Select
    
End Sub

 

[Haluk]

B1 hücresine yazacağınız aşağıdaki formül, 1 ile 10 arasında bir rastgele bir sayı üretir ve ürettiği sayıya göre A1 ile A10 arasındaki hücrelerden birinden veri getirir.

Örneğin; üretilen sayı 5 ise A5 hücresini, 8 ise A8 hücresini ..... vb.

Sayfadaki hücrelerden herhangibirinde bir değişiklik olduğunda formül tekrar çalışacaktır.

=CHOOSE(RANDBETWEEN(1;10);A1;A2;A3;A4;A5;A6;A7;A8;A9;A10)

Eğer Türkçe Excel kullanıyorsanız, forumda formüllerin İngilizce - Türkçe karşılıklarını içeren mesajlardan faydalanabilirsiniz.

.