İşlem Yapılmadığında Belirlenen Süre Sonra Kapanan Excel

Excel VBA kodlamaları ile yapılmış örnek dosyaları burdan izleyebilir ve paylaşabilirsiniz.

İşlem Yapılmadığında Belirlenen Süre Sonra Kapanan Excel

İleti#1)  Murat OSMA » 07 Ekm 2013 19:52

Excel'de bir işlem yapılmadığında belirlediğiniz süre sonra kendiliğinden kapanmasını istiyorsanız. [evet]

Kod: Tümünü seç
   
Option Explicit

Private Const Gecikme As Date 86400
Private Const Onerilen_Zaman As Date 10 60 86400
Private Süre As Variant
Private Temps As Date
Private Zaman As Date

Private Sub TimeSlot(Optional Reset As Boolean)
    
On Error Resume Next
    Application
.OnTime TempsProcedure:="ThisWorkbook.TimeSlot"Schedule:=False
    
If IsMissing(Reset) Or (Reset FalseThen
        
If (Zaman <= GecikmeThen
            ThisWorkbook
.Close True
        End 
If
        
Zaman Zaman Gecikme
    
Else
        
Zaman Süre
    End 
If
    
Temps Now Gecikme
    Application
.OnTime TempsProcedure:="ThisWorkbook.TimeSlot"
    
ActiveWindow.Caption Split(ActiveWindow.Caption" [")(0) & " [" Zaman "]"
End Sub

Private Sub Workbook_Open()
    Do
        
Süre Application.InputBox("Varsayılan zaman önerilmektedir " Onerilen_Zaman ". " _
        
"Girdi formatı '00:00:00'" vbCrLf vbCrLf _
        
"Kalan süre yukarıda gösterilecektir. " vbCrLf_
        
"Saati ayarlayın"Type:=2)
    
Loop Until (Süre False) Or IsDate(Süre)
    
Süre IIf(IsDate(Süre), SüreOnerilen_Zaman)
    
TimeSlot True
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As ObjectByVal Target As Range)
    
TimeSlot True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
Application.OnTime TempsProcedure:="ThisWorkbook.TimeSlot"Schedule:=False
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 36
İleti: 14412
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kapanan Ex

İleti#2)  Enes Recep BAĞ » 07 Ekm 2013 19:55

Murat ellerine bilgine sağlık kardeşim.
Hatırlarsan bir ara çok uğraşmıştım. :)
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 38
İleti: 8285
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kapanan Ex

İleti#3)  Murat OSMA » 07 Ekm 2013 20:13

Evet hatırladım Enes, güle güle kullan. ;;_)
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 36
İleti: 14412
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kapanan Ex

İleti#4)  Mahir ÇÜMEN » 07 Ekm 2013 20:34

Güzel bir paylaşım teşekkürler.
Türkçenin bir eksiği yok, ya sizin?

Bir yalan, hangi amaç için söylenmiş olursa olsun, her zaman, en kötü gerçekten daha kötüdür.Che Guevara

E-Mail : mahircumen@ gmail.com
Kullanıcı avatarı
Mahir ÇÜMEN
Forum Moderatörü
 
Adı Soyadı:Mahir ÇÜMEN
Kayıt: 31 Arl 2010 13:35
Konum: Excel 2013-Türkçe
Meslek: Memur (MEB)
Yaş: 38
İleti: 1275
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kapanan Ex

İleti#5)  alican60 » 07 Ekm 2013 20:35

[TESEKKÜR] şkşk
Kullanıcı avatarı
alican60
Siteye Alışmış
 
Adı Soyadı:ali can
Kayıt: 14 Ağu 2011 11:18
Konum: Tokat
Meslek: İnşaat Teknikeri
Yaş: 41
İleti: 393
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Eskişehir

Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kapanan Ex

İleti#6)  Murat TOK » 20 Ekm 2013 19:08

Murat Bey;

Sistemi yormuyor,
Gayet uyumlu,
Ve en önemlisi dosyayı kapatmayı biz unutsak dosya unutmuyor.
Son değişiklikleri bile kaydediyor.

