hücreye bilgi girişini engelleme

[cetinsin]

herkese merhaba
sayfa 2 deki herhangi bir hücrenin değeri belli limiti aştığında sayfa 1 de açılır listeden aldığım bilgi hücreye yazılamasın istiyorum.

 

[uzmanamele]

merhaba

aşağıdaki kod işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B4]) Is Nothing Then Exit Sub
If Sheets("Sayfa2").Range("b2") >= 90 And Target = 9 Then
Target = Empty
MsgBox "GİRMEK İSTEDİĞİNİZ SAATTE SINAV YAPILAMAKTADIR!"
End If
End Sub

 

[uzmanamele]

merhaba

ek dosyada 2 farklı yöntem var, inceleyiniz.


not:
sorularınıza tatminedici cevap aldığınızı düşünüyorsanız;
konu araçları / bu soruyu [ÇÖZÜLDÜ] olarak işaretle'yiniz

 

[cetinsin]

kodu aşağıdaki gibi kendime uyarladım ama olmadı. nasıl yapabilirim
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [I5:I1254]) Is Nothing Then Exit Sub
If Sheets("SEANSLAR").Range("b5") > 90 And Target = 9 Then
Target = Empty
MsgBox "GİRMEK İSTEDİĞİNİZ SAATTE SINAV YAPILAMAKTADIR!"
End If
End Sub

 

[uzmanamele]

merhaba
görünüşde düzenlemeniz tamam gibi ama biryerde hata veriyorsa dosyanızı görmeden tahminde bulunamıyorum.
olsa olsa kodları sayfanın kod bölümüne yazmadığınız içindir.
veya sayfa adı olan "SEANSLAR" sizin yazdığınız gibi değildir, mesela sonda boşluk olabilir "SEANSLAR " GİBİ.

 

[cetinsin]

Dosyami GÖnderİyorum İncelersenİz Sevİnİrİm

 

[uzmanamele]

merhaba

kriteriniz >=90 veya >89 gibi değiştirilince olmaz mı?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [I5:I1254]) Is Nothing Then Exit Sub
If Sheets("SEANSLAR").Range("b5") >= 90 And Target = 9 Then
Target = Empty
MsgBox "GİRMEK İSTEDİĞİNİZ SAATTE SINAV YAPILAMAKTADIR!"
End If
End Sub

 

[cetinsin]

kriteriniz >=90 veya >89 gibi değiştirilince olmaz mı?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [I5:I1254]) Is Nothing Then Exit Sub
If Sheets("SEANSLAR").Range("b5") >= 90 And Target = 9 Then
Target = Empty
MsgBox "GİRMEK İSTEDİĞİNİZ SAATTE SINAV YAPILAMAKTADIR!"
End If
End Sub

evet o şekilde yapınca oldu ancak ben isteklerimi söylerken eksik söylemişim.
h sütunuyla beraber kontrol yaparak uyarı verditmesi lazımdı. yani cuma seçildiyse ve 9 seçildiyse uyarı vermesi lazımdı. bu şekliyle cumartesiyi seçsem ve 9 u seçsemde genede uyarı verecektir. halbuki bu şekilde uyarı vermemesi lazımdı
seni de meşgul ettik boş yere kusura bakma

 

[uzmanamele]

merhaba
cuma gününü halledince, diğer günleri de kontrol etmek gerekecekdir.
bütün günleri yaptık diyelim, diğer sınav saatlerinide kontrol etmek gerekecek mi?

 

[cetinsin]

merhaba
cuma gününü halledince, diğer günleri de kontrol etmek gerekecekdir.
bütün günleri yaptık diyelim, diğer sınav saatlerinide kontrol etmek gerekecek mi?

evet aslında hergün ve saat için bu kontrolü yapmamız gerekiyor. çok uzun bir mesele bu kadar olacağını düşünmemiştim.
eğer vaktini almıcaksa yardımını beklerim
yoksa bu şekilde kullancaz kontrolü de kendimiz yapcaz

 

[mesudiye_052]

Doğrulamadan yapabilirsi

=EĞER(VE(limit>90;saat=9);0;1)
formülünü uygula

 

[cetinsin]

Doğrulamadan yapabilirsin

=EĞER(VE(limit>90;saat=9);0;1)
formülünü uygula

aslında sorgu birkaç değişken daha içeriyor o yüzden bu şekilde çözüm derdime derman olmuyor

 

[mesudiye_052]

değişkenleri açıklarsanız birşeyler yapmaya çalışırız

 

[cetinsin]

değişkenleri açıklarsanız birşeyler yapmaya çalışırız

sayfa birde liste oluşturuluyor
a1 : cuma ,cumartesi, pazar, şeklinde bilgi girişi yapılıyor
b1: 9, 11, 13, 15, 17 şeklinde bilgi girişi yapılıyor

sayfa 2 de c1 e formülle sayfa birde aynı satırda girilen a1=cuma ve b1=9 şeklindeki bilgilerin toplam kaç adet olduğu getiriliyor. c2 ye cuma 11; c3 e cuma 15 c4 e cuma 17 gibi d2 ye cumartesi 9 vs.
ben istiyorumki sayfa 2 de ki c1 belli bir sayıyı geçtiğinde (mesela 100) ben sayfa 1 deki b stununa eğer a stünundaki değer cuma ise 9 rakamını giremeyeyim uyarı versin cumartesi ise giriş yapabileyim pazar ise girebileyim pazartesi ise girebileyim. sadece cuma varsa 9 giremeyeyim cuma 11 seklinde giriş yapabileyim
bu sorgu bütün değerler için geçerli olsun yani

cuma 9 cuma 11 cuma 15 cuma 17
cumartesi 9 cumartesi 11 vs.
pazar 9 pazar 11 vs
pazartesi


umarım çok karıştırmamışımdır