Makro ile Ortalama Hesaplama

[Hüseyin61]

Değerli dostlar merhaba;
Ekte gönderdiğim dosyada formüllerle yaptığım hesaplama var. Bu tür çalışmalarda makrolar formüllere göre daha etkili ve formül kopyalama sorunu olmuyor. Sizden ricam formüllerle gösterilen ortalama ve sonuç kısımları makro ile yazdırmama yardımcı olmanız. Şimdiden yardımlarınız için teşekkür ederim.

 

[Mdemir63]

Selamlar

inceleyiniz

 

[klop01]

Hoca'm,
İsteklerinizi karşılayan dosya ektedir.
Dosya içerisine gerekli açıklamaları yaptım.

 

[Hüseyin61]

Hoca'm,
İsteklerinizi karşılayan dosya ektedir.
Dosya içerisine gerekli açıklamaları yaptım.

Çok teşekkür ederim. Ancak sanırım gözünüzden kaçmış. Ortalama alındıktan sonra sonucun 25 ile çarpılması gerekiyor. notlar 1,2,3 ve 4 olarak girilecek. ortalama 4 ise 100, 3 ise 75 görünecek. Sonuç kısmında sorun yok.

 

[Mdemir63]

Selamlar

Sayın @klop01 ' un kodlarındaki
Bu satırı

Cells(row, 55).value = sum / count ' BC sütunu (kolon 55)

Aşağıdaki gibi değiştirin

Cells(row, 55).value = ()sum / count)*25 ' BC sütunu (kolon 55)

 

[Hüseyin61]

Hoca'm,
İsteklerinizi karşılayan dosya ektedir.
Dosya içerisine gerekli açıklamaları yaptım.

Sorunu halletim tekrar teşekkür ederim.

 

[Hüseyin61]

Selamlar

Sayın @klop01 ' un kodlarındaki
Bu satırı

Cells(row, 55).value = sum / count ' BC sütunu (kolon 55)

Aşağıdaki gibi değiştirin

Cells(row, 55).value = ()sum / count)*25 ' BC sütunu (kolon 55)

Çok teşekkür ederim

 

[Hüseyin61]

Değerli arkadaşlar; sizin de yardımlarınızla ekte gönderdiğim sayfaları oluşturdum. Sayfaları korumaya aldığımda makro sayfa koruma uyarısı veriyor. Bu nedenle özellikle ölçek sayfalarını formüllerden kurtarmak istiyorum. Ölçek başlıklarındaki formüllerden yararlanarak, 1. ve 2. satırın da makro ile çalışmasını sağlayabilir miyiz? Yardımcı olursanız sevinirim.

 

[klop01]

Merhaba,
Makronun sayfa koruma uyarısı vermemesi için Ortalama ve Sonuç sütunlarını seçiniz (veri girişi yapılan tüm hücreleri) ve sağ tık yaparak "Hücreleri Biçimlendir"i seçip "Koruma" sekmesindeki Kilitli 'nin önündeki tikleri kaldırınız. İşlemi tüm sayfalarda yapmalısınız.

ÖNEMLİ
Aşağıdaki durumları kontrol ediniz.
1. Sayfa kodlarında (Çok sayfada var.) yer alan Cells(row, 35).value = sum / count * 25 ' AI sütunu (kolon 35) satırı ortalamayı doğru hesaplamıyor.
Doğru işlemi yapan satır şöyle olmalı: Cells(row, 35).value = sum / count ' AI sütunu (kolon 35) *25 olamamalı.

2. Modüle5'teki kodları aşağıdaki gibi değiştirirseniz makro çalışırken yapılan işlemleri göstermeyerek görüntü kirliliği engellenir.

Sub DikdörtgenKöşeleriYuvarlatılmış34_Tıkla()
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In Worksheets
    sh.Protect "1"
Next
MsgBox "Tüm sayfalar korundu."
Application.ScreenUpdating = True
End Sub
Sub DikdörtgenKöşeleriYuvarlatılmış44_Tıkla()
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In Worksheets
    sh.Unprotect "1"
Next
MsgBox "Tüm sayfaların koruması kaldırıldı."
Sheets("AnaSayfa").Select
Application.ScreenUpdating = True
End Sub

 

[klop01]

Yukarıda bir soru daha varmış, gözümden kaçmış.

1. Öğrenci Listesi sayfasındaki H3 hücresini seçip VERİ sekmesindeki Veri Doğrulama'yı açınız.
2. Açılan pencerede Ayarlar sekmesi İzin Verilen bölümünde "Özel"'i seçiniz.
3. Alttaki formül bölümüne =ÖZDEŞ(H4;BÜYÜKHARF(H4)) formülünü yazınız.
4. Hata Uyarısı sekmesine gidip Stil bölümünü Durma yapınız.
5. Hata İletisini bölümüne "Okulun adını büyük harfle yazınız." yazınız.
NOT: Okul adı yazılırken "İLKOKULU" ifadesi de H4 hücresine yazılmalı. Bu ifade de okulun adının bir parçası çünkü.

6. Bu şekilde diğer hücreleri (ders adları da dâhil) de ilgili formülü o hücreye göre güncelleyerek veri doğrulama ile doğrulatınız.
Diğer hücrelerde Hata İletisini bölümü o hücrenin içeriğine göre farklı yazılmalı. Örneğin H4 hücresinde "Şube adını büyük harfle yazın." olmalı.

Bu biçimde ölçek sayfalarında başlıklar büyük harf olmak zorunda kalacaktır.

