Ilaç kritik stok takip

[drseref]

Ilacın miadına 3 ay kala olduğunda satır yeşil olsun.
Ilacın miadı geçtiğinde satır kırmızı olsun.
Yardımlarınız için şimdiden teşekkürler.
Sitenizi her gün hevesle takip ediyorum...

 

[drseref]

acil gerekli malzeme giriş olduğu gibi malzeme çıkış macrosuda gerekli...
acil lazım....

 

[drseref]

hocalarım acil lazım...

 

[ynmcan]

Ilacın miadına 3 ay kala olduğunda satır yeşil olsun.
Ilacın miadı geçtiğinde satır kırmızı olsun.
Yardımlarınız için şimdiden teşekkürler.
Sitenizi her gün hevesle takip ediyorum...

Syn. Drseref;
Ekteki dosyayı inceleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Sheets("Sayfa1")

For sat = 3 To .Range("J3:J65536").End(4).Row
For i = 7 To 15


.Cells(sat, i).Interior.ColorIndex = xlNone

If .Cells(sat, 10).Value <= DateAdd("m", 3, .Range("B1").Value) Then
          .Cells(sat, i).Interior.ColorIndex = 10
                End If
                

If .Range("B1").Value > .Cells(sat, 10).Value Then
         .Cells(sat, i).Interior.ColorIndex = 3
                End If

Next i
Next sat

End With

End Sub