belirli saatlerde açık dosyayı kapatmak ?

HD1975 · 13 Mart 2009

Merhaba ;

Excel açıkken aktif sayfayı belirleyeceğim zamanlarda otomatik olarak kapatan
makro yapma imkanımız varmı.

Örnek : Sayfa1 açıksa saat 10:00'da 12:00'de 14:00'de 16:00'da 20:00 de
otomatik olarak kapansın.

Kapatmayı yaparkende uyarı verebilir.

Saygılar

Korhan Ayhan · 13 Mart 2009

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Kod ThisWorkBook bölümüne uygulanacaktır.

Kod:

Option Explicit
 
Private Sub Workbook_Open()
Başla:
    DoEvents
    Select Case Format(Time, "hh:mm")
        Case Is = "10:00": DOSYA_KAPAT
        Case Is = "12:00": DOSYA_KAPAT
        Case Is = "14:00": DOSYA_KAPAT
        Case Is = "16:00": DOSYA_KAPAT
        Case Is = "20:00": DOSYA_KAPAT
        Case Else: GoTo Başla:
    End Select
End Sub
 
Sub DOSYA_KAPAT()
    ThisWorkbook.Save
    MsgBox "Dosyanız otomatik kapanmaya ayarlanmıştır." & vbCrLf & "Dosyanız kapatılacaktır.", vbInformation
    If Excel.Application.Windows.Count > 1 Then
    ThisWorkbook.Close
    Else
    Application.Quit
    End If
End Sub

HD1975 · 14 Mart 2009

Korhan Ayhan' Alıntı:

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Kod ThisWorkBook bölümüne uygulanacaktır.

Kod:

Option Explicit
 
Private Sub Workbook_Open()
Başla:
    DoEvents
    Select Case Format(Time, "hh:mm")
        Case Is = "10:00": DOSYA_KAPAT
        Case Is = "12:00": DOSYA_KAPAT
        Case Is = "14:00": DOSYA_KAPAT
        Case Is = "16:00": DOSYA_KAPAT
        Case Is = "20:00": DOSYA_KAPAT
        Case Else: GoTo Başla:
    End Select
End Sub
 
Sub DOSYA_KAPAT()
    ThisWorkbook.Save
    MsgBox "Dosyanız otomatik kapanmaya ayarlanmıştır." & vbCrLf & "Dosyanız kapatılacaktır.", vbInformation
    If Excel.Application.Windows.Count > 1 Then
    ThisWorkbook.Close
    Else
    Application.Quit
    End If
End Sub

Çok güzel olmuş,yalnız uyarı verdikten sonra kendisi kapansın.
Kullanıcıdan onay vermesi beklenmemesi gerekiyor.

MsgBox "Dosyanız otomatik kapanmaya ayarlanmıştır." & vbCrLf & "Dosyanız kapatılacaktır.", vbInformation
bu boxı kaldırınca otomatik kapandı.

Saygılar

HD1975 · 14 Mart 2009

Açık dosyayı kapattıktan sonra bazı verileri başka dosyaya yazabilrimiyiz ?

HD1975' Alıntı:
Çok güzel olmuş,yalnız uyarı verdikten sonra kendisi kapansın.
Kullanıcıdan onay vermesi beklenmemesi gerekiyor.

MsgBox "Dosyanız otomatik kapanmaya ayarlanmıştır." & vbCrLf & "Dosyanız kapatılacaktır.", vbInformation
bu boxı kaldırınca otomatik kapandı.

Saygılar

Yukarıdaki kapatma işleminden sonra bir durum daha gerçekleştirmem gerekecek.
Şimdi üç tane farklı kullanıcıların kullandığı veri isminde dosyalarım var.
Bunlara veri yazan üç tanede not ismimde dosyam var.

Yukarıdaki zaman ayarlı makroyu not ismindeki dosylarda kullanacağım.
Not dosyaları kapandığı anda,veri dosyalarındaki günün tarihine ait olan
verileri üç veri dosyası arasında senkronize etsin.

Saygılar

hurkanpisirici · 14 Mart 2009

merhaba kod böülündeki saatleri değiştiremiyorum?

HD1975 · 14 Mart 2009

kod bölümündeki satırlar ?

hurkanpisirici' Alıntı:
merhaba kod böülündeki saatleri değiştiremiyorum?

