hücredeki hedef sayısının aşmaması

[yemliha]

merhaba H 6 hücresinde hedeflenmiş bir sayı var buda 2.80€ bu rakamı geçmemesi için yani fazlasını engellemek adına ayrıca bu sayfalar sayfa 1 den 31 e kadar devam ediyor.bunun kodla yapıldığını biliyorum fakat yazmayı bilmediğim için ricam mümkünse sadece kodlarını vermeniz

 

[yemliha]

dosya

Yardimci Olursaniz Sevİnİrİm

 

[Korhan Ayhan]

Selamlar,

Uyarı mesajı verdirilebilir fakat çalışmanızda bu işlemi başlatacak bir olayı belirtirseniz kod yazmak kolaylaşacaktır. Mesela örnek dosyanızda kur girildiğinde H5 hücresindeki hesaplama yenileneceği için kuru gireceğiniz hücreyi kontrol eden bir kodlama ile uyarı mesajını verdirebiliriz. Yani kodun çalışmasını tetikleyecek bir olayı belirtmeniz gerekiyor. Ya da bir buton ile bu kontrol yaptıralabilir. Sizin açıklamanıza göre kodu düzenleyebiliriz.

 

[yemliha]

tekrar merhaba

H4 hücresi yani kur sabit değişken değil
istek miktarına malzeme girdikce dolayısı ile maliyette yükseliyor ve hedeflenmiş bir rakam var ordada yazılı olduğu gibi benim isteğim H5 hücresi 0,19€ geçmemesi geçtği zaman uyarması
ilginiz için teşekkür ederim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz. İSTEK MİKTARI sütununa veri girdikçe hedeflenen maliyet kontrol edilecektir. Aştığınız anda size uyarı mesajı ile haber verecektir. Ve son girilen miktarı silecektir. Umarım faydası olur.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [D11:D65536]) Is Nothing Then Exit Sub
    If Target <> "" And [H5] > [H7] Then
    MsgBox "HEDEFLENEN MAL&#304;YET&#304; A&#350;MI&#350; DURUMDASINIZ !" & vbCrLf & vbCrLf _
    & "L&#220;TFEN &#304;STEK M&#304;KTARLARINIZI KONTROL ED&#304;N&#304;Z.", vbCritical, "D&#304;KKAT !"
    Target = ""
    End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodda ise HEDEFLENEN , REALİZE ve FARK hesaplaması yapılarak MSGBOX ta size bilgi olarak görüntülenir. Üstte verdiğim koddan farkı budur.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [D11:D65536]) Is Nothing Then Exit Sub
    If Target <> "" And [H5] > [H7] Then
    HEDEF = Format([H7], "#,##0.00 &#8364;")
    REAL&#304;ZE = Format([H5], "#,##0.00 &#8364;")
    FARK = Format([H7] - [H5], "#,##0.00 &#8364;")
    MsgBox "HEDEFLENEN" & Space(5) & HEDEF & vbCrLf & _
    "REAL&#304;ZE" & Space(14) & REAL&#304;ZE & vbCrLf & _
    "FARK" & Space(19) & FARK & vbCrLf & vbCrLf & _
    "HEDEFLENEN MAL&#304;YET&#304; A&#350;MI&#350; DURUMDASINIZ !" & vbCrLf & vbCrLf _
    & "L&#220;TFEN &#304;STEK M&#304;KTARLARINIZI KONTROL ED&#304;N&#304;Z.", vbCritical, "D&#304;KKAT !"
    Target = ""
    End If
End Sub