Belirli bir diziden satır seçmek

[explain]

Merhaba,
Arama yaptım ama benzer bir sorun ile karşılaşamadım, Eğer varsa ve ben bulamadıysam kusuruma bakmayın.Rastgele sayı arama gibi konular buldum ama işime yaramadı.

Elimde A sütununda alt alta dizilmiş A1 den A25000 e kadar satır bulunmakta ben rastgele bir satıra gitmek istiyorum. Diziler karmaşık ve ben daha karmaşık olarak seçmek istiyorum. seçtiğim satırların herhangi bir sayfaya eklenmesine bile gerek yok. Ama seçilen satır boyanabilirse iyi olur. Büyük ihtimalle çok kolay bir soru sordum.
Örnek olarak A1-A5. satırlar arası seçilebilecek kodlu bir dosya yaratabilirseniz ben ondan uyarlayabilirim.

Şimdiden teşekkür ederim.

 

[hamitcan]

Sub SatirSec()
Rows.Interior.Color = xlAutomatic
Randomize
a = Int((5 * Rnd) + 1)
Rows(a).Interior.Color = vbGreen
End Sub

 

[explain]

2 dakikada çözüm için,
Teşekkürler

 

[explain]

Koda başka birşeyler ekleyebilir miyiz?
Önceki isteğimde "seçtiğim satırların herhangi bir sayfaya eklenmesine bile gerek yok" demiştim ama... çok uzun bir liste olduğu için ve boyanan alana gitmediği için istiyorum.

Satırı seçsin boyasın kısmı tamam ek olarak ;

A ) seçtiği satıra gitsin

ya da

B ) seçtiği satırı yan sayfa taşısın 2. ve 3. seçimleri ve devam eden şekildeki seçimleri de taşıdığı yan sayfada alt alta sıralasın.

yine aynı örnek kod üzerinde uyarlama yapılabilir.

Sub SatirSec()
Rows.Interior.Color = xlAutomatic
Randomize
a = Int((5 * Rnd) + 1)
Rows(a).Interior.Color = vbGreen
End Sub


Çok teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub Rastgele_Satır_Seç()
    Dim Satır As Integer
    
    Rows.Interior.Color = xlAutomatic
    Randomize
    Satır = Int((25000 * Rnd) + 1)
    Rows(Satır).Interior.Color = vbGreen
    Rows(Satır).Select
End Sub

 

[explain]

Tam istediğim gibi oldu.
Çok teşekkürler tekrar

 

[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...

 

[hamitcan]

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
    Randomize
    a = Int((25000 * Rnd) + 1)
    Cells(a, 1) = "deneme"
End Sub