EBA Canlı Ders Raporlama

[3rkan]

27 Eylül 2020 tarihli EBA güncellemesi ile beraber oluşturduğum makroları birleştirdim. Ayrıca tablolamayı kolaylaştıran 2 yeni makro daha oluşturdum. Tek dosyadan tüm makrolara erişebileceksiniz.

Canlı Ders Programı Listeleme (Güncel / Geçmiş)
Öğrenci Bazlı Listeleme
Öğretmen Bazlı Listeleme
Öğrenci Geçmiş Canlı Ders Listeleme
Öğretmen Geçmiş Canlı Ders Listeleme

Not: Öğretmen adına tıkladıktan sonra 20 den fazla dersi varsa başka sayfalara girmeniz gerekiyor.  Tüm geçmişi tek sayfada görüntülemek için URL bölümünün sonuna tırnaksız "&pageSize=50" yazmanız gerekiyor. 50 değeri yetersiz gelirse artırabilirsiniz.

pageSize ayarı için örnek: https://bit.ly/343OtH0

*** GÜNCELLEME (17.12.2020) ***

- Çok farklı kullanım tipi nedeniyle dosya esnek hale getirildi (sutunAd makrosu eklendi). Böylece kendinize uygun sütun adlarını girerek verilerinizi sıralatabilirsiniz.
- sutunAd makrosunu kullanabilmek için dosyada bulunan SutunAd çalışma sayfasını açıp talimatları okuyun.
-  Eski makrolar silinmedi,  işinizi görüyorsa onlarla da devam edebilirsiniz.

EBA Canlı Ders Raporlama Dosyası Ver 2.3  (17.12.2020) : https://bit.ly/2KAglfW

[suhut03800]

sa hocam bir önceki exceli mi indirelim
yoksa bu paylaşımda excel dosyasını bulamadım

[smaeler]

İlgili excel dosyasını nereden indiriyoruz sayın hocam. Link bulamadım sayfada.

[3rkan]

İlgili excel dosyasını nereden indiriyoruz sayın hocam. Link bulamadım sayfada.

Videonun altında link var hocam. Buraya da bırakıyorum.

EBA Canlı Ders Raporlama Dosyası : https://bit.ly/337eW7f

sa hocam bir önceki exceli mi indirelim
yoksa bu paylaşımda excel dosyasını bulamadım

Yeni dosyayı kullanın hocam

EBA Canlı Ders Raporlama Dosyası : https://bit.ly/337eW7f

[AYŞE KIZILCADAM]

hocam raporlama çok güzel de ben makroyu yapamadım.excel makro nasıl oluşturacam.yararlanabileceğim bir yer var mı

[AYŞE KIZILCADAM]

raporlama konusu beni  heyecanlandırdı. bir de makro oluşturma öğrenirsem

[3rkan]

hocam raporlama çok güzel de ben makroyu yapamadım.excel makro nasıl oluşturacam.yararlanabileceğim bir yer var mı

Google araştırmasıyla makro oluşturmasını öğrenebilirsiniz hocam. Bende oradan öğreniyorum

[AYŞE KIZILCADAM]

HOCAM ÇOK UĞRAŞTIM AMA  MAKRO YAPAMADIM ARAŞTIRMA  YAPACAM. MÜMKÜNSE OLUŞTURDUĞUNUZ MAKRO TABLO SAYFASINI GÖNDERİR MİSİNİZ.PAYLAŞIR MISINIZ?

[3rkan]

Fikir edinebilmeniz için kodları buraya bırakıyorum. Bunlar ilk çalışmamdaki kodlar olduğu için karmaşık ve düzensiz. Kod bloklarının açıklamalarını yazmıştım, faydası olabilir. Hepsini direkt kullanmak yerine parça parça denemenizi tavsiye ederim.

Kod Seç Genişlet


Sub EBACanliDers()
Dim satir As Integer
Dim satir2 As Integer
Dim sutun As Integer
Dim x As Long
Dim bul As Variant
Dim degistir As Variant
Dim Subebul As Variant
Dim Subedegistir As Variant
Dim Sonsutun
Dim j As Long
Dim OtoGenislik As Integer
Dim SutunGenislik As Integer
Dim SatirYukseklik As Integer
'Satırları sütunlara dağıt

For satir = 1 To Range("A1").End(xlDown).Row
    satir2 = satir
    For sutun = 1 To 6
        Cells(satir, 1).Cut Cells(satir2, sutun)
        satir = 1 + satir
    Next
Next
' Oluşturuldu kelimesini sil

bul = "Oluşturuldu"
degistir = ""
    Cells.Replace what:=bul, Replacement:=degistir, _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
    SearchFormat:=False, ReplaceFormat:=False
' Boş satırları sil

With ActiveSheet
    For x = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
        If WorksheetFunction.CountA(.Rows(x)) = 0 Then
            ActiveSheet.Rows(x).Delete
        End If
    Next
 
End With
'Hücredeki şubeleri alt alta yaz

Subebul = "Şubesi"
Subedegistir = "Şubesi" & vbCrLf
    Cells.Replace what:=Subebul, Replacement:=Subedegistir, _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
    SearchFormat:=False, ReplaceFormat:=False
' C sütunundaki her hücrenin son karakterini sil

 Sonsutun = Columns("C")
 For j = 1 To UBound(Sonsutun)
 If Not Sonsutun(j, 1) = "" Then Sonsutun(j, 1) = Left(Sonsutun(j, 1), Len(Sonsutun(j, 1)) - 1)
 Next j
 Columns("C") = Sonsutun
 'Boş satır ekle ve başlıkları gir

ActiveSheet.Rows(1).Insert Shift:=xlShiftDown
Range("A1").Value = "Dersin Adı"
Range("B1").Value = "Ders"
Range("C1").Value = "Atanan Şubeler"
Range("D1").Value = "Öğretmenin Adı Soyadı"
Range("E1").Value = "Tarih"
Range("F1").Value = "Saat"
Range("A1", "F1").Font.Size = 14
Range("A1", "F1").Font.Bold = True
 ' Otomatik hücre genişlet
 
For OtoGenislik = 1 To ActiveSheet.UsedRange.Columns.Count
      Columns(OtoGenislik).EntireColumn.AutoFit
Next OtoGenislik
'Tablo stilini uygula

FinalRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(1, 1), Cells(FinalRow, LastColumn)), , xlYes).Name = "Data"
ActiveSheet.ListObjects("Data").TableStyle = "TableStyleMedium2"
' Başlık için boş satır ekle ve hücreleri birleştir

ActiveSheet.Rows(1).Insert Shift:=xlShiftDown
Range("A1:F1").Merge
Range("A1").Value = "....... EBA Canlı Ders Programı"
With Range("A1")
.RowHeight = 50
.Font.Bold = True
.Font.Size = 22
.Interior.Color = RGB(117, 223, 255)
End With
' Tüm hücrelere kenarlık ekle ve yatay-dikey düzlemde ortala

ActiveSheet.UsedRange.Borders.LineStyle = xlContinuous
ActiveSheet.UsedRange.VerticalAlignment = xlVAlignCenter
ActiveSheet.UsedRange.HorizontalAlignment = xlHAlignCenter
' Satır yüksekliği ve sütun genişliklerini ayarla

Range("A2").RowHeight = 30
For SutunGenislik = 1 To 6
Cells(2, SutunGenislik).ColumnWidth = Cells(2, SutunGenislik).ColumnWidth + 4
Next
For SatirYukseklik = 3 To Range("A3").End(xlDown).Row
Cells(SatirYukseklik, 1).RowHeight = Cells(SatirYukseklik, 1).RowHeight + 5
Next
' Tablodaki filtre butonunu kaldır

Range("A2:F2").AutoFilter

End Sub




[3rkan]

Excel dosyası güncellendi

[zed026]

Erkan Hocam , emeğinize sağlık takibi çok çok kolaylaştırdınız..

[3rkan]

Erkan Hocam , emeğinize sağlık takibi çok çok kolaylaştırdınız..

Teşekkür ederim öğretmenim. Bu tür uygulamaları vakit buldukça kodlamaya çalışacağım

[Mahfuz YILDIZ]

Hocam öncelikle güzel emeğiniz için teşekkür ederim. Harici ders tanımlama olayında raporlar eski canlı dersleri çıkarıyor. Lise için. Bu konu da bilginiz var mı.

[3rkan]

Hocam öncelikle güzel emeğiniz için teşekkür ederim. Harici ders tanımlama olayında raporlar eski canlı dersleri çıkarıyor. Lise için. Bu konu da bilginiz var mı.

Maalesef hocam bilgim yok bu konuda.

[3rkan]

Dosya güncellendi, esnek hale getirildi.