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
sa hocam bir önceki exceli mi indirelim
yoksa bu paylaşımda excel dosyasını bulamadım
İlgili excel dosyasını nereden indiriyoruz sayın hocam. Link bulamadım sayfada.
Alıntı yapılan: smaeler - 29 Eylül 2020, 10:00:37 İ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
Alıntı yapılan: suhut03800 - 29 Eylül 2020, 09:46:25 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
hocam raporlama çok güzel de ben makroyu yapamadım.excel makro nasıl oluşturacam.yararlanabileceğim bir yer var mı
raporlama konusu beni heyecanlandırdı. bir de makro oluşturma öğrenirsem
Alıntı yapılan: AYŞE KIZILCADAM - 30 Eylül 2020, 13:16:01 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
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?
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.
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
Excel dosyası güncellendi
Erkan Hocam , emeğinize sağlık takibi çok çok kolaylaştırdınız..
Alıntı yapılan: zed026 - 26 Kasım 2020, 18:40:48 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
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ı.
Alıntı yapılan: Mahfuz YILDIZ - 27 Kasım 2020, 22:28:29 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.
Dosya güncellendi, esnek hale getirildi.