Merhaba

Kod bölümündeki satırlar araç çubuğundaki break tuşuna basınca değişebiliyor.

HD1975 · 14 Mart 2009

veri ?

hurkanpisirici' Alıntı:
merhaba kod böülündeki saatleri değiştiremiyorum?

veri dosyaları kapalı olan dosyalardır.

HD1975 · 14 Mart 2009

ufak ayrıntı

HD1975' Alıntı:
Yukarıdaki kapatma işleminden sonra bir durum daha gerçekleştirmem gerekecek.
Şimdi üç tane farklı kullanıcıların kullandığı veri isminde dosyalarım var.
Bunlara veri yazan üç tanede not ismimde dosyam var.

Yukarıdaki zaman ayarlı makroyu not ismindeki dosylarda kullanacağım.
Not dosyaları kapandığı anda,veri dosyalarındaki günün tarihine ait olan
verileri üç veri dosyası arasında senkronize etsin.

Saygılar

Not dosyası kapandığı zaman veri dosyaları arasında senkronize yaparken.
Her veri dosyasının içerisinden bulunduğu gün içerisindeki notları diğer veri
dosyalarına aktaracak.

Bu aktarma işleminden sonra iki saat sonra diğer kapatma gerçekleşince,
tekrar senkronize yaparken bir önceki aktarma yaptığı verileri mükerrer olarak
tekrar aktarma yapmayacak.

bunun için veri dosyasındaki satırların karşısına her satır için sıra numarası
koyuyorum.

c,deki veri dosyasının sırano c1 den,
d, deki veri dosyasının sırano d1 den
e deki veri dosyasının sırano e1 den başlayacaktır.

Bu sıra numaralarına göre senkronize yaparken sorgulama yapması gerek.
Bu benim acizane önerim.

Daha farklı bir usul varsa olabilir

Gerekli olursa dosyayıda gönderebilirim

Saygılar

HD1975 · 15 Mart 2009

Soru biraz karıştı sanırım yeniden toparlıyorum

HD1975' Alıntı:
Not dosyası kapandığı zaman veri dosyaları arasında senkronize yaparken.
Her veri dosyasının içerisinden bulunduğu gün içerisindeki notları diğer veri
dosyalarına aktaracak.

Bu aktarma işleminden sonra iki saat sonra diğer kapatma gerçekleşince,
tekrar senkronize yaparken bir önceki aktarma yaptığı verileri mükerrer olarak
tekrar aktarma yapmayacak.

bunun için veri dosyasındaki satırların karşısına her satır için sıra numarası
koyuyorum.

c,deki veri dosyasının sırano c1 den,
d, deki veri dosyasının sırano d1 den
e deki veri dosyasının sırano e1 den başlayacaktır.

Bu sıra numaralarına göre senkronize yaparken sorgulama yapması gerek.
Bu benim acizane önerim.

Daha farklı bir usul varsa olabilir

Gerekli olursa dosyayıda gönderebilirim

Saygılar

MErhaba
Not isminde ve veri isminde dosyalarım var,not dosyasında bir işlem yaptığım zaman bunu veri dosyasına yazdırıyorum.

Sorun şu not dosyası açıkken ver idosyasına müdahale edemiyorum,dosya kilitleniyor.

Bunu çözemediğimden veri dosyasını aynı anda birden fazla kullanıcı kullanımıyor.

Bende bunu çözmek için bir yol üreetim oda şudur.

1-Her kullancı için veri ve not dosyalarından birer adet oluşturdum.
Herkes bağımsız olarak kullanıyor.

2-Bu kullanıcılara ait veri dosyalarındaki farklı bilgileri tüm kullancıların veri
dosyalarında eşitlemem gerekiyor.

3-Veri dosyaları not dosyaları açıkken kilitli olduğu için,forumda bir uzmanımızın
yazdığı belli saatlerde otomatik kapanma makrosunu devreye alıyorum.

4-Bu makronun dosyayı kapatmasından sonra veri dosyaları kendi aralarındaki
bilgi güncellelemelerini yapmasını istiyorum.

5-Bilgi güncellemeleri belirli saatlerde sürekli yapılacağından,güncelleme
yapılırken bit önceki saatde aktarılan veriler bir sonraki saatde tekrar
yazılmayacak.

