vba ile e-okul devamsızlık mektubu zarfa basma hk.

Kodla Büyü

sinansuzer

Site Gezgini
Mesajlar
35
Merhaba arkadaşlar devamsızlık mektubu gönderirken ortalama 30-40 öğrenci mektubu olup zarfların üzerinde adresleri pdf halinde indirip excel vba ile mektup zarfına basma imkanı varmıdır.
 
evet var öğretmenim. Rapor aldıktan sonra sedece veri deyip kaydedin. excel doysası adresler çıkar. bir döngü oluşturulup I sütununda Sayınla başlayanları seçip ayrı bir sayfa liste oluşturulur. diğer bri sayfaya zarf şablonu oluşturup ister indis ile yada yine makro ile sıra sıra listeden veri çekilip şablona yazılır. yazdırma yapılır.
 
Word veya Publisher da adres mektup birleştirme işe yapılır
 
öncelikle teşekkür ederim listeyi excele nasıl aktarabiliriz döngüyle çünkü excelde adreslerde lazım oluyor.
 
öncelikle teşekkür ederim listeyi excele nasıl aktarabiliriz döngüyle çünkü excelde adreslerde lazım oluyor.
Öğretmenim öncelikle eokuldan raporlar kısmından listeyi aldığınızı sonrda raporu resimdeki yerden sedece veri olarak kaydettiğinizi varsayıyorum. Dosyayı açıp yeni birsayfa oluşturun ve yani sayfada yazdığım makroyu çalıştırın.
Kod:
Sub adres_Al()
satirsayisi = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
a = 1
For i = 1 To satirsayisi
If Left(Sheets("Sheet1").Cells(i, 9), 5) = "Sayın" Then
Cells(a, 1) = Sheets("Sheet1").Cells(i, 9)
a = a + 1
End If
Next i
End Sub
 
Öğretmenim gönderdiğim excel dosyasında veri al düzenle makrosunu çalıştırın. Sizden devamsızlık mektuolarının bulunduğu excel dosasını isteyecek seçin. sayfa 1 de adresler sıralansın.
 

Ekli dosyalar

  • Devamsızlık mektubu adres alma.rar
    14.3 KB · Görüntüleme: 64
recep hocam yardımların için teşekkür ederim bir şey sormak istiyorum yine farklı sayfa içine tabloyu aldıktan sonra bölme imkanı varmı A Sütununa adı soyadı b sütununa sınıf c sütunu veli adı soyadı d sütunu adres olarak
 
öğretmenim raporun normal excel öıktısı tutarsız. sadece veri kısmında ise öğrenci adı sınıfıo yazmıyor. En azından benim ladığım raporlarda öyle. Ama derseniz aldığımız ades içinde veli adını soyadını temizliyelim başka sütuna yazalım onun için bir şey yapılabilir.
 
hocam b sütununda öğrenci bilgileri yazıyor bunu adı soyadı sınıfı okul no veli adı soyadı adres şeklinde bölebilirsek kolay olacaktır.
Sayın AHMET DEMİRCİLER

Velisi olduğunuz okulumuzun AL - 9. Sınıf / H Şubesi (ALANI YOK) öğrencilerinden 42055 numaralı HASAN DEMİRCİLER aşağıda belirtilen günlerde okula devam etmemiştir.

Yönetmelik gereğince, öğrenci, bir ders yılında 10 gün(**) özürsüz devamsızlık yaptığı takdirde başarısız sayılacaktır. Bu hususta görüşmek üzere ilgili müdür yardımcısına başvurmanızı önemle rica ederim.
 
ilk öğrenci için var diğreleri için yok bendekinde. özelden dosyanızı atarsanız yardımcı olayım öğretmenşm.
 
Ne gerek var posta ile pul ile ne ugrasiyorsunuz ki sms sistemi alin eokulla entegre olabilen yollayim sms gitsin. İs yukunuzu hafifletin.
 
Ne gerek var posta ile pul ile ne ugrasiyorsunuz ki sms sistemi alin eokulla entegre olabilen yollayim sms gitsin. İs yukunuzu hafifletin.
Evet dediğiniz özellikleri sunan sms firmaları var. Fakat okul müdürümüz devamsızlığı çok olan öğrenci velilerini okula çağırıp devamsızlık mektubunu imzalatmak istiyor, veli gelmezse iadeli taahhütlü mektup gönderelim diyor. sms veya diğer elektironik yollarla gönderilen devamsızlık bildirimlerinde hukuki sorun yaşanırmış. Veli "ben görmedim, bana sms gelmedi" derse mahkeme veliyi haklı görürmüş, falan filan.
 
O devamsızlık mektubunu 3 e katlayıp kenarlardan zımbalayarak gönderiyoruz biz... Zarfa vs gerek kalmıyor...
 
bizde öyle yapıyoruz fakat postaneye toplu listeyi imzalatıyoruz bazı durumlarda zarf içinde olması daha iyi adresler bazen disiplin işlemlerinde de veliye gönderdiğimizde lazım oluyor.
 
