Makro kod editleme yardım

[togan1903]

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

 

[systran]

kırmızı yeri sil
If sat.Value = [B12].Value And sat.Offset(0, 2).Value >= [B13].Value And sat.Offset(0, 3).Value <= [B14].Value Then
dosyayı da inceledim düzgün çalıştı

 

[togan1903]

kırmızı yeri sil
If sat.Value = [B12].Value And sat.Offset(0, 2).Value >= [B13].Value And sat.Offset(0, 3).Value <= [B14].Value Then
dosyayı da inceledim düzgün çalıştı

teşekkür ederim ben and ve then kısmını anlamamısım .

çok teşekkür ederim ..

iyi akşamlar