safir33
Altın Üye
- Katılım
- 21 Nisan 2005
- Mesajlar
- 75
- Excel Vers. ve Dili
- OFFİCE 2010 TÜRKÇE
- Altın Üyelik Bitiş Tarihi
- 05-11-2026
Sevgili hocalarım; geçen sene sayenizde kodlarında yardımcı olduğunuz öğrenci devamsızlıklarını ekte ilettiğim programla işledik. Fakat öğrenci sayıları arttıkça ve devamsızlık girişi fazlalaştıkça excelin hesaplama süresi hata verecek kadar uzadı. (bilerek öğrenci numaralarını fazla fazla yükledim).Sizlerden ricam format aynı kalacak şekilde süreyi kısaltacak bir kod yazılabilir mi? (hesaplamayı öğrenci devamsızlık durumu sayfasına tıklayınca yapıyor). İçerikte bulunan şu kodların kalması gerekiyor(kod bilgim olmadığı için usulsüz kesip yapıştırmış olabilirim kusuruma bakmayın lütfen);
If metin1 = "" Then
MsgBox "İşlem Tamam" & Chr(10) & Chr(10) & topla1 & " Adet Devamsızlık Bu sayfaya İşlendi" _
& Chr(10) & Chr(10) & "Geçen Süre : " & Int(Timer - zaman) & " Sn.", , "İşlem"
Else
MsgBox "İşlem Tamam" & Chr(10) & Chr(10) & topla1 & " Adet Devamsızlık Bu sayfaya İşlendi" _
& Chr(10) & Chr(10) & Chr(10) & _
"Hafta Sayfalarında bulunduğu halde bu Sayfa D sütununda bulunmayan" & Chr(10) & "aşağıdaki " & saydvmsz & " adet devamsızlık numarası bu sayfaya aktarılamamıştır." & Chr(10) _
& Chr(10) & metin1 & Chr(10) & Chr(10) & Chr(10) & "Geçen Süre : " & Int(Timer - zaman) & " Sn.", , "İşlem"
End If
If metin1 = "" Then
MsgBox "İşlem Tamam" & Chr(10) & Chr(10) & topla1 & " Adet Devamsızlık Bu sayfaya İşlendi" _
& Chr(10) & Chr(10) & "Geçen Süre : " & Int(Timer - zaman) & " Sn.", , "İşlem"
Else
MsgBox "İşlem Tamam" & Chr(10) & Chr(10) & topla1 & " Adet Devamsızlık Bu sayfaya İşlendi" _
& Chr(10) & Chr(10) & Chr(10) & _
"Hafta Sayfalarında bulunduğu halde bu Sayfa D sütununda bulunmayan" & Chr(10) & "aşağıdaki " & saydvmsz & " adet devamsızlık numarası bu sayfaya aktarılamamıştır." & Chr(10) _
& Chr(10) & metin1 & Chr(10) & Chr(10) & Chr(10) & "Geçen Süre : " & Int(Timer - zaman) & " Sn.", , "İşlem"
End If
Ekli dosyalar
-
1.8 MB Görüntüleme: 5