Eğer & eğer değilse & silinirse

[baydeniro]

Merhaba,
Aşağıdaki KOD ile C Sütununa bir rakam yazıldığında :
*** B sütunundaki kodun ÜRÜN sayfası C sütununda miktardan KAYIT sayfası C sütununda miktarı çıkarıp D sütununa yazıyor.
*** Eğer KALAN (D) sütunundaki rakam sıfır veya pozitif ise cursor A sütununda bir alt satıra gidiyor.
*** Eğer KALAN (D) sütunundaki rakam negatif ise Uyarı mesajı geliyor.

Kodun şu şekilde çalışması için nasıl revize etmem gerekir :
*** C sütununa rakam yazıldığında KALAN (D) sütunundaki rakam negatif ise gelen Uyarı mesajını kapatınca cursor tekrar C sütununa geri gitmesi,

*** C sütunundaki rakam silindiğinde cursor C sütununda kalması.


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 3 Then
If Target = "" Then
Target.Offset(, 0).Select
End If

If Target > 0 Then
Target.Offset(, 1).Select
Call STOK
Target.Offset(, 1).Value = Target.Offset(0, 1)
If Target.Offset(, 1) >= 0 Then GoTo 10
End If

If Target.Offset(, 1) < 0 Then
Call NEGATIF
Target.Offset(0, -2).Select
End If

10
Target.Offset(1, -2).Select
End If
End Sub


Örnek dosya linki : http://s5.dosya.tc/server3/3eq6fp/EGER_DEGILSE.xls.html

 

[fireman64]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If Target = "" Then
Exit Sub
End If
If Target > 0 Then
Target.Offset(, 1).Select
ActiveCell.FormulaR1C1 = "=SUMIF(ÜRÜN!C2,RC2,ÜRÜN!C3)-(RC3)"
Target.Offset(, 1).Value = Target.Offset(0, 1)
If Target.Offset(, 1) >= 0 Then GoTo 10
Else
End If

If Target.Offset(, 1) < 0 Then
MsgBox ("Yetersiz Miktar")
Target.Offset(0, 0).Select
Exit Sub
End If
10
Target.Offset(1, -2).Select
End If
End Sub

 

[baydeniro]

Çok teşekkür ediyorum fireman64, elinize, emeğinize sağlık. Sağlıcakla kalın.

 

[fireman64]

Rica ederim.