SONRA
Ölçek sayfalarının kod bölümüne aşağıdaki kodu yazın.
Aşağıdaki kod HB1 sayfası için oluşturulmuştur. Diğre sayfaları ilgili sayfanın durumuna göre ilgili yerleri değiştirerek oluşturun.
Bu biçimde sayfa her aktif olduğunda kod çalışıp A1 ve A2 hücrelerine başlıkları yazacaktır.
ÖNEMLİ: A1 ve A2 hücrelerinde sayfa koruma tikları var. Tüm sayfalarda bu tikları kaldırmalısınız.
HB1 sayfasında başlığın nasıl yazıldığını ve Öğrenci Listesi sayfasındaki H4 Hücresindeki veri doğrulamayı aşağıdaki dosyada görebilirsiniz.

Private Sub Worksheet_Activate()
    ' Sayfa aktif olduğunda çalışacak kodlar
  
    ' A1 hücresine yaz
    Range("A1").Value = Sheets("Öğrenci Listesi").Range("H5").Value & " EĞİTİM VE ÖĞRETİM YILI " & _
                        Sheets("Öğrenci Listesi").Range("H3").Value & " " & _
                        Sheets("Öğrenci Listesi").Range("H4").Value & " SINIFI"
  
    ' A2 hücresine yaz
    Range("A2").Value = Sheets("Öğrenci Listesi").Range("H7").Value & " DERSİ " & _
                        Sheets("Öğrenci Listesi").Range("I7").Value & " KAZANIM DEĞERLENDİRME ÖLÇEĞİ"
End Sub

 

[Hüseyin61]

Yukarıda bir soru daha varmış, gözümden kaçmış.

1. Öğrenci Listesi sayfasındaki H3 hücresini seçip VERİ sekmesindeki Veri Doğrulama'yı açınız.
2. Açılan pencerede Ayarlar sekmesi İzin Verilen bölümünde "Özel"'i seçiniz.
3. Alttaki formül bölümüne =ÖZDEŞ(H4;BÜYÜKHARF(H4)) formülünü yazınız.
4. Hata Uyarısı sekmesine gidip Stil bölümünü Durma yapınız.
5. Hata İletisini bölümüne "Okulun adını büyük harfle yazınız." yazınız.
NOT: Okul adı yazılırken "İLKOKULU" ifadesi de H4 hücresine yazılmalı. Bu ifade de okulun adının bir parçası çünkü.

6. Bu şekilde diğer hücreleri (ders adları da dâhil) de ilgili formülü o hücreye göre güncelleyerek veri doğrulama ile doğrulatınız.
Diğer hücrelerde Hata İletisini bölümü o hücrenin içeriğine göre farklı yazılmalı. Örneğin H4 hücresinde "Şube adını büyük harfle yazın." olmalı.

Bu biçimde ölçek sayfalarında başlıklar büyük harf olmak zorunda kalacaktır.

SONRA
Ölçek sayfalarının kod bölümüne aşağıdaki kodu yazın.
Aşağıdaki kod HB1 sayfası için oluşturulmuştur. Diğre sayfaları ilgili sayfanın durumuna göre ilgili yerleri değiştirerek oluşturun.
Bu biçimde sayfa her aktif olduğunda kod çalışıp A1 ve A2 hücrelerine başlıkları yazacaktır.
ÖNEMLİ: A1 ve A2 hücrelerinde sayfa koruma tikları var. Tüm sayfalarda bu tikları kaldırmalısınız.
HB1 sayfasında başlığın nasıl yazıldığını ve Öğrenci Listesi sayfasındaki H4 Hücresindeki veri doğrulamayı aşağıdaki dosyada görebilirsiniz.

Private Sub Worksheet_Activate()
    ' Sayfa aktif olduğunda çalışacak kodlar
 
    ' A1 hücresine yaz
    Range("A1").Value = Sheets("Öğrenci Listesi").Range("H5").Value & " EĞİTİM VE ÖĞRETİM YILI " & _
                        Sheets("Öğrenci Listesi").Range("H3").Value & " " & _
                        Sheets("Öğrenci Listesi").Range("H4").Value & " SINIFI"
 
    ' A2 hücresine yaz
    Range("A2").Value = Sheets("Öğrenci Listesi").Range("H7").Value & " DERSİ " & _
                        Sheets("Öğrenci Listesi").Range("I7").Value & " KAZANIM DEĞERLENDİRME ÖLÇEĞİ"
End Sub

Çok değerli kardeşim klop01; Önceki çalışmalarda da sizin yardımlarınızdan faydalanmıştım. Sizin verdiğiniz kodları 55 kolonlu sayfalarda uygulamıştım. Orda *25 yoktu. Sayın mdemir63 ün uyarısıyla düzeltmiştim. Şimdiki uyguladığım sayfalarda 35 kolon var. Sizin kodlarınızı yapay zekada yazdırdım ve o şekilde uyguladım. Ben kod yazamıyorum ama sizin yardımlarınızla elimden geldiğince uygulamaya çalışıyorum. O kadar açıklayıcı bilgiler verdiniz ki, gerçekten çok teşekkür ederim. Düzenleme yaptığınız sayfayı ve açıklamalarınız dikkate alarak yeniden düzenleme yapacağım. Ben de bu uygulamalarla diğer meslektaşlarımıza yardımcı olmaya çalışıyorum. Hakkını helal kardeşim. (Kardeşim diyorum, yaşını bilmiyorum, ben 57 yaşındayım, 37 yıllık öğretmenim.)

 

[klop01]

Hüseyin61 Hoca'm,
Rica ederim, meslektaş dayanışması olmuş oldu.
Ben de 47 yaşında Türkçe öğretmeniyim.
Kodlamada basit kodlar dışında ben de yardım alıyorum.
Yapay zeka, forumlar vb.
İyi çalışmalar dilerim.