Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Excel dosyasına süre koymak

109 views
Skip to first unread message

Oğuzhan KOÇYİĞİT

unread,
Feb 1, 2008, 1:04:14 AM2/1/08
to
Merhaba Arkadaşlar,

Benim bir katalog çalışmam var ve buna tarih sınırlaması koymak istiorum.
Yani mesela 01.06.2008 tarihini görünce artık açılmasın gibi. Ne gibi bir
uygulama yapmalıyım. Bilen arkadaşların yardımlarını rica ediyorum. Şimdiden
teşekkürler.

Sitare Yıldız İŞTAR

unread,
Feb 23, 2008, 3:02:49 PM2/23/08
to
Merhaba,
Aşağıdaki kodlar işinizi görecektir.
Saygılar.
----------------------------
Sub Auto_Open()
If "01/06/2008" < Date Then
MsgBox "Deneme Süreniz Doldu. ", vbCritical, "ÜZGÜNÜM"
auto_close
End If
End Sub

Sub auto_close()
Application.Quit
End Sub

--------------------------
"Oğuzhan KOÇYİĞİT" <ram...@hotmail.com>, iletisinde şunu yazdı,
news:592FE3C7-8712-4807...@microsoft.com...

Sitare Yıldız İŞTAR

unread,
Feb 28, 2008, 4:52:25 AM2/28/08
to
Merhaba,
Bu kodların nereye yazılacağını soran birkaç tane mail aldım. Amaç
yardımlaşmak olduğuna göre özel yanıt vermemeyi tercih ediyor, yanıtı buraya
yazıyorum.
-Süre koymak istediğiniz dosyayı açınız.
-Alt+F11 tuş bileşeni ile VBA editörünü açınız.
-Menüden Insert(ekle) Modül komutunu veriniz.
-Aşağıdaki kodları kopyalayıp açılan sayfaya yapıştırınız. Tarihi isteğinize
göre değiştirebilirsiniz.
-Dosyayı kaydedip çıkınız.

Ancak;
-Makrolar devre dışı bırakılarak bu kodlar çalışmaz hale getirilebilir,
- Sizin kaydettiğiniz yolla VBA editörü açılarak tarihler değiştirilebilir.

Bunu engellemek için, kodunuza parola koymayı unutmayınız. İsterseniz
dijital imza koyarak daha kullanışlı hale getirebilirsiniz.

BAKKAS DANISMANLIK

unread,
Feb 28, 2008, 12:54:07 PM2/28/08
to
merhaba bu detayları nereye nasıl yazacağız.
konu ıle ılgılı bılgı verırmısınız
"freefighter" <freef...@discussions.microsoft.com>, iletisinde şunu
yazdı, news:3C592013-01EE-4286...@microsoft.com...
> Merhaba;
> Bence sorunuz çok net değil, Daha açık bir şekilde ifade edebilirseniz
> yardımcı olacak birileri çıkar.
> Selametle
>
> "Oğuzhan KOÇYİĞİT" wrote:
>
>> Merhaba Arkadalar,
>>
>> Benim bir katalog almam var ve buna tarih snrlamas koymak istiorum.
>> Yani mesela 01.06.2008 tarihini grnce artk almasn gibi. Ne gibi bir
>> uygulama yapmalym. Bilen arkadalarn yardmlarn rica ediyorum. imdiden
>> teekkrler.
>>

BAKKAS DANISMANLIK

unread,
Feb 29, 2008, 2:34:57 AM2/29/08
to
merhaba ılgınıze oncelıkle tesekkur ederım ama ne yazık kı dosya calısmıyor.
ıkı sey denedım:
-sıstem zamanını degıstırdım.
-kod dakı tarıhı degıstırdım.

ne yazık kı sonuzc alamadım. ılgınıze ve sabrınıza tesekkur ederım.

BAKKAS


"Sitare Yıldız İŞTAR" <bil...@mynet.com>, iletisinde şunu yazdı,
news:uHqmvmke...@TK2MSFTNGP06.phx.gbl...
> Dosyanız düzeltilmiş haliyle ektedir
>
> Saygılar.
>

BAKKAS DANISMANLIK

unread,
Feb 29, 2008, 2:34:09 AM2/29/08
to

Sitare Yıldız İŞTAR

unread,
Mar 3, 2008, 3:59:48 PM3/3/08
to
Mrb.,
Mesajınızı yeni gördüm.
Koddaki if ile başlayan satırı aşağıdaki ile değiştiriniz.
Saygılar.

If DateValue("01.06.2008") < Date Then