Mektubun altında zaten adres çıkıyordu, uygun şekilde katlayıp, pencereli zarfa koyuyorduk.
 
Ne gerek var posta ile pul ile ne ugrasiyorsunuz ki sms sistemi alin eokulla entegre olabilen yollayim sms gitsin. İs yukunuzu hafifletin.
Murat hocama katılıyorum bu tarz şeyler sürdürülebilir değil zaten. Sistemin sağlıklı işlemesi ve devamı için SMS sistemi alıp kullanmak en iyisi.
Kütüphane, Ders Dağıtımı ve Dijital Pano gibi yazılımlara para vermeyelim derken oldukça fazla zaman ve emek harcadığımız oluyo... Sonuçlarına baktığımızda ücretsiz sistemlerin bizden çok daha fazla şey götürdüğüne şahit oluyoruz. Kâr zarar dengesini iyi kurup lisanslı ve profesyonel çözümlerden yana tercih kullanmak gerekli diye düşünüyorum.
 
Hocam sms göndeme en makul yolu. Hatta e-posta da gönderin beraberinde. İki bildirim olur. İnkar etmek isteyen mektubu da inkar eder sonuçta. Siz bildirim yapmış olun yeter.
 
Ortaöğretim Kurumları Yönetmliği ikinci bölüm
Madde-36 (4) (Değişik:RG-16/9/2017-30182) Devamsızlık yapan öğrencinin durumu posta, e-posta veya diğer iletişim araçlarıyla velisine bildirilir, varsa özür belgesini okul yönetimine teslim etmesi velisinden istenir.

SMS sistemleri raporlama yapabiliyor, toplu olarak tek sayfa rapor çıktı olarak alınıp dosyada saklanır.
 
9706761093170.jpg

Bu zarf işinizi rahatlıkla görür.
Bakanlık bu iş için bir çözüm bulmalı. Mektupları çıkar posta ile gönder.
  • 20.50. 50 Grama kadar. 9.00tl taahhülü: 20,50tl
  • 22.00. 100 Grama kadar. 15.00tl taahhütlü: 22,00tl
çarpı zarf sayısı kadar masraf.
 
merhaba hocam herhangi bir çözüm bulamadım bu dosyanızın kodlarını gönderme imkanı varmı hocam
 
Öncelikle E-okuldan devamsızlık raporu alınır. pdf olarak indirilir. Pdf açılıp içindekiler excel dosyasını yanonda bulunan Uyarı.txt dosyasına yapuştırlır.
veri_Al_Düzenle Makrosu çalıştırılır.
Kod:
Sub veri_Al_Duzenle()
Dim objStream, strData() As String
ReDim strData2(5000) As String

Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "utf-8"
objStream.Open
objStream.LoadFromFile (ThisWorkbook.Path & "\" & "Uyarı.txt")

strData = Split(objStream.ReadText, vbNewLine)

objStream.Close
Set objStream = Nothing

Dim i, a, b As Integer
b = 0
    ReDim strData2(5000) As String
    For i = 0 To UBound(strData)

    If (Right(strData(i), 4)) = "süz)" Then
    b = b
    Else
    If strData(i) = "-1" Then
    b = b + 1
    End If
    
    b = b + 1
    End If
    Next
    ReDim strData2(b)
    b = 0
    For i = 0 To UBound(strData)
    If (Right(strData(i), 4)) = "süz)" Then
    
    Else
    If strData(i) = "-1" Then
    b = b + 1
    End If
    
    strData2(b) = strData(i)
    b = b + 1
    End If
    
Next
    Dim c, d
    c = 1
    d = 1
    For i = 0 To UBound(strData2)
    mdl = i Mod 29
    
    If mdl = 0 Then
    veri = strData2(i)
    veri = Replace(veri, "Devamsızlık Mektubu (", "")
    veri = Replace(veri, ")", "")
    c = c + 1
    
    Cells(c, 1) = veri
    End If
    
    If mdl = 7 Then
    veri = strData2(i)
    veri = Replace(veri, "Velisi olduğunuz okulumuzun ", "-")
    veri = Replace(veri, "öğrencilerinden", "-")
    veri = Replace(veri, "numaralı", "-")
    veri = Replace(veri, "aşağıda", "-")
    veri = Split(veri, "-")
    
    Cells(c, 2) = veri(1)
    Cells(c, 3) = veri(2)
    Cells(c, 4) = veri(3)
    
    End If
    If mdl = 6 Then
    veri = strData2(i)
    veri = Replace(veri, "Sayın ", "")
    Cells(c, 5) = veri
    End If
    
    If mdl = 18 Then
    Cells(c, 6) = strData2(i)
    End If
    
    If mdl = 19 Then
    Cells(c, 7) = strData2(i)
    End If
      
    
    Next
End Sub
 
Geri
Üst