Başarısız Kazanımları Belirleme

[pisagor26]

Değerli arkadaşlar, ekte yer alan çalışmada öğrencilerin kazanımlara (sorulara ) göre yüzde başarı durumları yer almakta. Amacım %50 nin altında yer alan başarısız kazanımların M sütununda yer alan kısma otomatik olarak yazılması. Yardımlarınızı bekliyorum...Teşekkür ediyorum...

 

[Merhum İdris SERDAR]

..


Dosyanız ekte.


..

 

[antonio]

Aşağıdaki makroyu Örnek dosyanıza göre yazdım. Deneyiniz.

Sub negatif_kazanimlari_getir()
Dim sh As Worksheet, ss As Long, negatif As String

Set sh = Sheets(Sheets(1).Name)
ss = sh.Range("A56789").End(3).Row
negatif = ""
For i = 4 To ss
    For d = 3 To 12
        If sh.Cells(i, d).Value < 50 Then
            negatif = sh.Cells(3, d).Value & ", " & negatif
        End If
    Next d
    sh.Range("M" & i).Value = negatif
    negatif = ""
Next i
MsgBox "İşlem tamamlandı", vbInformation, "antonio"
End Sub

İdris Hoca cevaplamış, farketmedim. Benimki alternatif olsun.

 

[pisagor26]

Teşekkür ediyorum yardımlarınız için...Süpersiniz....

 

[pisagor26]

Antonio Bey, öncelikle gönderdiğiniz kod için teşekkür ediyorum... Göndermiş olduğum örnek excel çalışmasında çok güzel çalıştı. Fakat bu kodu önceden hazırlanmış başka excel sayfalarında çalıştıramıyorum. Nedeni ne olabilir acaba...

 

[antonio]

Antonio Bey, öncelikle gönderdiğiniz kod için teşekkür ediyorum... Göndermiş olduğum örnek excel çalışmasında çok güzel çalıştı. Fakat bu kodu önceden hazırlanmış başka excel sayfalarında çalıştıramıyorum. Nedeni ne olabilir acaba...

Olası nedenler:
1-Dosyanız kodlarda belirtildiği gibi ilk sırada değildir. (Sheets(1)) Dosyanızın sekmesine tıklayıp basılı tutarak ilk sıraya sürükleyin. Hücre formatı da aynı ise çalışması lazım.
2-Dosyanızı kaydederken dosya türünü titizlikle inceleyin. xlsx uzantısı ile kaydedilen dosya türlerinde makrolar otomatik olarak silinir. .xlsm veya .xls olarak kaydetmeye özen gösteriniz.