şkşk --)(

Hangi durumlarda kullanmamız bize avantaj sağlar ?
Enes bey in dosyasını merak etmedim desem yalan olur.
Kullanıcı avatarı
Murat TOK
 
Adı Soyadı:Murat TOK
Kayıt: 20 Ekm 2013 13:14
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MANİSA / Merkez

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kap

İleti#7)  Enes Recep BAĞ » 20 Ekm 2013 20:14

Murat TOK yazdı:Enes bey in dosyasını merak etmedim desem yalan olur.

Murat Bey benim o dosyam şirkete özel ama benim bu konuda yapmak istediğim excel açıldığında en fazla 30 dakika sonra kapansın istemiştim. Sebebi ise güncellemeden faydalansınlar. ;)
Kullandığım sistem ontime metodu.
Kod: Tümünü seç
Sub Otomatik_Zamanlı_Kapama()
Application.OnTime Now + TimeValue("00:30:00"), "Formu_Kapat"
End Sub


Kod: Tümünü seç
Sub Formu_Kapat() ' Excelin otomatik kapanmasında kullanılıyor.
    If MsgBox("30 dakikalık formu kullanma süreniz bitmiştir," & vbCrLf & _
    "15 dakikalık ek süre almak için EVET" & vbCrLf & _
    "Formdan çıkmak için HAYIR seçiniz..." & vbCrLf & _
    "HAYIR'ı seçerseniz, sadece form KAPANACAKTIR.", vbQuestion + vbYesNo, "Aktif oturum süreniz dolmuştur...") = vbYes Then
    Call Extra_süre
    Else
    With Application: .DisplayAlerts = False
If Workbooks.Count = 1 Then
.Quit
Else
.Visible = True: Windows("Kitap68 ®.xls").Activate
ActiveWindow.Close
End If
End With
End If
End Sub


Kod: Tümünü seç
Sub Extra_süre()
    Application.OnTime Now + TimeValue("00:14:59"), "Extra_süre_son"
    MsgBox ("15 dakikalık ek süreniz başlamıştır, süre bitiminde exceleniz hiç bir işlem yapmadan kapanacaktır."), vbInformation, "Önemli Uyarı"
End Sub


Kod: Tümünü seç
Sub Extra_süre_son()
    MsgBox "Ek süreniz dolmuştur, üzgünüm formu KAPATMALIYIM...," & vbCrLf & _
    "Stok güncelleme işlemi yapılacaktır.", vbInformation, "Ek süreniz dolmuştur..."
    With Application: .DisplayAlerts = False
If Workbooks.Count = 1 Then
.Quit
Else
.Visible = True: Windows("Kitap68 ®.xls").Activate
ActiveWindow.Close
End If
End With
End Sub
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 38
İleti: 8285
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kapanan Ex

İleti#8)  Murat TOK » 20 Ekm 2013 21:07

şkşk
Teşekkürler Enes Bey

Bende bir ara zaman ayarlı güncelleme ve belirli saatlerde bazı hücre
değerlerinin sıfırlanması için uğraşmıştım.
Biraz bişeyler yaptım ama istediğim gibi olmayınca manuele devam. --)(
Kullanıcı avatarı
Murat TOK
 
Adı Soyadı:Murat TOK
Kayıt: 20 Ekm 2013 13:14
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MANİSA / Merkez

Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kapanan Ex

İleti#9)  Enes Recep BAĞ » 20 Ekm 2013 21:26

Rica ederim Murat Bey.
Burada en güzel şey ise sisteme yarım saat süre veriyorum.
Olur ya çok önemli bir iş yaparken süre dolarsa bir defalığına 15 dakika daha veriyorum.
Kullanıcı bu durumda en kısa sürede işini yapıp kapatıyor ve yeniden açıyor.
Tabi bu esnada ben güncelleme yapmışsam, güncellemeden faydalanıyor. :)
Aksi takdirde bugün açtılar mı exceli hiç kapatmayan kullanıcılar gördüm, bazen dek geliyordu 10 gün kapatmıyorlar. hehe
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 38
İleti: 8285
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kapanan Ex

İleti#10)  MERAK » 11 Eyl 2014 22:41

Merhaba.
Excel bilgim çok zayıf. Bu yüzden kodu örnek dosyama uygulayamadım. Bunu nasıl yapacağımı basit şekilde anlatabilir misiniz ya da örnek dosya ekler misiniz?
Şimdiden teşekkürler.
Kullanıcı avatarı
MERAK
Yeni Başlamış
 
Adı Soyadı:Ahmet DEMİR
Kayıt: 28 Ağu 2009 12:35
İleti: 69
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSİN

Cevap: Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kap

İleti#11)  Enes Recep BAĞ » 11 Eyl 2014 23:02

MERAK yazdı:Merhaba.
Excel bilgim çok zayıf. Bu yüzden kodu örnek dosyama uygulayamadım. Bunu nasıl yapacağımı basit şekilde anlatabilir misiniz ya da örnek dosya ekler misiniz?
Şimdiden teşekkürler.

Profil bilgilerinizi güncellemenizi rica ederim.
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 38
İleti: 8285
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kapanan Ex

İleti#12)  Enes Recep BAĞ » 12 Eyl 2014 18:55

Ahmed Bey profil bilgilerinizi güncellediğiniz için teşekkür ederim.
Dosyanızı ekleyin, yardımcı olayım.
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 38
İleti: 8285
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kapanan Ex

İleti#13)  MERAK » 14 Eyl 2014 12:17

Enes Bey, örnek dosyamı ekledim. Yardımınız için şimdiden teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
MERAK
Yeni Başlamış
 
Adı Soyadı:Ahmet DEMİR
Kayıt: 28 Ağu 2009 12:35
İleti: 69
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSİN

Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kapanan Ex

İleti#14)  Enes Recep BAĞ » 14 Eyl 2014 12:36

Ahmed Bey dosya ektedir.
Dosyayı açtığınızda 30 dakikalık geri sayım başlar.
30 dakika sonunda size bir uyarı gelir, devam etmek istiyor musunuz diye evet derseniz 15 dakika daha uzatır hayır derseniz çalışmanız kapanır.
Uzatılan 15 dakika sonunda ise tekrar uyarı gelir bu sefer exceliniz zorunlu kapanır.

Saygılarımla.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 38
İleti: 8285
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kapanan Ex

İleti#15)  MERAK » 14 Eyl 2014 17:04

Ek süre sonunda dosya kapanırken aşağıdaki mesaj çıkıyor.
Run-time error '9':
Subscript out of range
Kullanıcı avatarı
MERAK
Yeni Başlamış
 
Adı Soyadı:Ahmet DEMİR
Kayıt: 28 Ağu 2009 12:35
İleti: 69
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSİN

Cevap: Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kap

İleti#16)  Enes Recep BAĞ » 14 Eyl 2014 17:41

MERAK yazdı:Ek süre sonunda dosya kapanırken aşağıdaki mesaj çıkıyor.
Run-time error '9':
Subscript out of range

Benim eklediğim dosyada mı bu hatayı alıyorsunuz yoksa kendi dosyanıza uyarlayınca mı?
Bende aşağıdaki gibi çalışmaktadır.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 38
İleti: 8285
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kapanan Ex

İleti#17)  MERAK » 14 Eyl 2014 17:44

Henüz kendi dosyama uyarlamadım, denemek için sizin eklediğiniz dosyayı bilgisayarıma kaydettim, o dosyada bu hata çıkıyor. Ayrıca dosyayı kapatmama rağmen kendiliğinden tekrar açılıyor.
Kullanıcı avatarı
MERAK
Yeni Başlamış
 
Adı Soyadı:Ahmet DEMİR
Kayıt: 28 Ağu 2009 12:35
İleti: 69
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSİN

Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kapanan Ex

İleti#18)  Enes Recep BAĞ » 14 Eyl 2014 17:47

Uzak bağlantı ile bilgisayarınıza bağlantı kuralım mı?
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 38
İleti: 8285
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kapanan Ex

İleti#19)  MERAK » 14 Eyl 2014 17:54

Şu an iş yerindeyim, eve gidince bir de evde deneyeceğim. Olumlu-olumsuz sonucu iletirim.
Kullanıcı avatarı
MERAK
Yeni Başlamış
 
Adı Soyadı:Ahmet DEMİR
Kayıt: 28 Ağu 2009 12:35
İleti: 69
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSİN

Cevap: Cevap: İşlem Yapılmadığında Belirlenen Süre Sonra Kap

İleti#20)  Enes Recep BAĞ » 14 Eyl 2014 17:56

MERAK yazdı:Şu an iş yerindeyim, eve gidince bir de evde deneyeceğim. Olumlu-olumsuz sonucu iletirim.

Tamamdır. --)(
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 38
İleti: 8285
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Sonraki

Forum Örnek Dosyalar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe