Çözüldü Butona tıklayarak değeri artırma ve maksimum değer verme

[avla123]

M4 hücresinde 100 yazıyor N4 hücresinde 1 yazıyor kod yardımıyla butona tıklayarak 101 102 şekilde 1 1 artirabiliyorum fakat M4 deki değerin maksimum 200 minimum 0 olması ve 0 olduğunda bana uyarı vermesini istiyorum. yazdığım kod

Sub cop()
Range("M4").value = range("M4").value + range("n4").value
Range("M4").value = range("M4").value - range("n5").value
End sub

 

[Muzaffer Ali]

SpinButton kullanın. Özelliklerden max ve min ayaralayabilirsiniz.

 

[yanginci34]

denermisiniz.
http://dosya.co/7i78adpdmwbu/arttır_ve_eksilt.xlsm.html

 

[avla123]

Telefondan giriyorum kodları buraya yazabilir misiniz

 

[yanginci34]

buton için kod:
Sub işlem()
Range("M4").Value = Range("M4").Value - Range("n5").Value
If Range("m4").Value >= 200 Then Exit Sub
Range("M4").Value = Range("M4").Value + Range("n4").Value


End Sub

sayfa için kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("m4").Value = 0 Then
MsgBox "Dikkat!!! değer 0 oldu !!!"
Range("m4").Value =100
End If
End Sub

 

[avla123]

Maksimum değer oldu teşekkür ederim minimum değerdeki kodları nereye yazayım minimum değere ulaştığında tamam a basicam ve M4 deki değer tekrardan 100 olacak

 

[tyfngkt]

Çok teşekkürler hocam paylaşımlarınız için. Not ediyorum kenara bunları hep

 

[yanginci34]

bu kodu sayfa ismine sağ tıklayıp kodu görüntüleyi seç ve oraya yapıştır
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("m4").Value = 0 Then
MsgBox "Dikkat!!! değer 0 oldu !!!"
Range("m4").Value =100
End If
End Sub

 

[yanginci34]

Rica ederim; Asıl ben teşekkür ederim ilginiz için. Sayın tyfngkt

 

[avla123]

Teşekkür ederim çok güzel oldu

 

[yanginci34]

Rica ederim dönüş yaptığınız için ben teşekkür ederim.