excel kütüphanede ençok kitap okuyan yardım

[radikal52]

Ben kütüphanede çalışıyorum excelde kayıtları tutmak istiyorum.fakat en çok kitap okuyanı en fazla okunan kitapları ve kitapları iade etmeyen listesini n devamlı güncelli halini nasıl görebilirim.listenin en üstünde en fazla okunan veya okuyan gelecekşekilde nasıl olur.siz değerli ve tecrübeli arkadaşların desteğini bekliyorumdosyayı ekliyorum

 

[Orion1]

En çok okuyan bölümünü ben yapayım.
VBA kodlama yapılmıştır.
Hatırlatma:Güvenlik seviyenizi düşürmeniz lazım.
dosyanız ektedir.

Sub kitapokuma_59()
Dim sat1 As Long, sat2 As Long, i As Long, sh As Worksheet
Sheets("EN ÇOK OKUYANLAR").Select
Range("A2:D1000000").ClearContents
Set sh = Sheets("KİTAPLIK OKUMA")
sat1 = sh.Cells(65536, "E").End(xlUp).Row
If sat1 < 2 Then Exit Sub
Application.ScreenUpdating = False
sat2 = 2
For i = 2 To sat1
    If WorksheetFunction.CountIf(sh.Range("E2:E" & i), sh.Cells(i, "E").Value) = 1 Then
        Cells(sat2, "A").Value = sh.Cells(i, "E").Value
        Cells(sat2, "B").Value = sh.Cells(i, "C").Value
        Cells(sat2, "C").Value = sh.Cells(i, "D").Value
        Cells(sat2, "D").Value = WorksheetFunction.CountIf(sh.Range("E" & i & ":E" & sat1), sh.Cells(i, "E").Value)
        sat2 = sat2 + 1
    End If
Next i
If sat2 - 1 > 1 Then
    Range("A2:D" & sat2 - 1).Sort Range("D2"), xlDescending
    Application.ScreenUpdating = True
    MsgBox "En çok okuyanlar çıkarıldı." & vbLf & "evrengizlen@hotmail.com" & vbLf & _
    "14.04.2011", vbOKOnly + vbInformation
End If
    Application.ScreenUpdating = True
End Sub

 

[radikal52]

bilgileri güncellemiyor.örneğin bugün listeye bir kişi eklediğimde okuyan listesinde değişiklik olmuyo.bir de en çok okunan kitap.iade tarihi gelmesine rağmen iade edilmeyenlerin listesini de görecek şekilde nasıl yapılabilir

 

[Orion1]

bilgileri güncellemiyor.örneğin bugün listeye bir kişi eklediğimde okuyan listesinde değişiklik olmuyo.bir de en çok okunan kitap.iade tarihi gelmesine rağmen iade edilmeyenlerin listesini de görecek şekilde nasıl yapılabilir

Nasıl güncellemiyor.
Butona basıyormusunuz peki.
EN ÇOK OKUYANLAR sayfasında buton var .Ona tıkladınızmı?
Ben denedim gayet iyi çalışıyor.
örnek:
2252 No lu kişiyi
235nci satıra ekledim.
Önceden 1 tane idi.Ekledikten sonra butona basınca 2 tane gösterdi.
Nersi güncellemiyor anlamdım.
İsimleri boş bırakmayın
mutlaka isim girin.
Sonra diğer sayfadaki butona basın TIKLA butonuna.

 

[radikal52]

teşekkürler mekro çalışmıyordu etkinleştirdim düzeldi.arkadaşım bu işten iyi anlıyorsun.butona tıklamadan güncel olabilir mi?

 

[Orion1]

teşekkürler mekro çalışmıyordu etkinleştirdim düzeldi.arkadaşım bu işten iyi anlıyorsun.butona tıklamadan güncel olabilir mi?

Olurda gerek yok.
Burada sadece siz istediğiniz zaman kodlar çalışacak.
Kontrol sizde yani.
Diğerinde ise oto çalışır.
Bir kaç tetikleme şartı ile çalıştırabiliriz ama tavsiye etmem.
En iyisi budur.
ne olacak canım tıklayıverin butona.
Kodların her çalışması demek belli bir süre kilitlenmek demek.
Fonksiyonlardada ayni şey.
aslında onlarda kodlama ile yazılmışlar.
Yani worksheetfonksiyonalrıda .Ama C dili ile excel ile bütünleşikler diye biliyorum.
Çok sayıda fonksiyon ve topla çarpım gibi çok şartlı fonksiyonlar kullanırsanız kilitlenir uzun süre excel,büyük veri yığınlarında.
Şimdi az veride farketmezsiniz ama büyük veri yığınlarında zırt pırt duraklama canınızı sıkar.
Bence böyle kullanın.Beni dinleyin ,ciddi söylüyorum.
Buton en iyisidir.
Kontrol daima sizdedir.
vermeyin elinizden kontrolu hiç bir zaman.
iyi çalışmalar.

 

[radikal52]

evren gizlen arkadaşım diğer konularda da yardımcı olabilir misin?en çok okunan kitap listesi iade tarihi geçmiş fakat iade edilmemiş kişi ve kitapların listesi...