"BAKKAS DANISMANLIK" <in...@bakkas.com>, iletisinde şunu yazdı,
news:u7iGXWqe...@TK2MSFTNGP05.phx.gbl...

Sitare Yıldız İŞTAR

unread,
Mar 11, 2008, 11:50:34 AM3/11/08
to
Mrb.,
Sorun yok çalışıyor.
Bir önceki başlığa ek olarak gönderdiğiniz dosyayı inceledim.
Referans tarih olarak 15.03.2008 yazmışsınız. Bu gün 11.03.2008 bu durumda
15 marta kadar uyarı vermeyecektir.
Sistem tarihini değiştirerek denemeler yaptığınızı görüyorum. Ekli
dosyanızdaki referans tarih 15.03.2008 olduğuna göre sistem tarihini
20.03.2008 yaptığınızda çalışması gerekir.
Ben her iki durumuda denedim çalışıyor.

Eğer çalışmıyorsa başka bir nedeni olmalı? Makroları devre dışı bırakan bir
yazılım veya excelin tam kurulu olmaması gibi.

Buradaki dostlardan rica edelim. Kodları deneyip sonucu buraya yazarlarsa
çalışmama nedenini bulmaya çalışırız.
Saygılar.

"BAKKAS DANISMANLIK" <in...@bakkas.com>, iletisinde şunu yazdı,

news:83D0485A-BDC1-44BE...@microsoft.com...
> merhaba
> sanırım hala sorun var


>
> BAKKAS
>
>
> "Sitare Yıldız İŞTAR" <bil...@mynet.com>, iletisinde şunu yazdı,

> news:OoTR8FXf...@TK2MSFTNGP06.phx.gbl...

ERKAN YÜKSEL

unread,
Mar 25, 2008, 5:24:21 AM3/25/08
to
ben denedim çalışıyor
"BAKKAS DANISMANLIK" <in...@bakkas.com>, haber iletisinde şunları
yazdı:6FC232A7-A048-4C44...@microsoft.com...
> merhaba
> ofis 2003 professinal yeniden yükledim tarihleri değiştirdim ama
> çalışmadı.
> orijinal ofis cd den kurulum lisanslı
> teşekkürler

>
> BAKKAS
>
>
>
>
>
>
>
> "Sitare Yıldız İŞTAR" <bil...@mynet.com>, iletisinde şunu yazdı,
> news:%23RtBb%234gI...@TK2MSFTNGP04.phx.gbl...

gokhan

unread,
May 21, 2008, 9:35:01 AM5/21/08
to

"Sitare Yıldız İŞTAR" wrote:

