Makro ile Sondan Başlayarak İlgili verileri almak.

[mrs303]

Selamlar,

Ekte yer alan örnekte de belirtiğim üzere, Bir liste içinde yer alan verileri en son satırdan başlayarak verilen kritere göre ilgili tabloya yazdırmak istiyorum. Bu işlemi makro yöntemi ile nasıl yapabileceğimi forumda bulamadım ve konu açmak durumunda kaldım.

Çözümleriniz için şimdiden teşekkür ederim.

 

[mrs303]

Güncel....

 

[hamitcan]

Sub SonDort()
    For Each hcr In [j3:j17]
        For i = [c65536].End(3).Row To 3 Step -1
            If hcr.Text = Cells(i, 3) Then
            c = c + 1
                If c <= [k1] Then
                k = k + Cells(i, 4)
                End If
            End If
        Next
        hcr.Offset(0, 1) = k
        hcr.Offset(0, 2) = k / [k1]
        k = 0
        c = 0
    Next
End Sub

 

[mrs303]

Sn Hamit Bey,
Öncelikle emek verip uğraştığınız için çok teşekkür ederim.

Lakin, Programda bazı eksiklikler var, Şöyleki;
K3 değerini seçtiğimizde sadece C sütunundakileri topluyor.
M ve N sütunlarındaki başarı adetlerini yazmıyor.

En sondan itibaren C ve F sütunlarını toplaması ve başarı adetlerini yazması gerekir.

Örneğin "Ali Türk" (sarı kısım) son 4 not için: 240 olması gerekirken sadece C deki "Ali Türk" 265 olarak yazıyor.

Aslında C36,F35,C28,F22 deki kişinin notlarını toplaması lazım. Ayrıca M3' e : 3 N3'de :1 yazmalı.

En sondan itibaren C ve F lerin değerlerini almak istiyorum.
Ben işin içinden çıkamadım, bu düzeltmeleri ekleyebilirseniz çok memnun olurum. Teşekkürler.

 

[hamitcan]

F ve H sütunlarını C ve E sütunlarının altına koysanız bu şekilde çözüm daha kolay olacaktır, böylece kodda da değişiklik yapmamıza gerek kalmaz. Ayrıca M ve N sütünlarındaki 3 ve 1 rakamları sabit mi ? Belirtirseniz, ona göre kodu düzenleriz.

 

[mrs303]

1. öneriniz güzel o şekilde yapabilirim.
M ve N sut. 3 ve 1 sabit değil. Kırmızı ile gösterilen kişilere ait başarı durumları. "Ali Türk" son 4 sınavda 3 başarılı 1 başarısız olmuş. bu şekilde olacak. Kırmızı ile belirtilen başarı durumu sayıları gelecek o sütunlara.

 

[hamitcan]

O zaman başarı durumunu eklersek sorun kalmaz.

 

[hamitcan]

Bu şekilde dener misiniz ?

Sub SonDort()
    For Each hcr In [j3:j17]
        For i = [c65536].End(3).Row To 3 Step -1
            If hcr.Text = Cells(i, 3) Then
            c = c + 1
                If c <= [k1] Then
                k = k + Cells(i, 4)
                If Cells(i, 5) = "başarılı" Then basarili = basarili + 1
                If Cells(i, 5) = "başarısız" Then basarisiz = basarisiz + 1
                End If
            End If
        Next
        hcr.Offset(0, 1) = k
        hcr.Offset(0, 2) = k / [k1]
        hcr.Offset(0, 3) = basarili
        hcr.Offset(0, 4) = basarisiz
        k = 0
        c = 0
        basarili = 0
        basarisiz = 0
    Next
End Sub

 

[mrs303]

Bu şekilde daha stabil olmuş, M ve N sütunları çalışıyor fakat anlamadığım bazı isimler tamamen sıfır gösteriyor örneğin;

Ayşe Ormancı
Cenk Başaran
Kemal Kılıç
Mehmet Atik

gibi isimler herzaman sıfır olmuş. Uğraşıyorum fakat bir türlü bulamadım. Siz kodu çalıştırıp denerseniz daha iyi anlayacağınıza eminim.

Teşekkürler.

 

[hamitcan]

F ve H sütunlarındaki bilgileri, C ve E sütunlarındaki bilgilerin altına yapıştırın.

 

[mrs303]

Sn Hamitcan

Dediğiniz şekilde yapınca oluyor, konuya gösterdiğiniz ilgi ve alakadan dolayı ve çözümünüz için çok çok teşekkürler. Emeğinize sağlık.