iki koşul aynı anda sağlanırsa çıkarılsın

[hakan1312]

ekte de dosyayı gönderilyorum. sayfa 1 benim depo stoğum. ref: kısmı malzeme kodu, prj kısmı malzemenin ilgili projesi; miktarda malzeme miktarı
ben sayfa2'ye stoktan çıkarmak istediğim malzemelerle malzemelerin at olduğu proje adlarını girip makroyu çalıştırdığımda stoktan ilgili projenin malzemesi düşsün. ve eğer stoktan karşılayabiliyorsam; sayfa 2'de durum sütununun altına "ok" yazsın. karşılayamaması halinde "X" yazsın.
böyle bir düzenek kurulabilir mi?

 

[veyselemre]

[vb:1:23c12f343d]Sub StokDus()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son_s1 = s1.[a65536].End(3).Row
son_s2 = s2.[a65536].End(3).Row

For x2 = 3 To son_s2
For x1 = 3 To son_s1
If s1.Cells(x1, 1) = s2.Cells(x2, 1) And s1.Cells(x1, 3) = s2.Cells(x2, 3) Then
If s1.Cells(x1, 2) >= s2.Cells(x2, 2) Then
s1.Cells(x1, 2) = s1.Cells(x1, 2) - s2.Cells(x2, 2)
s2.Cells(x2, 4) = "OK"
Else
s2.Cells(x2, 4) = "X"
End If
End If
Next x1
Next x2
End Sub[/vb:1:23c12f343d]

 

[hakan1312]

Çok teşekkür ederim. Elinize sağlık...

 

[hakan1312]

a

teşekkür ederim. program çok güzel oldu...