bir sütundaki belirsiz sayıda veriden 5 tanesini seçip başka bir sütunda sıralamak

[astrae]

merhaba.... başlıkta da yazdığım gibi , a sütunundaki belirsiz sayıda veriden (hergün eklenebilecek şekilde) 5 tanesini seçip farklı bir sütunda gösterebilecek bir program yapmak istiyorum. yardımcı olabilir misiniz....

 

[astrae]

yardımcı olabilir misiniz ... makro mu formül mü, nasaıl yapabilirim ...

 

[mersilen]

Merhaba
İnceleyiniz.

Private Sub CommandButton1_Click()
Set [COLOR="Red"]s1 = Worksheets("Sayfa1")[/COLOR]
sonsat1 =[COLOR="Red"] s1[/COLOR].Cells(65536, "A").End(xlUp).Row

Range("b1:b5") = Clear
For i = 1 To 5
git:
   a = Application.WorksheetFunction.RandBetween(Cells(1, "a"), Cells(sonsat1, "a"))
   If WorksheetFunction.CountIf(Range("b1:b5"), Cells(a, "a")) < 1 Then Cells(i, "b") = Cells(a, "a") Else GoTo git:
Next i
End Sub

 

[astrae]

çok teşekkürler.. inceledim birkaç sorum olacak... öncelikle veri ekleyip çıkartınca hata veriyor. sanırım kodu değiştirmem gerekecek.. bunu nasıl yapabilirim anlatır mısınız. ve kodu başka bir excel sayfasında neden kullanamıyorum?

 

[mersilen]

Merhaba

Randbetween komutundan dolayı veri ekleyince sayfayı kapatıp açmak gerekiyor gibi , yada kodu aşağıdaki ile değiştirince sorun olmadı.En azından bende.
Kodlar sayfa1 de çalışacak şekilde yazıldı,
kodda kırmızı yerleri inceleyin.

Private Sub CommandButton1_Click()
Set [COLOR="Red"]s1 = Worksheets("Sayfa1")[/COLOR]
sonsat1 = [COLOR="Red"]s1[/COLOR].Cells(65536, "A").End(xlUp).Row

Range("b1:b5") = Clear
For i = 1 To 5
git:
   a = Application.WorksheetFunction.RandBetween([COLOR="Red"]1, sonsat1[/COLOR])
   If WorksheetFunction.CountIf(Range("b1:b5"), Cells(a, "a")) < 1 Then Cells(i, "b") = Cells(a, "a") Else GoTo git:
Next i
End Sub

 

[astrae]

çok teşekkürler... şimdi sanıyorum sorun kalmadı....

 

[astrae]

bir şey daha rica edebilir miyim. ekteki dosyadaki gibi yerleştirilmiş belirsiz sayı ve sütundaki verilerden 5 tanesini rastgele seçip diğer verileri görünmez hale getirebilir miyiz?[


dosya ekleyemedim.. ama tarif edebilirim...,
,

1 2 3 4 5 6 7 8 9
a b c d e f g h j ..... gibi....