Hücre Değerine Göre Makro Çalıştırma

[ali8686]

Selam arkadaşlar,

Basit bir problemim var ancak halledemedim. Aşağıdaki kod tüm sheet için çalışıyor. Ben sadece g sütunu için çalıştırmak istiyorum. Yani g sütununda herhangi bir hücreye bir değer yazdığımda hücrenin iki sağındaki hücre değeri eksi olursa hata mesajı verip yazdığım hücrenin içeriğini silsin. Yardımcı olabilir misiniz?

Şimdiden teşekkürler.

If Target.Cells.Offset(0, 2).Value < 0 Then
MsgBox "Stokta yeterli malzeme yok. Çıkış Yapılamaz"
Target.Cells.Value = ""
End If

 

[Mehmet Şahin]

Merhaba,
bu şekilde deneyiniz. Kolay gelsin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("g1:g" & [g65536].End(3).Row)) Is Nothing Then Exit Sub
  If Target.Cells.Offset(0, 2).Value < 0 Then
    MsgBox "Stokta yeterli malzeme yok. Çıkış Yapılamaz"
    Target.Cells.Value = ""
  End If

End Sub

 

[ali8686]

çok teşekkür ederim

 

[Mehmet Şahin]

Rica ederim, iyi akşamlar.