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

Katılım
17 Aralık 2005
Mesajlar
9
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

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
[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]
 
Katılım
17 Aralık 2005
Mesajlar
9
a

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