Puantaj Tablomda Pazar Günlerine Veri Girişini Engellemek

[iplikci_80]

Arkadaşlar EK 'te gönderdiğim puantaj formatındaki B2 hücresindeki oklar vasıtasıyla aylar değiştirilmekte ve buna bağlı olarak hafta sonu yani "PAZAR" günlerinin yerleri de deşmektedir. Benim burada yapmak istediğim şey SARI ya boyalı satırdaki, bunlar aşağıya doğru çoğalacaktır, "PAZAR" günlerine gelen hücrelere herhangi bir rakam yazılmasını koşullu biçimlendirme ile önlemek istiyorum. Örneğin 4 Ocak 2015 Pazar günündeki 2 nin yazılmasını önlemek gibi. Bu hususta yardımlarınızı bekliyorum.

 

[Ömer BARAN]

Merhaba.

Veri doğrulama için:
F5 hücresini seçin-> veri doğrulama->liste kısmına;

=EĞER(HAFTANINGÜNÜ(F$3;2)=7;[B][COLOR="Red"]$BT$4[/COLOR][/B];$BT$5:$BT$23)

formülünü uygulayın ve onaylayarak işlemi tamamlayın. Sonra da F5 hücresini kopyalayıp sağa doğru AJ5 hücresine kadar özel yapıştır->doğrulamayı şeklinde işlemi tamamlayın. $BT$4 hücresinin boş olduğu düşünülmüştür, boş başka bir hücre de seçilebilir.

Koşullu biçimlendirme:
F5:AJ5 alanı seçiliyken (etki alanı kısmında =$F$5:$AJ$5 yazılı olsun),
koşullu biçimlendirme->formül kullan kısmına;

=VE(HAFTANINGÜNÜ(F3;2)=7;F5>0)

formülünü uygulayın, farklı bir renk (kırmızı zemin beyaz yazıtipi gibi) ayarlayın.

Böylece ay ismini değiştirdiğinizde pazar günleri için sayısal değer seçilemez hale gelir. Aynı hücreye bir önceki aşamada seçilmiş sayısal değer varsa koşullu biçimlendirme ile kırmızı zeminli hale gelir ve hangi hücredeki veri doğrulama seçimini değiştirmeniz gerektiğini anlayabilirsiniz.

 

[iplikci_80]

Ömer Bey merhabalar ilginize çok teşekkür ederim. Koşullu biçimlendirme de seçilmiş sayısal değer varsa koşullu biçimlendirme ile kırmızı zeminli hale gelmesinden ziyada o hücreyi boş olarak ayarlayabilir miyiz.

 

[Korhan Ayhan]

Merhaba,

Koşullu biçimlendirme ile hücrenin içeriğine değil biçimine müdahale edebilirsiniz. Bu sebeple istediğiniz işlem için veri doğrulama uygundur. Fakat bunda da karşınıza daha önce veri girilmiş hücreler sorun çıkaracaktır. Çünkü bu hücreler PAZAR gününe denk geliyorsa otomatik olarak veri girişi yapılmış olacağı için sorununuz çözülmemiş olacaktır. İsterseniz makro ile daha işlevsel çözüm üretilebilir.

 

[Korhan Ayhan]

Makro ile hazırladığım dosyanızı inceleyiniz.

 

[iplikci_80]

Korhan Bey her şey için çok teşekkür ederim.

 

[iplikci_80]

Korhan tekrar merhabalar en son gönderdiğiniz makro çalışması çok güzel olmuş fakat F5:AJ5 satırı gibi aşağı doğru F7:AJ7 satırlarında PAZAR günlerinde veri girmesin F6:AJ6, F8:AJ8 vs. aşağıya doğru satırlarda veri girişi oluşun şeklinde düzeltebilir miyiz lütfen.

 

[Korhan Ayhan]

Dosyayı güncelledim. Tekrar deneyiniz.

 

[iplikci_80]

Dosyayı eklememişiniz.

 

[Korhan Ayhan]

#5 nolu mesajımdan indirebilirsiniz.

 

[iplikci_80]

Korhan Bey sarf ettiğiniz emek ve harcadığınız zaman için çok teşekkür ederim. Bu konu ile ilgili son ricam EK 'te gönderdiğim çalışmanın "PUANTAJ" sayfasındaki kodda bulunan Değer Değiştirici İle "RESMİ" sayfasındaki değerleri de değiştirmek mümkün mü acaba.

 

[Korhan Ayhan]

Dosyanızda değer değiştirici ile değişim yaptığınızda zaten formüller aracılığı ile veriler her iki sayfada da değişiyor. Siz farklı bir şey mi istiyorsunuz?

 

[iplikci_80]

Korhan Bey merhabalar. "PUANTAJ" sayfasının B2 hücresindeki oklar ile ayları değiştirdiğimiz de tüm sayfadaki hücrelerdeki içerik temizleniyor bende her iki sayfadaki yani "RESMİ" sayfasının içeriğinin temizlenmesini sağlamak istiyorum.

 

[Korhan Ayhan]

Değer değiştirici buton üzerinde sağ klik yapın ve MAKRO ATA seçeneğini seçin.

Açılan penceredeki ilgili kodu aşağıdaki gibi değiştirin.

Sub DeğerDeğiştirici1_Değiştir()
    Sheets("PUANTAJ").Range("F5:AJ504").ClearContents
    Sheets("RESMİ").Range("F5:AJ34").ClearContents
    Sheets("RESMİ").Range("F38:AJ67").ClearContents
    Sheets("RESMİ").Range("F71:AJ100").ClearContents
End Sub