[Çözüldü] Harfe göre hücre kısıtlama

[yesilyurtlu]

Merhaba ;
İlk mesajımı ustalarıma şöyle arzedeyim;

Eğer AF sütununda AF7 ' deki hücreler "K" ise M7:R7 hücrelerine en fazla toplamı 9 olacak kadar veri girişine müsade verecek Aynı zamanda da J sütununda J7 'ye "cd" yazacak.
Eğer AF sütununda AF7' deki hücreler "A" ise M7:R7 hücrelerine kesinlikle veri girişi yapılamayacak ama yine Aynı zamanda da J sütununda J7 'ye "d" yazacak.

Böyle bir makro mümkün mü?

[Orion1]

Merhaba ;
İlk mesajımı ustalarıma şöyle arzedeyim;

Eğer AF sütununda AF7 ' deki hücreler "K" ise M7:R7 hücrelerine en fazla toplamı 9 olacak kadar veri girişine müsade verecek Aynı zamanda da J sütununda J7 'ye "cd" yazacak.
Eğer AF sütununda AF7' deki hücreler "A" ise M7:R7 hücrelerine kesinlikle veri girişi yapılamayacak ama yine Aynı zamanda da J sütununda J7 'ye "d" yazacak.

Böyle bir makro mümkün mü?

sorunuzu anlamadım.
1-a)AF sütununda AF7'deki hücreler "K" ise
Burada AF7'deki hücreler demişsiniz AF7 de bir tane hücre var.Oda AF7 hücresidir.Yani çoğul değil tekildir.
1-b)M7:R7 hücrelerinin en fazla toplamı 9 olacak
Burada  m7:R7 aralığında sayısal değerlermi var.Varsa bunların toplamı 9a eşit ve küçüksemi veri girişine müsaade edilecek ve j sütununda j7 sütununa cd yazacak.
2-a)Eğer AF sütununda AF7' deki hücreler "A" ise
Burada yine 1-a) daki gibi yetersiz ve çelişkili açıklama var.
Sorularınız çelişkisiz bir biçimde anlatırsanız doğru cevaba daha çabuk ulaşırsınız.
Ve cevaplayanlarıda faladan yormamış olursunuz.
İyi çalışmalr..

[yesilyurtlu]

Evren ÜSTADIM;

Ekli dosya da yardımına hem vallahi hem de billahi acil ihtiyacım var.

Ekli dosyada iki tane userform mevcut.
Taşımalı Giriş Userformunda Merkez okul seçildiğinde Okullar sekmesinde ki Merkez okula ait alttaki taşımalı sarı yerler yazacak.
Merkez Okul Ek1 sekmesinde ki Adı D sütununa, Taşınacak okul adını H sütununa, Öğrenci sayılarını ise girdiğim zaman toplamını alıp Ek 1 sekmesine aktaracak.

ÜSTADIM Gurban olayım foruma döndüğünde bir bakasın. TEŞEKKÜR EDERİM ÜSTADIM.
Aciliyeti bugün teslim etmeliydik. Bakanığa pazartesi sunulacak çünkü

[Orion1]

Bunu yapmak başlı başına bir program yapmaya eşdeğerdir.
Bunun için vaktim yok.
Size kolay gelsin.

[yesilyurtlu]

Evren Abi ;
Canın Sağolsun Abi. Hakkını Helal Et. Ben o kadar ağır olacağını bilmiyordum.Özür Dilerim Abi.

Teşekkür Ederim

[Orion1]

Estafurullah.
Sizinde canınız sağolsun.
İnşallah başka sorulara nasip olur.
Kolay gelsin.

[yesilyurtlu]

Evren abi;
Hayırlı Akşamlar

B5 hücresi 0 ise Tüm hücreler açık
B5 hücresi 1 ise F5 G5 H5 I5 J5 K5 hücreleri kilitlensin.
B5 hücresi 2 ise F5 G5 H5 I5 J5 K5 L5 M5 N5 O5 hücreleri kilitlensin.
Ama bu işle alt alta sıralı olsun B150 hücresine kadar

bu konuda yardımcı olabilir misin abi.

[Orion1]

Evren abi;
Hayırlı Akşamlar

B5 hücresi 0 ise Tüm hücreler açık
B5 hücresi 1 ise F5 G5 H5 I5 J5 K5 hücreleri kilitlensin.
B5 hücresi 2 ise F5 G5 H5 I5 J5 K5 L5 M5 N5 O5 hücreleri kilitlensin.
Ama bu işle alt alta sıralı olsun B150 hücresine kadar

bu konuda yardımcı olabilir misin abi.

Aşağıdaki kodları çalışma sayfasının kod bölümüne yapıştırınız.

Kod: [Seç]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B5:B150]) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
If Target.Value = 0 Then Range("F" & Target.Row & ":O" & Target.Row).Locked = False
If Target.Value = 1 Then Range("F" & Target.Row & ":K" & Target.Row).Locked = True
If Target.Value = 2 Then Range("F" & Target.Row & ":O" & Target.Row).Locked = True
ActiveSheet.Protect
End Sub

[yesilyurtlu]

Evren Abi
Bu kadar çabuk cevap verdiğiniz için öncelikle teşekkür ederim. Sanki özelden soru sormuşum gibi anında cevap verdiniz.

Kızma ama ben beceremedim. 2 yazdığım halde kilitlenmedi gerekli hücreler

[Orion1]

Evren Abi
Bu kadar çabuk cevap verdiğiniz için öncelikle teşekkür ederim. Sanki özelden soru sormuşum gibi anında cevap verdiniz.

Kızma ama ben beceremedim. 2 yazdığım halde kilitlenmedi gerekli hücreler

Durumu düzelttim.
Önceki mesajımdan indirebilirsiniz.

[yesilyurtlu]

Evren Abi;

bir baksana ben yapamadım yine yaaa.

[Orion1]

Evet haklısınız.Changed olayına söylemeyi unutmuşum.
Dosyanız ektedir.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[yesilyurtlu]

Even Abi;

Zahmet verdim Hakkınızı Helal Edin. İşlem Tamam Abi. Teşekkür ettim.

[Orion1]

Even Abi;

Zahmet verdim Hakkınızı Helal Edin. İşlem Tamam Abi. Teşekkür ettim.

Rica ederim.
İyi çalışmalar.