6-Gönderdiğim dosyalarda yukarıdaki kodlar ekli değil henüz bu zaman
ayarlı kodu ekleyip devamında kapalı olan veri dosyaları arasında
kopyalama işlemine yapacak makro gerekiyor.

7-Ben bir adet not ve bir adet veri dosyası gönderdim.

Saygılar

HD1975 · 16 Mart 2009

İlgilenebilecek biri varmı ?

HD1975' Alıntı:
MErhaba
Not isminde ve veri isminde dosyalarım var,not dosyasında bir işlem yaptığım zaman bunu veri dosyasına yazdırıyorum.

Sorun şu not dosyası açıkken ver idosyasına müdahale edemiyorum,dosya kilitleniyor.

Bunu çözemediğimden veri dosyasını aynı anda birden fazla kullanıcı kullanımıyor.

Bende bunu çözmek için bir yol üreetim oda şudur.

1-Her kullancı için veri ve not dosyalarından birer adet oluşturdum.
Herkes bağımsız olarak kullanıyor.

2-Bu kullanıcılara ait veri dosyalarındaki farklı bilgileri tüm kullancıların veri
dosyalarında eşitlemem gerekiyor.

3-Veri dosyaları not dosyaları açıkken kilitli olduğu için,forumda bir uzmanımızın
yazdığı belli saatlerde otomatik kapanma makrosunu devreye alıyorum.

4-Bu makronun dosyayı kapatmasından sonra veri dosyaları kendi aralarındaki
bilgi güncellelemelerini yapmasını istiyorum.

5-Bilgi güncellemeleri belirli saatlerde sürekli yapılacağından,güncelleme
yapılırken bit önceki saatde aktarılan veriler bir sonraki saatde tekrar
yazılmayacak.

6-Gönderdiğim dosyalarda yukarıdaki kodlar ekli değil henüz bu zaman
ayarlı kodu ekleyip devamında kapalı olan veri dosyaları arasında
kopyalama işlemine yapacak makro gerekiyor.

7-Ben bir adet not ve bir adet veri dosyası gönderdim.

Saygılar

Merhaba

Yardımcı olabilecek bir arkadaş varmı

HD1975 · 17 Mart 2009

Cevap verebilecek yokmu arkadaşlar

Cevap verebilecek yokmu arkadaşlar

Civan Jack · 29 Ekim 2010

Bu işlemin tersini yapılabilir mi ?
Belirli zamanlarda istenilen excel dosyasını açabilir miyiz acaba ?

Teşekkür ederim.

Gorarr · 11 Aralık 2010

Korhan bey teşekkürler. ilerde işime yarayabilir..

esrefm · 24 Nisan 2011

Korhan hocam selamlar;

Aşağıdaki kod listesine

Sheets("ANASAYFA").Select

kodunu hangi satıra eklemeliyim; bu kod ile sayfa açıldığında hagi sayfada kayıd edilirse edilsin istediğim sayfada açılmasını sağlıyordum.

Yardımcı olabilirmisiniz.

Option Explicit

Private Sub Workbook_Open()
Başla:
DoEvents
Select Case Format(Time, "hh:mm")
Case Is = "10:00": DOSYA_KAPAT
Case Is = "12:00": DOSYA_KAPAT
Case Is = "14:00": DOSYA_KAPAT
Case Is = "16:00": DOSYA_KAPAT
Case Is = "20:00": DOSYA_KAPAT
Case Else: GoTo Başla:
End Select
End Sub

Sub DOSYA_KAPAT()
ThisWorkbook.Save
MsgBox "Dosyanız otomatik kapanmaya ayarlanmıştır." & vbCrLf & "Dosyanız kapatılacaktır.", vbInformation
If Excel.Application.Windows.Count > 1 Then
ThisWorkbook.Close
Else
Application.Quit
End If
End Sub

esrefm · 25 Nisan 2011

Yardımcı olabilecek başka uzman arkadaşlar var mı?

belirli saatlerde açık dosyayı kapatmak ?

HD1975

Korhan Ayhan

Administrator

Ekli dosyalar

HD1975

HD1975

hurkanpisirici

HD1975

HD1975

HD1975

HD1975

Ekli dosyalar

HD1975

HD1975

Civan Jack

Gorarr

esrefm

esrefm