belli bir değer atamak ve harici değeri engellemek

[muratfix]

arkadaşlar örnek dosyada olduğu gibi şıklar karşısına sadece E veya H değerlerinin girilmesi gerekiyor. Bunun dışındaki bir harf veya sayı yanlışlıkla girildiğinde uyarılması gerekmekte. ayrıca boş bırakılan hücre veya hücreler olursa da bunun yan tarafta bir yerde gösterilmesi gerekmektedir. yardımlarınız için şimdiden teşekkürler.

 

[muratfix]

arkadaşlar çok önemli bir aşamada kaldım lütfen yardım...

 

[Korhan Ayhan]

Selamlar,

İşlemi veri doğrulama ile yapabilirsiniz.

Veri-Doğrulama-Ayarlar-İzin Verilen bölümünden "Liste" seçeneğini seçin.
Alttaki kutucuğa E;H yazın.
Hata Uyarısı sekmesine geçin. Hatalı veride çıkmasını istediğiniz uyarı mesajını yazın.

 

[muratfix]

teşekür ederim oldu şimdi. boş bırakılan şıklar için örnekte yazdığı gibi boş bırakıldığını farklı bir yere belirtme ile ilgili bir fikriniz var mı?

 

[muratfix]

arkadaşlar örnek dosyada ki gibi bir yapıda şıklara cevap veririrken boş bırakılan şıkların tespitini nasıl yapabiliriz.

 

[Korhan Ayhan]

Selamlar,

Dizi formül ile rahatlıkla listeleyebilirsiniz.

D1 hücresine boş değerleri sayan aşağıdaki formülü uygulayın.

=TOPLA.ÇARPIM(($A$1:$A$1000<>"")*($B$1:$B$1000=""))

E1 hücresine aşağıdaki dizi formülü uygulayın ve ihtiyacınız kadar alt hücrelere sürükleyin. Formülü hücreye uyguladıktan sonra cursor hücre içindeyken hücreyi CTRL+SHIFT+ENTER tuşlarına basarak terk edin. Aksi halde doğru sonuç üretmez.

=EĞER(SATIR()>$D$1;"";İNDİS($A:$A;KÜÇÜK(EĞER($A$1:$A$1000<>"";EĞER($B$1:$B$1000="";SATIR($B$1:$B$1000)));SATIRSAY(B$1:B1))))

Uygulamalı örnek dosya ektedir.

 

[muratfix]

teşekkür ederim vakit ayırmışınız ama bunu kod yardımıyla bir komut butonu veya makro oluşturarak denetim yaptırıp hangi şıklar boş bırakılmışlarsa bir yerlere yansıtmak mümkün değil mi?

 

[Korhan Ayhan]

Selamlar,

Tabiki makro ile yapılabilir. Makro sonucunda oluşan değeri nasıl görmek istiyor sunuz?

 

[muratfix]

evet bi hayli uğraştım önceki formülle ama istediğim gibi bir adaptasyon yapamadım. kod yardımı ile çözmek gerekiyor sanırım. makro sonucunda oluşan değer herhangi bir hücrede boş bırakılan şıklar örneğin 2,32,34,45,46 şeklinde yansıtılabilir mi?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub BOŞ_ŞIKLARI_LİSTELE()
    Dim X As Long
    
    Range("D1") = ""
    Range("D1").NumberFormat = "@"
    
    For X = 1 To Range("A65536").End(3).Row
        If Cells(X, "A") <> "" And Cells(X, "B") = "" Then
            Range("D1") = IIf(Range("D1") = "", Cells(X, "A"), Range("D1") & "-" & Cells(X, "A"))
        End If
    Next
 
    If Range("D1") <> "" Then Range("D1") = Range("D1") & " ŞIKLARI BOŞ BIRAKILMIŞTIR."
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub