- Katılım
- 18 Kasım 2012
- Mesajlar
- 423
- Excel Vers. ve Dili
- Microsoft Office 365
Ömer Bey Merhaba,
Basit bir yere takılmışım sanırım. Kod'u aşağıdaki gibi güncelleyerek konuyu çözüme kavuşturdum. Yardımlarınız için yine de teşekkür ederim.
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"
If deg = "ali" Or deg = "veli" Then MsgBox "KABUL EDİLDİ", vbCritical, "fledermaus"
End Sub
Saygılarımla,
Basit bir yere takılmışım sanırım. Kod'u aşağıdaki gibi güncelleyerek konuyu çözüme kavuşturdum. Yardımlarınız için yine de teşekkür ederim.
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"
If deg = "ali" Or deg = "veli" Then MsgBox "KABUL EDİLDİ", vbCritical, "fledermaus"
End Sub
Saygılarımla,