Azalan stok mesajı.

[acolkesen1]

Merhaba Arkadaşlar,
Forumda daha önce benzer bir çalışma hatırlıyorum ama bir türlü bulamadım.Ekli dosyada B sütununda stokların minimum miktarları yazılı. C sütununa da ilgili stokların son durumlarını bir başka sayfadan aktarıyorum. Yapmak istediğim; Dosyanın açılışında veriler kontrol edilerek minimum seviyeye veya daha altına düşmüş olan stokların mesajla bildirilmesi.. Böyle bir çalışmaya forumda rastlamıştım. Arşivinde olanların veya yardımcı olabilecek arkadaşların ilgilerini bekliyorum.

 

[Erdal]

Merhabalar
İllaki kod ile olsun demiyorsanız koşullu biçimlendirme ile ilgili hücreler renklendirilebilir.

 

[acolkesen1]

Merhaba Sayın Erdal,
Kod ile olması gerekiyor. Dosya farklı kişiler tarafından kullanıldığı çin açılışta auto_open altına yazılack kodla mesaj verdirilirse iyi olacak. Stok listesinde yaklaşık 7000 kalem ürün var ve tek tek kontrol oldukça zaman alıyor. Ayrıca farklı sayfalardan bilgi aldığı için formül çözümü yavaşlamasına sebep oluyor.

 

[Zeki Gürsoy]

Merhaba,

Şunu deneyin...

Sub auto_open()
Dim arr

arr = Sheets("Sayfa1").Range("a2:c" & [a65000].End(3).Row)

For z = 1 To UBound(arr, 1)
    If (arr(z, 2) >= arr(z, 3)) Then
        MsgBox arr(z, 1) & " azalmış." & Chr(13) & _
            "Satır : " & z + 1
    End If
Next

Erase arr
End Sub