bir sütundaki verinin arasından birini istenen hücreye rastgele çağırma

[farisakboga]

iyi akşamlar. müşkülümü ustalara arzediyorum.

sayfa1'de işaretlediğim hücreler sayfa2'deki adlarına açılmış sütunlardan rastgele bir sayı çekecek, sayfa2'den çekilen sayı kırmızıya dönecek ve ben rengini değiştirmedikçe bir daha çağrılmayacak. Rengini değiştirdiğimde bir daha çağrılabilir.

teşekkür ederim.

 

[farisakboga]

Sub MetinSeç()
For i = 1 To 2
Sheets("sayfa1").Cells(4, 2) = Sheets("sayfa2").Cells(Int(Rnd() * 2500) + 1, "A")
Sheets("sayfa1").Cells(4, 4) = Sheets("sayfa2").Cells(Int(Rnd() * 1500) + 1, "B")
Sheets("sayfa1").Cells(4, 7) = Sheets("sayfa2").Cells(Int(Rnd() * 2000) + 1, "C")
Sheets("sayfa1").Cells(4, 9) = Sheets("sayfa2").Cells(Int(Rnd() * 1000) + 1, "D")
Sheets("sayfa1").Cells(7, 2) = Sheets("sayfa2").Cells(Int(Rnd() * 1000) + 1, "E")
Sheets("sayfa1").Cells(7, 4) = Sheets("sayfa2").Cells(Int(Rnd() * 2000) + 1, "F")
Sheets("sayfa1").Cells(7, 7) = Sheets("sayfa2").Cells(Int(Rnd() * 1000) + 1, "G")
Sheets("sayfa1").Cells(7, 9) = Sheets("sayfa2").Cells(Int(Rnd() * 1000) + 1, "H")
Sheets("sayfa1").Cells(10, 2) = Sheets("sayfa2").Cells(Int(Rnd() * 1500) + 1, "I")
Sheets("sayfa1").Cells(10, 4) = Sheets("sayfa2").Cells(Int(Rnd() * 1500) + 1, "J")
Sheets("sayfa1").Cells(10, 7) = Sheets("sayfa2").Cells(Int(Rnd() * 1000) + 1, "K")
Next
End Sub

Forumdan bulduğum bir kodla bişeyler yaptım ancak renklendirme, sütundaki dolu hücreleri otomatik algılama, tekrarın gelmemesi gibi, benim üstesinden gelebileceğim konular değil. ekte çalışmamın son hali var. yardımlarınızı bekliyorum.

 

[hımmmmmmmm]

çalışmayı deneyiniz

 

[farisakboga]

çok teşekkür ederim. tam istediğim gibi olmuş. elinize sağlık.

 

[farisakboga]

çalışmayı deneyiniz

çok teşekkür ederim. tam istediğim gibi olmuş. elinize sağlık.

 

[muygun]

Merhaba;
Bir Alternatif de benden
İnceleyin.
İyi çalışmalar.

 

[farisakboga]

Merhaba;
Bir Alternatif de benden
İnceleyin.
İyi çalışmalar.

emeğiniz için çok teşekkür ederim. elinize sağlık.