Excel Makro kod editleme yardım

[btogan]

arkadaşlar merhaba


aşağıdaki koddan iki satır cıkarmak istiyorum ama bir türlü yapamadım hep hata veriyor

Sub Satis()
Dim Alan As Range, sat As Range
Set Alan = Range("A2:A" & Range("A10").End(xlUp).Row)


For Each sat In Alan

If sat.Value = [B12].Value And sat.Offset(0, 2).Value < [B13].Value Then MsgBox " Stok Yetersiz ...!", vbCritical: Exit Sub
If sat.Value = [B12].Value And sat.Offset(0, 3).Value > [B14].Value Then MsgBox " Zararına satış yapamazsınız..! ", vbCritical: Exit Sub

If sat.Value = [B12].Value And sat.Offset(0, 2).Value >= [B13].Value And sat.Offset(0, 3).Value <= [B14].Value Then
sat.Offset(0, 2).Value = sat.Offset(0, 2).Value - [B13].Value
sat.Offset(0, 4).Value = sat.Offset(0, 4).Value + [B13].Value
sat.Offset(0, 5).Value = sat.Offset(0, 5).Value + [B13].Value * [B14].Value
MsgBox "Satış işlemi başarıyla kaydedildi..", vbInformation
Exit Sub
End If

Next
MsgBox "Bu Ürün Kodu Stok Kayıtlarında Bulunamadı..", vbInformation


End Sub

renkli bölümler
b14 lü bölümleri tablodan sildim . o bölümleri bu koddan silemiyorum hep hata veriyor


..






örnek dosya
http://s3.dosya.tc/server15/YvclQu/Satislar.xls.html

 

[scaymaz1]

bana özel mesajdan ulaşa bilirmisinz