Koşullu Uyarı Mesajı

[fledermaus]

Merhaba,

Aşağıdaki koşullu formülü kod olarak nasıl yazabileceğim konusunda bana yardımcı olabilecek biri var mıdır ?

=IF(B64="BEY";"KBNB";IF(B64="OLBA";"ÇIKIŞ YAPILDI";""))

Not: Bu formülü uygulayacağım sayfada uyarı mesajı olarak almak istiyorum.

Yadımlarınız için şimdiden çok teşekür ederim.

 

[yanginci34]

Bu formülünüzü A1 hücresine göre uyarladım siz aşağıdaki kırmızı yeri sağdaki sütun sayısı soldaki ise satır sayısı olarak kendinize göre uyarlayın.
Sub eger()
If Cells(64, 2) = "BEY" Then
Cells(1, 1) = "KBNB"
ElseIf Cells(64, 2) = "OLBA" Then
Cells(1, 1) = "ÇIKIŞ YAPILDI"
End If
End Sub

 

[fledermaus]

Tekrar Merhaba,

Sanırım ihtiyacım olan şeyi yanlış açıkladım. Çıkması gereken uyarıyı herhangi bir hücre içerisinde değil veri doğrulama uyarısında olduğu gibi ekranda belirmesini istiyorum. Bunun dışında düzeltmiş olduğum formül ayrıca aşağıdaki gibidir.


=IF(B64="BEY";"ÇIKIŞ YAPILDI";IF(B64="OLBA";"ÇIKIŞ YAPILDI";""))



Yadımlarınız için şimdiden çok teşekür ederim.

 

[Ömer BARAN]

Merhaba.
Sorunuzu, cevabımın altındaki İMZA bölümünü okuyarak örnek belge üzerinden sorunuz.
Kullanılan formül/kod vs belge içerisinde olsun mutlaka.
.

 

[fledermaus]

Tekrar Merhaba,

Örnek belge ekteki gibidir.

Yardımlarınız için şimdiden çok teşekkür ederim.

 

[fledermaus]

Merhaba,

Bakabildiniz mi acaba ?

Tşkler,

 

[Ömer BARAN]

Tekrar merhaba.
Sarı renklendirdiğiniz hücrelere veri girişinin elle yazılarak girildiği varsayımıyla;
alt tarafatan ilgili sayfanın adına fareyle saağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılacak VBA ekranında
sağdaki alana aşağıdaki kod blokunu yapıştırırsanız; ilgili hcrelere KEMAL veya HASAN yazıldığında belirttiğiniz uyarı görüntülenir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C26:C35, B64]) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
deg = Evaluate("=UPPER(""" & Target.Value & """)")
If deg = "KEMAL" Or deg = "HASAN" Then MsgBox "KABUL EDİLMEDİ", vbCritical, "fledermaus"
End Sub

 

[fledermaus]

Ömer Bey Merhaba,

Kodu ekledim ama uygulamada çalışmıyor anlayamadım.

Kod eklenmiş hali ektedir.



Yardımlarınız için şimdiden çok teşekkür ederim.

 

[fledermaus]

Tekrar Merhaba,

Nerede yanlış yapıyorum bulamadım yardımcı olabilir misiniz acaba ?

Yardımlarınız için şimdiden çok teşekkür ederim.

 

[Ömer BARAN]

Önceki kod cevabımı güncelledim.
Sayfayı yenileyerek, verdiğim kod'un yeni halini dener misiniz?
.

 

[fledermaus]

Ömer Bey Tekrar Merhaba,

Düzeltmiş olduğunuz kodu girdim Ancak yine bir hata mesajı çıkıyor. Vermiş olduğunuz kodlu şekilde dosya ekteki gibidir. Çıkan hata mesajı görseli ise ayrıca yine ektedir.

Yardımlarınız için şimdiden çok teşekkür ederim.

 

[fledermaus]

Merhaba,

Bakabildiniz mi acaba ? Sorunun nereden kaynaklandığını bulamıyorum açıkcası.

Yardımlarınız için şimdiden çok teşekkür ederim.

 

[fledermaus]

Merhaba,

Bu problemi 1-2 saat içinde çözmem gerekli. Konuyla alakalı yardımcı olabilecek birileri var mı acaba ?

Yardımlarınız için şimdiden çok teşekkür ederim.

 

[Ömer BARAN]

Tekrar merhaba.
Birleştirilmiş hücreler üzerinden işlem yapılıyor olması nedeniyle oluşan sorunun halli için,
önceki kod cevabımı tekrar güncelledim (kırmızı renklendirdiğim kısımlar)
Denemelerimde soruna rastlamadım. Kod'un yeni halini deneyiniz.
.

 

[fledermaus]

Ömer Bey Merhaba,

Ne yaptıysam olmuyor. Neden çalışmadığına anlam veremiyorum açıkcası. Rica etsem dosyamı bu koda göre düzenleyip paylaşabilir misiniz ? Böylelikle hem zamanınızı almam hemde nerede hata yaptığımı da rahat görebilirim.

Yardımlarınız için şimdiden çok teşekkür ederim.

 

[Ömer BARAN]

Dosya ekte.
Dosyayı açarken MAKROLARI ETKİNLEŞTİRdiğinizden emin misiniz?
Makrolar etkinleştirilmeden istenilen gerçekleşmez.

 

[fledermaus]

Dosya ekte.
Dosyayı açarken MAKROLARI ETKİNLEŞTİRdiğinizden emin misiniz?
Makrolar etkinleştirilmeden istenilen gerçekleşmez.

Ömer Bey Merhaba,

Söylemiş olduğunuz gibi macrolar enable fakat ben göndermiş olduğunuz kodları tekrar "RUN" yaptığımdan hata kodu alıyormuşum. Problem çözüldü.

Yardımlarınız için çok teşekkür ederim.

 

[Ömer BARAN]

İyi çalışmalar dilerim.

 

[fledermaus]

Tekrar merhaba.
Sarı renklendirdiğiniz hücrelere veri girişinin elle yazılarak girildiği varsayımıyla;
alt tarafatan ilgili sayfanın adına fareyle saağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılacak VBA ekranında
sağdaki alana aşağıdaki kod blokunu yapıştırırsanız; ilgili hcrelere KEMAL veya HASAN yazıldığında belirttiğiniz uyarı görüntülenir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C26:C35, B64]) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
deg = Evaluate("=UPPER(""" & Target.Value & """)")
If deg = "KEMAL" Or deg = "HASAN" Then MsgBox "KABUL EDİLMEDİ", vbCritical, "fledermaus"
End Sub

Ömer Bey Tekrar Merhaba,

Aynı macro sayfası içerisine sadece kriterleri ve uyarı mesajındaki yazıyı değiştirerek yeni macro kodunu kayıt ediyorum ancak uyarı mesajı veriyor. nerede hata yapıyor olabilirim ? bunu pek çok kez farklı kriterler için aynı modülde yapmam gerekecek.

örnek aşağıdadır:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C26:C35, B64]) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
deg = Evaluate("=UPPER(""" & Target.Value & """)")
If deg = "KEMAL" Or deg = "HASAN" Then MsgBox "KABUL EDİLMEDİ", vbCritical, "fledermaus"
End Sub

[/QUOTE]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C26:C35, B64]) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
deg = Evaluate("=UPPER(""" & Target.Value & """)")
If deg = "ali" Or deg = "veli" Then MsgBox "KABUL EDİLDİ", vbCritical, "fledermaus"
End Sub

[/QUOTE]

 

[fledermaus]

Ömer Bey Merhaba,

Bakabildiniz mi acaba ?

Saygılarımla,