Reklam Alanı - 1

EBA Canlı Ders Raporlama

Başlatan 3rkan, 29 Eylül 2020, 00:52:46

« önceki - sonraki »

0 Üyeler ve 2 Ziyaretçiler konuyu incelemekte.

3rkan

29 Eylül 2020, 00:52:46 Son düzenlenme: 18 Aralık 2020, 10:43:10 3rkan Sebep: Dosya Güncellendi Ver. 2.0
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

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



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

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


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.


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

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


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

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.


3rkan

Dosya güncellendi, esnek hale getirildi.



Benzer Başlıklar (5)

YASAL UYARI

Sitemizde yayınlanan içeriklerin büyük bir kısmı sitemize ait yada içerik sahiplerinin izinleri alınmış veya kaynak gösterilerek yayınlan içeriklerdir. Telif Hakları Yasasına uymadığını düşündüğünüz içerikleri bildirmeniz halinde incelenip 7 gün içinde silinecektir. Sitemizin içeriklerinin de izinsiz veya kaynak gösterilmeden yayınlanması yasaktır.

2012 @ Tüm Hakları Saklıdır.