1. sayfadaki liste 2. sayfada sıralama.

[brkock]

Merhaba arkadaşlar merhabalar herkese benim sorunum;
1. fotoğrafda olduğu gibi belli bi sayılı bi listeyi (ornegn 1000 kişi diyelim) 1000 kişi elle punlarını gireceğim ve ve onları
2. fotoğrafdaki gibi sadece onların en fazla puanı olan 10 kişiyi sıralayacağım ..

acaba formulü nasıl yazılıyordur bir yardım ederseniz teşükkürler..

 

[Mahir64]

Merhaba,

Sıralama olarak arama yaparsanız örnekler bulabilirsiniz.

 

[Murat OSMA]

Aynı sayfada, en yüksek puana sahip 10 kişiyi sıralamak için ADO ile bir örnek veriyorum.

[SIZE="2"]Sub Emre()
    Dim con As Object, rs As Object
    Set con = CreateObject("Adodb.connection")
    Set rs = CreateObject("Adodb.recordset")
    Application.ScreenUpdating = False
    Range("G:I").ClearContents
    con.Open "provider=microsoft.jet.oledb.4.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 8.0;hdr=yes"""
    sorgu = "Select Adı, Soyadı, Puanı from [Sayfa1$]"
    sorgu = sorgu & "group by Puanı, Adı, Soyadı order by Puanı desc "
    rs.Open sorgu, con, 1, 1
    Range("G65536").End(3)(2, 1).CopyFromRecordset rs
    Range("G12:I1203").Select: Selection.ClearContents: [I2].Select
    rs.Close: con.Close
    Set con = Nothing: Set rs = Nothing
    Application.ScreenUpdating = True
 End Sub[/SIZE]

 

[Murat OSMA]

İşinizi gördü mü acaba ?

 

[brkock]

Şuan denemekteyim. Biraz sonra tekrar yazarım teşekkürler.. şmdiden..

 

[brkock]

eed murat bey süper tam istediğim gibi birşey daha sorcaktım ben bu bilgileri bilgisayarımda girerken bilgisayarımı 2. monitöre bağlayıp yani şunu anlatmaya çalışıyorum kendi bilgisayarımda girdiğim veriler kocaman led ekranda sadece liste olarak çıkmasını nasıl sağlaya bilirim acaba.. ?

 

[Murat OSMA]

Lütfen gerekli yerlerde nokta ve/veya virgül koymayı unutmayın...
Bu şekilde yazdıklarınızı anlamıyorum. Acaba ne denilmek istenmiş acaba diye çözmekle vakit kaybetmek istemiyorum...

Anlayışınız için teşekkür ederim.

Birazdan güzel birşey gönderirim size...

 

[Murat OSMA]

Ek'teki dosyayı inceleyiniz.
Umarım istediğiniz olmuştur.

 

[brkock]

afedersiniz, tekrar teşekkürler sorun için özür dilerim.

Derlenmiş ve toparlanmış olmuş teşekkürler ama listele butonuna bastıktan sonra, listedeki ilk on kişi sürekli açık kalması lazım şöyle anlatayım;

Bilgisayarda boş bir yere sağ tıklanıldığında gelen ekranı 2. monitöre genişlet seçeneği olduğunu var sayın ve bilgisayarıma 2. monitörün takılı olduğunu düşünün.

1. monitörde bu excelden yazacağım liste, ki bu sürekli güncellenecek bir liste olacak,
2. monitörde olacak olan sizin çok güzel düzenlediğiniz ve gönderdiğiniz makroda olduğu gibi listele yapınca sürekli 2. monitörde açık kalması lazım..

bunu nasıl sağlarız acaba...