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.
Öğ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.öncelikle teşekkür ederim listeyi excele nasıl aktarabiliriz döngüyle çünkü excelde adreslerde lazım oluyor.
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
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. |
Pdf indirilip Excele çevirerek halledilebilir, isterseniz. O zaman istediğiniz öğrenci bilgileri de bulunur.bizdede aynıymış ekranda 1 öğrenci gösteriyor diğer isimleri göstermiyor
Öğretemenim online pdf to excel dönüştürücü siteleri denedim ama onlarda bir garip yaptık 1 sayafaı 10 15 parçaya ayırdı.Pdf indirilip Excele çevirerek halledilebilir, isterseniz. O zaman istediğiniz öğrenci bilgileri de bulunur.
Adobe akrobat, abby y fine vb programlar daha sağlıklı dönüştürme yapıyor. Onları kullanabilirsiniz. Özelden atarsanız çevirip gönderebilirim.Öğretemenim online pdf to excel dönüştürücü siteleri denedim ama onlarda bir garip yaptık 1 sayafaı 10 15 parçaya ayırdı.
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.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.Ne gerek var posta ile pul ile ne ugrasiyorsunuz ki sms sistemi alin eokulla entegre olabilen yollayim sms gitsin. İs yukunuzu hafifletin.
Hocam bir çözüm buldunuz mu. Yok bulmadı iseniz hazır 15 tatil geliytorken bir çalışpm ayapayım tatilde sizin için.bizdede aynıymış ekranda 1 öğrenci gösteriyor diğer isimleri göstermiyor
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