Soru Veri Doğrulama Ayarları Hk.

[fledermaus]

Merhaba,

Ekteki dosyanın D1 hücrelerinde ilk sayfa (üç ay) için veri doğrulaması bulunmaktadır.

Kriterdeki uyarı, sadece bir kere ve ilgili çalışma sayfasına girildiğinde görebilmek için nasıl bir ayar yapılmalıdır ?

Yada bunun için farklı bir formül uygulamak yada farklı bir sekme mi kullanmak gerekir ?

Ayrıca uyarı kriteri vermesi gereken bu hücreye bir kerede 10-15 adet gibi farklı zaman dilim kriterleri için ve farklı metinler girebilir mi ?

Çünkü gireceğim bu farklı saatlerdeki farklı uyarı metinleri herhangi bir aya denk gelebilir.

Çalışma kitabının 12 ayı kapsayacak ve bu hücre formülasyonu her ay için olacak.

Yardımlarınız için şimdiden teşekkür ederim.

Syg,

 

[Korhan Ayhan]

Bahsettiğiniz işlemleriçin veri doğrulama uygun değildir.

Makro ile yapmanız daha uygun görünüyor.

 

[fledermaus]

Merhaba,

Dosyamdaki bir sayfa için örnek bir macro paylaşmanız mümkün müdür ?

Geri kalan sayfalar için değişiklik ve eklemeleri ben yaparım.

Syg,

 

[Korhan Ayhan]

Uyarı için koşulunuz nedir?

 

[fledermaus]

Ekli dosyadaki çalışma sayfalarında geçen veri doğrulamalar'ında kullandığım herhangi bir koşul olabilir.

Syg.

 

[Korhan Ayhan]

İşlemi yapacağınız sayfanızın kod bölümüne uygulayıp deneyiniz.

Hücredeki veri doğrulamayı kaldırmayı unutmayınız.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D1")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    Select Case Target
        Case TimeSerial(1, 0, 0) To TimeSerial(15, 0, 0)
            MsgBox "Yazılım yüklenmesi gerek.", vbInformation, "Bakım Zamanı Hk."
    End Select
End Sub

 

[fledermaus]

İşlemi yapacağınız sayfanızın kod bölümüne uygulayıp deneyiniz.

Hücredeki veri doğrulamayı kaldırmayı unutmayınız.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D1")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    Select Case Target
        Case TimeSerial(1, 0, 0) To TimeSerial(15, 0, 0)
            MsgBox "Yazılım yüklenmesi gerek.", vbInformation, "Bakım Zamanı Hk."
    End Select
End Sub

Teşekkürler.

Peki bu makroyu örnek olarak 3585:00 e saat 10 saat kala şeklinde nasıl yazabiliriz ?

Örnekte dosyamda saatleri kolaylık olması açısında ufak yazmıştım.

Ayrıca bu makro tüm sayfalara uygulanacak.

Syg,

 

[Korhan Ayhan]

Merhaba,

Makro tüm sayfalarda çalışacaksa ThisWorkbook (BuÇalışmaKitabı) bölümüne yazabilirsiniz. Bu bölüme yazacağınız kod dosyanızdaki tüm sayfalarda çalışacaktır.

Ya da önerdiğim kodu kendinize göre düzenleyip tüm sayfalarınızın kod bölümüne uygulayabilirsiniz. Tercih sizindir.

3585:00 gibi bir zamanı önce 24 saatlik birime çevirip kullanabilirsiniz.

Sub Test()
    MsgBox 3585 / 24
End Sub

 

[fledermaus]

Korhan Bey Tekrar Merhabalar,



Syg,

 

[fledermaus]

Yukarıdaki maili yanlış yazmış bulundum.

Lütfen dikkate almayınız. Silemediğim için bilgi vermek istedim.


Syg,