Çözüldü Tarih güncelleme prosedürünün onay istemesi

Akif59

Yıllık Forum Üyesi
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba
Örnek dosyada O4 U4 Hücrelerindeki tarihler C3 Pazartesi olduğunda yani her pazartesi güncelleniyor.
dosyada çok fazla sayfa mevcut Dosyayı pazartesi günleri her açtığımda gün boyu sürekli tarih güncellemesi için onay istiyor bu onaydan kurtulmak için değerli desteklerinizi rica ediyorum
 

Ekli dosyalar

Çözüm
Workbook_Open prosedürünün en başına
Dim i As Worksheet, ii As Byte
şeklinde bir satır ekleyip, birkaç satır alttaki MsgBox i.Name satırının sol başına TEK TIRNAK eklemeniz yeterli olabilir.
Bugün SALI olduğundan, bugün deneme yapmak için If Weekday(Date) = 2 Then satırındaki 2 sayısını 3 yapıp, belgeyi kapatıp açarsınız.

İşlem tamamsa bu sayıyı tekrar 2 olarak değiştirip belgeyi kaydedin ki; işleminiz Pazartesi yapılabilsin.
Biraz daha detay belirtirseniz iyi olur.
Oldukça fazla kodlar içeren bir dosya. Bu uyarının görüntülenmesini sağlayan kod hangisidir, belgeyi açınca ne yapılması lazımdır?
 
Biraz daha detay belirtirseniz iyi olur.
Oldukça fazla kodlar içeren bir dosya. Bu uyarının görüntülenmesini sağlayan kod hangisidir, belgeyi açınca ne yapılması lazımdır?
Merhaba Sayın @Ömer BARAN,

Dosyanın kendi sayfasındaki kod Private Sub Workbook_Open()

Dosya pazartesi günleri açıldığında yani C3 Her hafta pazartesiyi gösterdiğinde O4 U4 Hücre aralığındaki tarihler o haftaki pazartesiden pazara güncelleniyor. fakat bu güncellemeyi yaparken benden tüm sayfalardaki tarihleri güncellemek için onay istiyor. bu onaydan kurtulmak istiyorum
pazartesi dosya ilk açıldığında onay almadan güncellesin gün içinde dosya kapatılıp açıldığında tekrar onay istemesin.
O4 U4 Arasındaki tarihler sadece pazartesi güncelleniyor .
 
Workbook_Open prosedürünün en başına
Dim i As Worksheet, ii As Byte
şeklinde bir satır ekleyip, birkaç satır alttaki MsgBox i.Name satırının sol başına TEK TIRNAK eklemeniz yeterli olabilir.
Bugün SALI olduğundan, bugün deneme yapmak için If Weekday(Date) = 2 Then satırındaki 2 sayısını 3 yapıp, belgeyi kapatıp açarsınız.

İşlem tamamsa bu sayıyı tekrar 2 olarak değiştirip belgeyi kaydedin ki; işleminiz Pazartesi yapılabilsin.
 
Çözüm
Konuyu başlatan
Yıllık Forum Üyesi
Katılım
Konu Bilgi
Durum
Çözüldü 
Forum
Excel Makro Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
4
Üst