<a title="Özel Eğitim" href="http://www.ozelegitimsitesi.com/">Özel
Eğitim</a>Özel Eğitim sitesi <a title="Bayan "
href="http://bayan.us/">Bayan</a> <a
href="http://www.ureticifirma.com/">www.ureticifirma.com</a> <a title="cep
oyunları" href="http://www.ceptelefoncunuz.net/">Cep Oyunları</a> <a
title="cep programlari" href="http://www.ceptelefoncunuz.net/">Cep
Programları</a> <a title="Cep Videoları"
href="http://www.ceptelefoncunuz.net/">Cep Videoları</a> <a title="Cep
Temaları" href="http://www.ceptelefoncunuz.net/">Cep Temaları</a> <a
title="cep programlari"
href="http://www.ceptelefoncunuz.net/category/cep-programlari/">Cep
Programları</a> <a title="Cep Temaları"
href="http://www.ceptelefoncunuz.net/category/cep-temalari/">Cep Temaları</a>
<a title="Cep Videoları"
href="http://www.ceptelefoncunuz.net/category/cep-videolari/">Cep
Videoları</a> <a title="staj rehberi, staj, staj yerleri, bur veren yerler,
burs rehberi" href="http://www.staj.ws/">Staj</a> <a title="Ringo Wap"
href="http://www.ringowap.com/">Ringo Wap</a> <a title="Portre"
href="http://www.portre.org/">portre</a> <a
href="http://www.etixet.com/">etixet</a> <a title="Astroloji & Fal "
href="http://bayan.us/category/astroloji-fal">Astroloji & Fal</a> <a
title="Cilt & Yüz Bakımı "
href="http://bayan.us/category/cilt-yuz-bakimi">Cilt & Yüz Bakımı</a> <a
title="Cinsellik & Bilgi "
href="http://bayan.us/category/cinsellik-bilgi">Cinsellik & Bilgi</a> <a
title="Diyet & Egzersiz "
href="http://bayan.us/category/diyet-egzersiz">Diyet & Egzersiz</a> <a
title="Gezi & Tatil " href="http://bayan.us/category/gezi-tatil">Gezi &
Tatil</a> <a title="Güzellik & Bakım "
href="http://bayan.us/category/guzellik-bakim">Güzellik & Bakım</a> <a
title="Hobi & Eğlence " href="http://bayan.us/category/hobi-eglence">Hobi &
Eğlence</a> <a title="İslam & Ahlak "
href="http://bayan.us/category/islam-ahlak">İslam & Ahlak</a> <a title="Moda
& Magazin " href="http://bayan.us/category/moda-magazin">Moda & Magazin</a>
<a title="Mutfak & Besin "
href="http://bayan.us/category/mutfak-besin">Mutfak & Besin</a> <a
title="Sağlık & Yaşam " href="http://bayan.us/category/saglik-yasam">Sağlık &
Yaşam</a> <a title="Sanat & Şiir "
href="http://bayan.us/category/sanat-siir">Sanat & Şiir</a> <a title="Sinema
& Tiyatro " href="http://bayan.us/category/sinema-tiyatro">Sinema &
Tiyatro</a> <a title="Dizi Fragmanları "
href="http://www.video-muzik.net/category/dizi-fragmanlari/">Dizi
Fragmanları</a> <a title="Film Fragmanları "
href="http://www.video-muzik.net/category/film-fragmanlari/">Film
Fragmanları</a> <a title="Genel Videolar "
href="http://www.video-muzik.net/category/kategorilenmemis/">Genel
Videolar</a> <a title="İlginç Videolar "
href="http://www.video-muzik.net/category/ilginc-videolar/">İlginç
Videolar</a> <a title="Kamera Şakaları "
href="http://www.video-muzik.net/category/kamera-sakalari/">Kamera
Şakaları</a> <a title="Komik Videolar "
href="http://www.video-muzik.net/category/komik-videolar/">Komik Videolar</a>
<a title="Reklam Videoları "
href="http://www.video-muzik.net/category/reklam-videolari/">Reklam
Videoları</a> <a title="Top Videolar "
href="http://www.video-muzik.net/category/top-videolar/">Top Videolar</a> <a
title="Bayan" href="http://alser99.googlepages.com">Bayan</a> <a
title="Bayan" href="http://bayan.20six.co.uk/">Bayan</a>
<a title="Bayan" href="http://bayan.allisfun.com/">Bayan</a>
<a title="Bayan" href="http://bayanhaber.wordpress.com/">Bayan</a>
<a title="Bayan" href="http://bayansaglik.blog.com/">Bayan</a>
<a title="Bayan" href="http://bayan-saglik.livejournal.com/">Bayan</a>
<a title="Bayan" href="http://bayansaglik.blogsome.com/">Bayan</a>
<a title="Bayan" href="http://saglik.brshare.org/">Bayan</a>
<a title="Özel Eğitim" href="http://www.ozelegitimsitesi.com/">özel eğitim</a>

gokhan

unread,
May 21, 2008, 9:37:00 AM5/21/08
to

"BAKKAS DANISMANLIK" wrote:

> merhaba
> sanırım hala sorun var
>
> BAKKAS
>
>

> "Sitare Yıldız İŞTAR" <bil...@mynet.com>, iletisinde şunu yazdı,
> news:OoTR8FXf...@TK2MSFTNGP06.phx.gbl...

sempat...@gmail.com

unread,
Jan 19, 2017, 5:56:53 PM1/19/17
to
28 Şubat 2008 Perşembe 12:52:25 UTC+3 tarihinde Sitare Yıldız İŞTAR yazdı:
HOCAM BEN BU KODA İLAVE OLARAK Sub Auto_open()
Beep
MsgBox "Bu program ..................tarafından yapılmıştır. ", vbInformation, " Buraya yazdığınız yazı mesaj kutusunun başlığında gözükecektir."
End Sub



Sub Auto_close()
Beep
MsgBox "Program Hatalarını 0-542-.......... numaralı telefona bildirebilirsiniz.", vbSystemModal, " Buraya yazdığınız yazı mesaj kutusunun başlığında gözükecektir"
ActiveWorkbook.Save
End Sub


YİDE ÇALIŞTIRMAK İSTİYORUM BUNUN BİR YOLU VARSA YAZARSAN ÇOK MEMNUN OLURUM BANA ÇOK LAZIM ÇÜNKÜ ŞİMDİDEN TEŞEKKÜR EDİYORUM
0 new messages