• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Uyarı Ekranı

80,000 €'yu silince hemen kod çalışmaz zaten, ancak silip entere basınca veya başka bir hücre seçince çalışır, sebebi ise silme islemi yapıldığında sayfada o an için henüz bir değişikliği onaylamamış olmanız. Bana göre şu an da kod olması gerektiği gibi çalışıyor,yani 80,000 €'yu silince ve entere basınca msgbox çıkıyor.
 
Ancak kodları şu şekilde yazarsanız hemen tepki alabilirsiniz,
Kod: 
Private Sub Worksheet_Calculate()
If Range("A23").Value <> "" Then
MsgBox ("Satış, Alış Fiyatından eksik ya da %10 altında olamaz" & vbCrLf & "Satış fiyatı " & [Z24].Text & " olmalıdır."), vbCritical, "Uyarı"
End If

End Sub
 
evet düzeldi teşekkür ederim.. ama ilk dosya da Worksheet_SelectionChange olmasına rağmen düzgün çalışıyor, neden ?
 
hayır, ilk sayfadaki benim mesajımın altındaki dosyada da entere basınca çalışıyor, AZ37 rakamı sadece silin, birde entere basın.
 
evet sadece AZ37'yi silince çalışmadı hemen, o zaman onun kodu da yeni verdiğiniz kod ile değiştiriyorum..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst