Hatırlatma programı foruma eklenmiştir.
http://www.excelce.net/forum/index.php?topic=1661.0

Gönderen Konu: [Çözüldü] Harfe göre hücre kısıtlama  (Okunma sayısı 14619 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 168
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
[Çözüldü] Harfe göre hücre kısıtlama
« : 31 Mart 2010, 19:27:00 »
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ü?
« Son Düzenleme: 13 Nisan 2010, 13:23:46 Gönderen: Bülent Öztürk »

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Harfe göre hücre kısıtlama
« Yanıtla #1 : 31 Mart 2010, 21:05:33 »
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. 8)
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.. 8)

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 168
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
Ynt: Harfe göre hücre kısıtlama
« Yanıtla #2 : 01 Nisan 2010, 13:57:47 »
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ü
« Son Düzenleme: 02 Nisan 2010, 11:29:26 Gönderen: Bülent Öztürk »

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Harfe göre hücre kısıtlama
« Yanıtla #3 : 01 Nisan 2010, 14:25:38 »
Bunu yapmak başlı başına bir program yapmaya eşdeğerdir.
Bunun için vaktim yok.
Size kolay gelsin.

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 168
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
Ynt: Harfe göre hücre kısıtlama
« Yanıtla #4 : 01 Nisan 2010, 14:40:31 »
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

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Harfe göre hücre kısıtlama
« Yanıtla #5 : 01 Nisan 2010, 14:42:28 »
Estafurullah.
Sizinde canınız sağolsun.
İnşallah başka sorulara nasip olur.
Kolay gelsin. 8)

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 168
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
Ynt: Harfe göre hücre kısıtlama
« Yanıtla #6 : 01 Nisan 2010, 19:34:50 »
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.

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Harfe göre hücre kısıtlama
« Yanıtla #7 : 01 Nisan 2010, 19:45:03 »
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.8)
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
« Son Düzenleme: 01 Nisan 2010, 20:55:04 Gönderen: Evren Gizlen »

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 168
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
Ynt: Harfe göre hücre kısıtlama
« Yanıtla #8 : 01 Nisan 2010, 19:50:57 »
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

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Harfe göre hücre kısıtlama
« Yanıtla #9 : 01 Nisan 2010, 20:07:00 »
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.8)

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 168
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
Ynt: Harfe göre hücre kısıtlama
« Yanıtla #10 : 01 Nisan 2010, 20:23:53 »
Evren Abi;

bir baksana ben yapamadım yine yaaa.
« Son Düzenleme: 02 Nisan 2010, 11:30:08 Gönderen: Bülent Öztürk »

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Harfe göre hücre kısıtlama
« Yanıtla #11 : 01 Nisan 2010, 20:49:25 »
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.]
« Son Düzenleme: 01 Nisan 2010, 20:53:57 Gönderen: Evren Gizlen »

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 168
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
Ynt: Harfe göre hücre kısıtlama
« Yanıtla #12 : 01 Nisan 2010, 21:22:05 »
Even Abi;

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

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Harfe göre hücre kısıtlama
« Yanıtla #13 : 01 Nisan 2010, 21:24:11 »
Even Abi;

Zahmet verdim Hakkınızı Helal Edin. İşlem Tamam Abi. Teşekkür ettim.
Rica ederim.
İyi çalışmalar.8)