Thanks to visit codestin.com
Credit goes to www.scribd.com

0% found this document useful (0 votes)
35 views28 pages

Inventory Alert System

The document contains code that checks the value in multiple spreadsheet cells and displays a warning message if the value is below a certain threshold. It checks values in cells U5 through U730 against thresholds of 12, 8, 5, 3, 2, and 1, displaying the message "is less than X!!" where X is the threshold number. It is checking inventory levels of various medical supplies and medications and alerting if the level falls below the minimum.

Uploaded by

Jomel medina
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
0% found this document useful (0 votes)
35 views28 pages

Inventory Alert System

The document contains code that checks the value in multiple spreadsheet cells and displays a warning message if the value is below a certain threshold. It checks values in cells U5 through U730 against thresholds of 12, 8, 5, 3, 2, and 1, displaying the message "is less than X!!" where X is the threshold number. It is checking inventory levels of various medical supplies and medications and alerting if the level falls below the minimum.

Uploaded by

Jomel medina
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 28

Private Sub Worksheet_Calculate()

If Range("U5").Value < 12 Then MsgBox "0.9 Nacl 1L is less than 12!!", 48, "Warning...Warning..."

If Range("U7").Value < 12 Then MsgBox "0.9 Nacl 50ml is less than 12!!", 48, "Warning...Warning..."

If Range("U17").Value < 12 Then MsgBox "Adult diaper is less than 12!!", 48, "Warning...Warning..."

If Range("U92").Value < 12 Then MsgBox "Blade 10 is less than 12!!", 48, "Warning...Warning..."

If Range("U93").Value < 12 Then MsgBox "Blade 11 is less than 12!!", 48, "Warning...Warning..."

If Range("U94").Value < 12 Then MsgBox "Blade 15 is less than 12!!", 48, "Warning...Warning..."

If Range("U158").Value < 5 Then MsgBox "Chromic 2.0 DA is less than 5!!", 48, "Warning...Warning..."

If Range("U160").Value < 5 Then MsgBox "Chromic 2.0 R is less than 5!!", 48, "Warning...Warning..."

If Range("U161").Value < 5 Then MsgBox "Chromic 3.0 R is less than 5!!", 48, "Warning...Warning..."

If Range("U162").Value < 5 Then MsgBox "Chromic 3.0 C is less than 5!!", 48, "Warning...Warning..."

If Range("U163").Value < 5 Then MsgBox "Chromic 4.0 C is less than 5!!", 48, "Warning...Warning..."

If Range("U164").Value < 5 Then MsgBox "Chromic 4.0 R is less than 5!!", 48, "Warning...Warning..."

If Range("U210").Value < 8 Then MsgBox "D5 IMB 1L is less than 8!!", 48, "Warning...Warning..."

If Range("U210").Value < 8 Then MsgBox "D5 IMB 1L is less than 8!!", 48, "Warning...Warning..."

If Range("U212").Value < 8 Then MsgBox "D5 0.3NACL 1L is less than 8!!", 48, "Warning...Warning..."

If Range("U214").Value < 8 Then MsgBox "D5 0.9 NACL 1L is less than 8!!", 48, "Warning...Warning..."

If Range("U216").Value < 8 Then MsgBox "D5 LRS 1L is less than 8!!", 48, "Warning...Warning..."

If Range("U218").Value < 8 Then MsgBox "D5 NM 1L is less than 8!!", 48, "Warning...Warning..."

If Range("U220").Value < 8 Then MsgBox "D5 WATER 1L is less than 8!!", 48, "Warning...Warning..."

If Range("U388").Value < 8 Then MsgBox "INSYTE 18 is less than 8!!", 48, "Warning...Warning..."

If Range("U389").Value < 8 Then MsgBox "INSYTE 20 is less than 8!!", 48, "Warning...Warning..."

If Range("U390").Value < 8 Then MsgBox "INSYTE 22 is less than 8!!", 48, "Warning...Warning..."

If Range("U391").Value < 8 Then MsgBox "INSYTE 24 is less than 8!!", 48, "Warning...Warning..."

If Range("U392").Value < 8 Then MsgBox "INSYTE 26 is less than 8!!", 48, "Warning...Warning..."
If Range("U506").Value < 10 Then MsgBox "NG 20 is less than 10!!", 48, "Warning...Warning..."

If Range("U507").Value < 10 Then MsgBox "NG 21 is less than 10!!", 48, "Warning...Warning..."

If Range("U508").Value < 10 Then MsgBox "NG 23 is less than 10!!", 48, "Warning...Warning..."

If Range("U509").Value < 10 Then MsgBox "NG 25 is less than 10!!", 48, "Warning...Warning..."

If Range("U510").Value < 10 Then MsgBox "NG 26 is less than 10!!", 48, "Warning...Warning..."

If Range("U529").Value < 8 Then MsgBox "Nylon 2.0 R is less than 8!!", 48, "Warning...Warning..."

If Range("U530").Value < 8 Then MsgBox "Nylon 2.0 C is less than 8!!", 48, "Warning...Warning..."

If Range("U531").Value < 8 Then MsgBox "Nylon 3.0 C is less than 8!!", 48, "Warning...Warning..."

If Range("U532").Value < 8 Then MsgBox "Nylon 4.0 C is less than 8!!", 48, "Warning...Warning..."

If Range("U533").Value < 8 Then MsgBox "Nylon 4.0 R is less than 8!!", 48, "Warning...Warning..."

If Range("U535").Value < 8 Then MsgBox "Nylon 6.0 C is less than 8!!", 48, "Warning...Warning..."

If Range("U584").Value < 8 Then MsgBox "PLRS 1L is less than 8!!", 48, "Warning...Warning..."

If Range("U653").Value < 8 Then MsgBox "Silk 2.0 C is less than 8!!", 48, "Warning...Warning..."

If Range("U655").Value < 8 Then MsgBox "Silk 3.0 C is less than 8!!", 48, "Warning...Warning..."

If Range("U657").Value < 8 Then MsgBox "Silk 4.0 C is less than 8!!", 48, "Warning...Warning..."

If Range("U659").Value < 8 Then MsgBox "Silk 5.0 C is less than 8!!", 48, "Warning...Warning..."

If Range("U681").Value < 8 Then MsgBox "Sterile Gloves 6.0 is less than 8!!", 48, "Warning...Warning..."

If Range("U682").Value < 8 Then MsgBox "Sterile Gloves 6.5 is less than 8!!", 48, "Warning...Warning..."

If Range("U683").Value < 8 Then MsgBox "Sterile Gloves 7.0 is less than 8!!", 48, "Warning...Warning..."

If Range("U684").Value < 8 Then MsgBox "Sterile Gloves 7.5 is less than 8!!", 48, "Warning...Warning..."

If Range("U730").Value < 8 Then MsgBox "Urine Collector is less than 12!!", 48, "Warning...Warning..."

If Range("U8").Value < 40 Then MsgBox "10cc is less than 40!!", 48, "Warning...Warning..."

If Range("U9").Value < 50 Then MsgBox "1cc is less than 50!!", 48, "Warning...Warning..."

If Range("U10").Value < 50 Then MsgBox "3cc is less than 50!!", 48, "Warning...Warning..."

If Range("U12").Value < 50 Then MsgBox "5cc is less than 50!!", 48, "Warning...Warning..."
If Range("U6").Value < 3 Then MsgBox "0.9 NACL 500ML is less than 3!!", 48, "Warning...Warning..."

If Range("U57").Value < 3 Then MsgBox "Arm sling Large is less than 3!!", 48, "Warning...Warning..."

If Range("U58").Value < 3 Then MsgBox "Arm sling Medium is less than 3!!", 48, "Warning...Warning..."

If Range("U59").Value < 3 Then MsgBox "Arm sling Small is less than 3!!", 48, "Warning...Warning..."

If Range("U98").Value < 3 Then MsgBox "Butterfly gauge 21 is less than 3!!", 48, "Warning...Warning..."

If Range("U99").Value < 3 Then MsgBox "Butterfly gauge 23 is less than 3!!", 48, "Warning...Warning..."

If Range("U100").Value < 3 Then MsgBox "Butterfly gauge 25 is less than 3!!", 48, "Warning...Warning..."

If Range("U286").Value < 5 Then MsgBox "EQ Diaper XL is less than 5!!", 48, "Warning...Warning..."

If Range("U287").Value < 5 Then MsgBox "EQ Diaper Medium is less than 5!!", 48,
"Warning...Warning..."

If Range("U289").Value < 5 Then MsgBox "EQ Diaper small is less than 5!!", 48, "Warning...Warning..."

If Range("U312").Value < 2 Then MsgBox "Feeding tube Fr. 10 is less than 2!!", 48,
"Warning...Warning..."

If Range("U313").Value < 2 Then MsgBox "Feeding tube Fr. 14 is less than 2!!", 48,
"Warning...Warning..."

If Range("U314").Value < 2 Then MsgBox "Feeding tube Fr. 18 is less than 2!!", 48,
"Warning...Warning..."

If Range("U316").Value < 2 Then MsgBox "Feeding tube Fr. 16 is less than 2!!", 48,
"Warning...Warning..."

If Range("U317").Value < 2 Then MsgBox "Feeding tube Fr. 5 is less than 2!!", 48, "Warning...Warning..."

If Range("U319").Value < 2 Then MsgBox "Feeding tube Fr. 8 is less than 2!!", 48, "Warning...Warning..."

If Range("U329").Value < 2 Then MsgBox "Fleet Enema is less than 2!!", 48, "Warning...Warning..."

If Range("U473").Value < 5 Then MsgBox "Modess Single is less than 5!!", 48, "Warning...Warning..."

If Range("U474").Value < 5 Then MsgBox "Modess Maternity is less than 5!!", 48, "Warning...Warning..."

If Range("U274").Value < 5 Then MsgBox "El bandage 2 inches is less than 5!!", 48,
"Warning...Warning..."

If Range("U275").Value < 5 Then MsgBox "El bandage 4 inches is less than 5!!", 48,
"Warning...Warning..."
If Range("U276").Value < 5 Then MsgBox "El bandage 6 inches is less than 5!!", 48,
"Warning...Warning..."

If Range("U18").Value < 30 Then MsgBox "Airex 500 mg is less than 30!!", 48, "Warning...Warning..."

If Range("U21").Value < 20 Then MsgBox "Al + Mg tablet is less than 20!!", 48, "Warning...Warning..."

If Range("U22").Value < 20 Then MsgBox "Ambroxol 30 mg is less than 20!!", 48, "Warning...Warning..."

If Range("U23").Value < 20 Then MsgBox "Ambroxol 75 mg is less than 20!!", 48, "Warning...Warning..."

If Range("U35").Value < 30 Then MsgBox "Amlodipine 5 mg is less than 30!!", 48, "Warning...Warning..."

If Range("U36").Value < 30 Then MsgBox "Amlodipine 10 mg is less than 30!!", 48,


"Warning...Warning..."

If Range("U41").Value < 30 Then MsgBox "Amoxicillin 500 mg is less than 30!!", 48,
"Warning...Warning..."

If Range("U50").Value < 10 Then MsgBox "Appebon + Iron capsule is less than 10!!", 48,
"Warning...Warning..."

If Range("U52").Value < 10 Then MsgBox "Appebon Plus capsule is less than 10!!", 48,
"Warning...Warning..."

If Range("U67").Value < 30 Then MsgBox "Aspirin 80 mg is less than 30!!", 48, "Warning...Warning..."

If Range("U60").Value < 30 Then MsgBox "Ascorbic acid tab is less than 30!!", 48, "Warning...Warning..."

If Range("U97").Value < 10 Then MsgBox "Buscopan tab is less than 10!!", 48, "Warning...Warning..."

If Range("U101").Value < 10 Then MsgBox "Calcium carbonate tab is less than 10!!", 48,
"Warning...Warning..."

If Range("U105").Value < 10 Then MsgBox "Captopril tab is less than 10!!", 48, "Warning...Warning..."

If Range("U109").Value < 10 Then MsgBox "Carbocisteine cap is less than 10!!", 48,
"Warning...Warning..."

If Range("U128").Value < 30 Then MsgBox "Cefalexin cap is less than 30!!", 48, "Warning...Warning..."

If Range("U135").Value < 30 Then MsgBox "Cefuroxime 500 cap is less than 30!!", 48,
"Warning...Warning..."

If Range("U129").Value < 20 Then MsgBox "Cefixime 200 mg cap is less than 20!!", 48,
"Warning...Warning..."
If Range("U144").Value < 30 Then MsgBox "Celecoxib 200 mg cap is less than 30!!", 48,
"Warning...Warning..."

If Range("U149").Value < 30 Then MsgBox "Cetirizine tab is less than 30!!", 48, "Warning...Warning..."

If Range("U154").Value < 30 Then MsgBox "Chloramphenicol 500 mg cap is less than 30!!", 48,
"Warning...Warning..."

If Range("U167").Value < 30 Then MsgBox "Ciprofloxacin 500 mg is less than 30!!", 48,
"Warning...Warning..."

If Range("U173").Value < 30 Then MsgBox "Clarithromycin 500 mg is less than 30!!", 48,
"Warning...Warning..."

If Range("U180").Value < 30 Then MsgBox "Clindamycin 300 mg is less than 30!!", 48,
"Warning...Warning..."

If Range("U182").Value < 20 Then MsgBox "Clonidine tab is less than 20!!", 48, "Warning...Warning..."

If Range("U184").Value < 30 Then MsgBox "Cloxacillin 500 mg is less than 30!!", 48,
"Warning...Warning..."

If Range("U196").Value < 20 Then MsgBox "Salresp is less than 20!!", 48, "Warning...Warning..."

If Range("U197").Value < 10 Then MsgBox "Combivent is less than 10!!", 48, "Warning...Warning..."

If Range("U235").Value < 30 Then MsgBox "Diclofenac tab is less than 30!!", 48, "Warning...Warning..."

If Range("U237").Value < 30 Then MsgBox "dicycloverine tab is less than 30!!", 48,
"Warning...Warning..."

If Range("U242").Value < 10 Then MsgBox "Dilfur tab is less than 10!!", 48, "Warning...Warning..."

If Range("U248").Value < 20 Then MsgBox "Diphenhydramine 50 mg cap is less than 20!!", 48,
"Warning...Warning..."

If Range("U260").Value < 30 Then MsgBox "Domperidone 10 mg is less than 30!!", 48,


"Warning...Warning..."

If Range("U271").Value < 30 Then MsgBox "Ectrin capsule is less than 30!!", 48, "Warning...Warning..."

If Range("U277").Value < 10 Then MsgBox "Eldicet is less than 10!!", 48, "Warning...Warning..."

If Range("U278").Value < 10 Then MsgBox "Enalapril 10 mg is less than 10!!", 48, "Warning...Warning..."

If Range("U293").Value < 10 Then MsgBox "Erythromycin 500 mg is less than 20!!", 48,
"Warning...Warning..."
If Range("U295").Value < 10 Then MsgBox "ESOMEPRAZOLE 20 MG is less than 10!!", 48,
"Warning...Warning..."

If Range("U296").Value < 20 Then MsgBox "ESOMEPRAZOLE 40 MG is less than 10!!", 48,


"Warning...Warning..."

If Range("U297").Value < 10 Then MsgBox "Essentiale forte is less than 10!!", 48, "Warning...Warning..."

If Range("U299").Value < 20 Then MsgBox "Etoricoxib 120 mg is less than 20!!", 48,
"Warning...Warning..."

If Range("U300").Value < 20 Then MsgBox "Etoricoxib 90 mg is less than 20!!", 48,


"Warning...Warning..."

If Range("U301").Value < 30 Then MsgBox "Co-amoxiclav tab is less than 30!!", 48,
"Warning...Warning..."

If Range("U324").Value < 20 Then MsgBox "Ferrous sulfate tab is less than 20!!", 48,
"Warning...Warning..."

If Range("U332").Value < 10 Then MsgBox "Fluimucil 600 mg is less than 10!!", 48,
"Warning...Warning..."

If Range("U332").Value < 10 Then MsgBox "Fluimucil 200 mg is less than 10!!", 48,
"Warning...Warning..."

If Range("U342").Value < 20 Then MsgBox "Furazolidone tab is less than 20!!", 48,
"Warning...Warning..."

If Range("U345").Value < 20 Then MsgBox "Furosemide tab is less than 20!!", 48, "Warning...Warning..."

If Range("U352").Value < 10 Then MsgBox "Glimepiride 2 mg is less than 10!!", 48,


"Warning...Warning..."

If Range("U359").Value < 20 Then MsgBox "Tranexamic acid capsule is less than 20!!", 48,
"Warning...Warning..."

If Range("U364").Value < 20 Then MsgBox "Hivent is less than 20!!", 48, "Warning...Warning..."

If Range("U369").Value < 20 Then MsgBox "Hydrite sachet is less than 20!!", 48, "Warning...Warning..."

If Range("U374").Value < 30 Then MsgBox "Hyoscine tab is less than 30!!", 48, "Warning...Warning..."

If Range("U381").Value < 20 Then MsgBox "Ibuprofen 200 mg is less than 20!!", 48,
"Warning...Warning..."

If Range("U380").Value < 20 Then MsgBox "Ibuprofen 400 mg is less than 20!!", 48,
"Warning...Warning..."
If Range("U384").Value < 10 Then MsgBox "Inoflox 200 mg is less than 10!!", 48, "Warning...Warning..."

If Range("U385").Value < 10 Then MsgBox "Inoflox 400 mg is less than 10!!", 48, "Warning...Warning..."

If Range("U397").Value < 20 Then MsgBox "Isordil 10 mg is less than 20!!", 48, "Warning...Warning..."

If Range("U398").Value < 20 Then MsgBox "Isordil 5 mg is less than 20!!", 48, "Warning...Warning..."

If Range("U399").Value < 20 Then MsgBox "ISMN 30 mg is less than 20!!", 48, "Warning...Warning..."

If Range("U403").Value < 10 Then MsgBox "Iterax 10 mg is less than 10!!", 48, "Warning...Warning..."

If Range("U404").Value < 10 Then MsgBox "Iterax 25 mg is less than 10!!", 48, "Warning...Warning..."

If Range("U408").Value < 20 Then MsgBox "Ketosteril tab is less than 20!!", 48, "Warning...Warning..."

If Range("U409").Value < 30 Then MsgBox "Ketorolac 10 tab is less than 30!!", 48,
"Warning...Warning..."

If Range("U414").Value < 20 Then MsgBox "Kremil-s tab is less than 20!!", 48, "Warning...Warning..."

If Range("U415").Value < 20 Then MsgBox "KY Jelly tab is less than 20!!", 48, "Warning...Warning..."

If Range("U417").Value < 10 Then MsgBox "Lanoxin tab is less than 10!!", 48, "Warning...Warning..."

If Range("U422").Value < 10 Then MsgBox "Levofloxacin 500mg tab is less than 10!!", 48,
"Warning...Warning..."

If Range("U424").Value < 20 Then MsgBox "Levocetirizine tab is less than 20!!", 48,
"Warning...Warning..."

If Range("U427").Value < 30 Then MsgBox "Lexibase 500 mg is less than 30!!", 48,
"Warning...Warning..."

If Range("U433").Value < 20 Then MsgBox "Loratadine 10 mg is less than 20!!", 48,


"Warning...Warning..."

If Range("U434").Value < 30 Then MsgBox "Losartan 50 mg is less than 30!!", 48, "Warning...Warning..."

If Range("U435").Value < 15 Then MsgBox "Combizar tab is less than 15!!", 48, "Warning...Warning..."

If Range("U436").Value < 10 Then MsgBox "Macroset is less than 10!!", 48, "Warning...Warning..."

If Range("U440").Value < 10 Then MsgBox "Medicine cup is less than 10!!", 48, "Warning...Warning..."

If Range("U444").Value < 10 Then MsgBox "Medrol 4mg tab is less than 10!!", 48, "Warning...Warning..."

If Range("U446").Value < 20 Then MsgBox "Mefenamic acid 250 mg is less than 20!!", 48,
"Warning...Warning..."
If Range("U447").Value < 30 Then MsgBox "Mefenamic acid 500 mg is less than 30!!", 48,
"Warning...Warning..."

If Range("U451").Value < 10 Then MsgBox "Meloxicam 7.5 mg is less than 10!!", 48,
"Warning...Warning..."

If Range("U452").Value < 20 Then MsgBox "Meloxicam 15 mg is less than 20!!", 48,


"Warning...Warning..."

If Range("U453").Value < 30 Then MsgBox "Metformin 500 mg is less than 30!!", 48,
"Warning...Warning..."

If Range("U457").Value < 10 Then MsgBox "Methyldopa 125 mg is less than 10!!", 48,
"Warning...Warning..."

If Range("U458").Value < 20 Then MsgBox "Methergin tab is less than 20!!", 48, "Warning...Warning..."

If Range("U462").Value < 30 Then MsgBox "Metoclopramide tab is less than 30!!", 48,
"Warning...Warning..."

If Range("U463").Value < 30 Then MsgBox "Metoprolol 50 mg is less than 30!!", 48,


"Warning...Warning..."

If Range("U465").Value < 30 Then MsgBox "Metronidazole tab is less than 30!!", 48,
"Warning...Warning..."

If Range("U467").Value < 20 Then MsgBox "Micardis 40 mg is less than 20!!", 48, "Warning...Warning..."

If Range("U469").Value < 20 Then MsgBox "Micadis plus is less than 20!!", 48, "Warning...Warning..."

If Range("U470").Value < 10 Then MsgBox "micropore is less than 10!!", 48, "Warning...Warning..."

If Range("U471").Value < 10 Then MsgBox "Microset is less than 10!!", 48, "Warning...Warning..."

If Range("U476").Value < 10 Then MsgBox "Montelukast 4 mg is less than 10!!", 48,


"Warning...Warning..."

If Range("U477").Value < 10 Then MsgBox "Montelukast 5 mg is less than 10!!", 48,


"Warning...Warning..."

If Range("U478").Value < 10 Then MsgBox "Montelukast 10 mg is less than 10!!", 48,


"Warning...Warning..."

If Range("U479").Value < 10 Then MsgBox "Montemax 10 mg is less than 10!!", 48,


"Warning...Warning..."

If Range("U480").Value < 10 Then MsgBox "Montemax 4 mg is less than 10!!", 48,


"Warning...Warning..."
If Range("U481").Value < 10 Then MsgBox "Montemax 5 mg is less than 10!!", 48,
"Warning...Warning..."

If Range("U489").Value < 10 Then MsgBox "Mucosta tab is less than 10!!", 48, "Warning...Warning..."

If Range("U493").Value < 20 Then MsgBox "Myonal tab is less than 20!!", 48, "Warning...Warning..."

If Range("U502").Value < 20 Then MsgBox "Natravox 625 mg tab is less than 20!!", 48,
"Warning...Warning..."

If Range("U515").Value < 30 Then MsgBox "Neurobase tab is less than 30!!", 48, "Warning...Warning..."

If Range("U519").Value < 20 Then MsgBox "Nifedipine tab is less than 20!!", 48, "Warning...Warning..."

If Range("U520").Value < 10 Then MsgBox "Ercefuryl capsule is less than 10!!", 48,
"Warning...Warning..."

If Range("U523").Value < 30 Then MsgBox "Clopidogrel tab is less than 30!!", 48, "Warning...Warning..."

If Range("U539").Value < 30 Then MsgBox "Ofloxacin 200 mg is less than 30!!", 48,
"Warning...Warning..."

If Range("U541").Value < 30 Then MsgBox "Ofloxacin 400 mg is less than 30!!", 48,
"Warning...Warning..."

If Range("U542").Value < 30 Then MsgBox "Omeprazole 40 mg is less than 30!!", 48,


"Warning...Warning..."

If Range("U543").Value < 30 Then MsgBox "Omeprazole 20 mg is less than 30!!", 48,


"Warning...Warning..."

If Range("U550").Value < 20 Then MsgBox "Opigesic 250 mg supp. is less than 20!!", 48,
"Warning...Warning..."

If Range("U554").Value < 10 Then MsgBox "Oxygen Cannula Adult is less than 10!!", 48,
"Warning...Warning..."

If Range("U555").Value < 10 Then MsgBox "Oxygen Cannula Pedia is less than 10!!", 48,
"Warning...Warning..."

If Range("U556").Value < 5 Then MsgBox "Oxygen Cannula Adult + mask is less than 5!!", 48,
"Warning...Warning..."

If Range("U557").Value < 5 Then MsgBox "Oxygen Cannula Pedia + mask is less than 5!!", 48,
"Warning...Warning..."

If Range("U558").Value < 30 Then MsgBox "Oxytocin amp is less than 30!!", 48, "Warning...Warning..."
If Range("U560").Value < 30 Then MsgBox "Paracetamol + Tramadol tab is less than 30!!", 48,
"Warning...Warning..."

If Range("U562").Value < 30 Then MsgBox "Pradonal tab is less than 30!!", 48, "Warning...Warning..."

If Range("U563").Value < 30 Then MsgBox "Paracetamol 500 mg tab is less than 30!!", 48,
"Warning...Warning..."

If Range("U568").Value < 30 Then MsgBox "Paracetamol + Ibuprofen cap is less than 30!!", 48,
"Warning...Warning..."

If Range("U576").Value < 50 Then MsgBox "Phenobarbital 30 mg is less than 50!!", 48,


"Warning...Warning..."

If Range("U577").Value < 50 Then MsgBox "Phenobarbital 60 mg is less than 50!!", 48,


"Warning...Warning..."

If Range("U578").Value < 50 Then MsgBox "Phenobarbital 90 mg is less than 50!!", 48,


"Warning...Warning..."

If Range("U581").Value < 5 Then MsgBox "Feldene Flash tab is less than 5!!", 48, "Warning...Warning..."

If Range("U583").Value < 20 Then MsgBox "Piracetam 400 mg supp. is less than 20!!", 48,
"Warning...Warning..."

If Range("U587").Value < 30 Then MsgBox "Ponser 500 mg tab is less than 30!!", 48,
"Warning...Warning..."

If Range("U590").Value < 30 Then MsgBox "Potassium chloride 600 mg tab is less than 30!!", 48,
"Warning...Warning..."

If Range("U591").Value < 20 Then MsgBox "Potassium citrate tab is less than 20!!", 48,
"Warning...Warning..."

If Range("U592").Value < 10 Then MsgBox "Prednisone 5 mg tab is less than 10!!", 48,
"Warning...Warning..."

If Range("U594").Value < 20 Then MsgBox "Prednisone 20 mg tab is less than 20!!", 48,
"Warning...Warning..."

If Range("U609").Value < 30 Then MsgBox "Propranolol 10mg tab is less than 30!!", 48,
"Warning...Warning..."

If Range("U610").Value < 10 Then MsgBox "Protexin restore tab is less than 10!!", 48,
"Warning...Warning..."
If Range("U611").Value < 20 Then MsgBox "Protexin balance tab is less than 20!!", 48,
"Warning...Warning..."

If Range("U614").Value < 30 Then MsgBox "Provinerve tab is less than 30!!", 48, "Warning...Warning..."

If Range("U617").Value < 30 Then MsgBox "Prozin 500 mg tab is less than 30!!", 48,
"Warning...Warning..."

If Range("U622").Value < 30 Then MsgBox "Ranitidine 150 mg tab is less than 30!!", 48,
"Warning...Warning..."

If Range("U631").Value < 10 Then MsgBox "Risek insta sachet is less than 10!!", 48,
"Warning...Warning..."

If Range("U632").Value < 20 Then MsgBox "Risek 20 mg is less than 20!!", 48, "Warning...Warning..."

If Range("U634").Value < 50 Then MsgBox "Rivotril tab is less than 50!!", 48, "Warning...Warning..."

If Range("U635").Value < 10 Then MsgBox "Rowatinex capsule is less than 10!!", 48,
"Warning...Warning..."

If Range("U636").Value < 10 Then MsgBox "Rosuvastatin 20 mg is less than 10!!", 48,


"Warning...Warning..."

If Range("U637").Value < 10 Then MsgBox "Rosuvastatin 10 mg is less than 10!!", 48,


"Warning...Warning..."

If Range("U641").Value < 30 Then MsgBox "Salbutamol 2 mg is less than 30!!", 48,


"Warning...Warning..."

If Range("U644").Value < 30 Then MsgBox "Salbutamol + Guiafenesin cap is less than 30!!", 48,
"Warning...Warning..."

If Range("U647").Value < 30 Then MsgBox "Sambong forte is less than 30!!", 48, "Warning...Warning..."

If Range("U650").Value < 10 Then MsgBox "Serc 16 mg tab is less than 10!!", 48, "Warning...Warning..."

If Range("U661").Value < 30 Then MsgBox "Simvastatin 10 mg is less than 0!!", 48,


"Warning...Warning..."

If Range("U663").Value < 30 Then MsgBox "Sinecod forte is less than 30!!", 48, "Warning...Warning..."

If Range("U666").Value < 10 Then MsgBox "Sodium bicarbonate 650 mg tab is less than 10!!", 48,
"Warning...Warning..."

If Range("U670").Value < 30 Then MsgBox "Solmux broncho is less than 30!!", 48, "Warning...Warning..."

If Range("U673").Value < 10 Then MsgBox "Soluset is less than 10!!", 48, "Warning...Warning..."
If Range("U685").Value < 10 Then MsgBox "Sterile water is less than 10!!", 48, "Warning...Warning..."

If Range("U704").Value < 30 Then MsgBox "Tetanus toxoid is less than 30!!", 48, "Warning...Warning..."

If Range("U713").Value < 10 Then MsgBox "Tozam tab is less than 10!!", 48, "Warning...Warning..."

If Range("U714").Value < 10 Then MsgBox "Trajenta tab is less than 10!!", 48, "Warning...Warning..."

If Range("U716").Value < 20 Then MsgBox "Tramadol 50 mg caps is less than 20!!", 48,
"Warning...Warning..."

If Range("U719").Value < 10 Then MsgBox "Transderm patch is less than 10!!", 48,
"Warning...Warning..."

If Range("U726").Value < 10 Then MsgBox "Insulin syringe is less than 10!!", 48, "Warning...Warning..."

If Range("U728").Value < 10 Then MsgBox "Twynsta tablet is less than 10!!", 48, "Warning...Warning..."

If Range("U732").Value < 50 Then MsgBox "Valium ampule is less than 50!!", 48, "Warning...Warning..."

If Range("U745").Value < 10 Then MsgBox "Vestar tablet is less than 10!!", 48, "Warning...Warning..."

If Range("U749").Value < 30 Then MsgBox "Vitamin B complex tab is less than 30!!", 48,
"Warning...Warning..."

If Range("U767").Value < 10 Then MsgBox "Zykast tablet is less than 10!!", 48, "Warning...Warning..."

If Range("U11").Value < 1 Then MsgBox "50cc is less than 1!!", 48, "Warning...Warning..."

If Range("U13").Value < 1 Then MsgBox "Abdominal binder is less than 1!!", 48, "Warning...Warning..."

If Range("U19").Value < 2 Then MsgBox "Allopurinol 100 mg is less than 2!!", 48, "Warning...Warning..."

If Range("U20").Value < 10 Then MsgBox "Allopurinol 300 mg is less than 10!!", 48,
"Warning...Warning..."

If Range("U24").Value < 2 Then MsgBox "Ambroxol drops is less than 2!!", 48, "Warning...Warning..."

If Range("U25").Value < 2 Then MsgBox "Ambroxol 15 mg/5ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U26").Value < 2 Then MsgBox "Ambroxol 30 mg/5ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U27").Value < 0 Then MsgBox "Amikacin 100mg/amp is less than 0!!", 48,
"Warning...Warning..."

If Range("U28").Value < 10 Then MsgBox "Amikacin 125mg/amp is less than 10!!", 48,
"Warning...Warning..."
If Range("U29").Value < 10 Then MsgBox "Amikacin 250mg/amp is less than 10!!", 48,
"Warning...Warning..."

If Range("U30").Value < 3 Then MsgBox "Aminogen-S is less than 3!!", 48, "Warning...Warning..."

If Range("U31").Value < 3 Then MsgBox "Aminophylline amp is less than 3!!", 48, "Warning...Warning..."

If Range("U32").Value < 3 Then MsgBox "Amiodarone amp is less than 3!!", 48, "Warning...Warning..."

If Range("U33").Value < 3 Then MsgBox "Cordarone is less than 3!!", 48, "Warning...Warning..."

If Range("U37").Value < 2 Then MsgBox "Amoxicillin drops is less than 2!!", 48, "Warning...Warning..."

If Range("U38").Value < 2 Then MsgBox "Amoxicillin 125mg/5ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U39").Value < 2 Then MsgBox "Amoxicillin 250mg/5ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U40").Value < 10 Then MsgBox "Amoxicillin 250mg caps is less than 10!!", 48,
"Warning...Warning..."

If Range("U42").Value < 10 Then MsgBox "Ampicillin 250mg/vial is less than 10!!", 48,
"Warning...Warning..."

If Range("U44").Value < 10 Then MsgBox "Ampicillin 500mg/vial is less than 10!!", 48,
"Warning...Warning..."

If Range("U45").Value < 5 Then MsgBox "Ampicillin + sulbactam vial is less than 5!!", 48,
"Warning...Warning..."

If Range("U46").Value < 2 Then MsgBox "Anpechlor susp. is less than 2!!", 48, "Warning...Warning..."

If Range("U47").Value < 2 Then MsgBox "Antivenom is less than 2!!", 48, "Warning...Warning..."

If Range("U49").Value < 2 Then MsgBox "Aplosyn otic is less than 2!!", 48, "Warning...Warning..."

If Range("U51").Value < 2 Then MsgBox "Appebon+Iron syrup is less than 2!!", 48,
"Warning...Warning..."

If Range("U53").Value < 2 Then MsgBox "Appetite plus syrup is less than 2!!", 48, "Warning...Warning..."

If Range("U55").Value < 5 Then MsgBox "Arcoxia 120 mg tab is less than 5!!", 48, "Warning...Warning..."

If Range("U56").Value < 5 Then MsgBox "Arcoxia 90 mg tab is less than 5!!", 48, "Warning...Warning..."

If Range("U61").Value < 2 Then MsgBox "Ascorbic acid drops is less than 2!!", 48, "Warning...Warning..."

If Range("U62").Value < 2 Then MsgBox "Ascorbic acid syrup is less than 2!!", 48, "Warning...Warning..."
If Range("U64").Value < 2 Then MsgBox "Ascorbic acid + zinc drops is less than 2!!", 48,
"Warning...Warning..."

If Range("U66").Value < 2 Then MsgBox "Asepto syringe is less than 2!!", 48, "Warning...Warning..."

If Range("U70").Value < 3 Then MsgBox "Atrophine sulfate amp is less than 3!!", 48,
"Warning...Warning..."

If Range("U71").Value < 50 Then MsgBox "ATS 1,500 amp is less than 50!!", 48, "Warning...Warning..."

If Range("U73").Value < 10 Then MsgBox "Atorvastatin 20 mg is less than 10!!", 48,


"Warning...Warning..."

If Range("U74").Value < 10 Then MsgBox "Atorvastatin 40 mg is less than 10!!", 48,


"Warning...Warning..."

If Range("U75").Value < 2 Then MsgBox "Azithromycin 200 mg/5ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U76").Value < 10 Then MsgBox "Azithromycin natrapharm is less than 10!!", 48,
"Warning...Warning..."

If Range("U77").Value < 10 Then MsgBox "Azithromycin tab is less than 10!!", 48, "Warning...Warning..."

If Range("U82").Value < 2 Then MsgBox "Betadine 60 ml is less than 2!!", 48, "Warning...Warning..."

If Range("U83").Value < 2 Then MsgBox "Betadine 7.5 ml is less than 2!!", 48, "Warning...Warning..."

If Range("U85").Value < 20 Then MsgBox "Betahistine 8 mg is less than 20!!", 48, "Warning...Warning..."

If Range("U86").Value < 20 Then MsgBox "Betahistine 16 mg is less than 20!!", 48,


"Warning...Warning..."

If Range("U87").Value < 2 Then MsgBox "Betamethasone cream is less than 2!!", 48,
"Warning...Warning..."

If Range("U90").Value < 30 Then MsgBox "Biogesic 500mg is less than 30!!", 48, "Warning...Warning..."

If Range("U95").Value < 2 Then MsgBox "Bricanyl amp is less than 2!!", 48, "Warning...Warning..."

If Range("U96").Value < 20 Then MsgBox "Budesonide is less than 20!!", 48, "Warning...Warning..."

If Range("U103").Value < 2 Then MsgBox "Calcium gluconate amp is less than 2!!", 48,
"Warning...Warning..."

If Range("U106").Value < 2 Then MsgBox "Carbocisteine drops is less than 2!!", 48,
"Warning...Warning..."
If Range("U108").Value < 2 Then MsgBox "Carbocisteine syrup is less than 2!!", 48,
"Warning...Warning..."

If Range("U111").Value < 10 Then MsgBox "Catapress 75 mg is less than 10!!", 48,


"Warning...Warning..."

If Range("U112").Value < 3 Then MsgBox "Catapress amp is less than 3!!", 48, "Warning...Warning..."

If Range("U114").Value < 10 Then MsgBox "Cecon zinc is less than 10!!", 48, "Warning...Warning..."

If Range("U115").Value < 2 Then MsgBox "Ceelin drops is less than 2!!", 48, "Warning...Warning..."

If Range("U116").Value < 2 Then MsgBox "Ceelin syrup 60 ml is less than 2!!", 48, "Warning...Warning..."

If Range("U117").Value < 0 Then MsgBox "Ceelin syrup 120 ml- no stocks!!", 48, "Warning...Warning..."

If Range("U118").Value < 2 Then MsgBox "Ceelin plus syrup 60 ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U119").Value < 0 Then MsgBox "Ceelin plus syrup 120 ml- no stocks!!", 48,
"Warning...Warning..."

If Range("U120").Value < 20 Then MsgBox "Ceelin plus chewable is less than 20!!", 48,
"Warning...Warning..."

If Range("U123").Value < 2 Then MsgBox "Cefaclor 250 mg/5ml susp. 60 ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U121").Value < 2 Then MsgBox "Cefaclor drops is less than 2!!", 48, "Warning...Warning..."

If Range("U124").Value < 2 Then MsgBox "Cefalexin drops is less than 2!!", 48, "Warning...Warning..."

If Range("U126").Value < 2 Then MsgBox "Cefalexin 250 mg/5ml susp. 60 ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U130").Value < 2 Then MsgBox "Cefixime drops is less than 2!!", 48, "Warning...Warning..."

If Range("U131").Value < 2 Then MsgBox "Cefixime 100mg/5ml susp. 60 ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U132").Value < 10 Then MsgBox "Ceftazedime vial is less than 10!!", 48,
"Warning...Warning..."

If Range("U133").Value < 10 Then MsgBox "Ceftriaxone vial is less than 10!!", 48, "Warning...Warning..."

If Range("U134").Value < 1 Then MsgBox "Rocephine vial is less than 1!!", 48, "Warning...Warning..."
If Range("U137").Value < 2 Then MsgBox "Cefuroxime 125 mg/5ml susp. 60 ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U139").Value < 2 Then MsgBox "Cefuroxime 250 mg/5ml susp. 60 ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U140").Value < 10 Then MsgBox "Cefuroxime 750 mg/vial is less than 10!!", 48,
"Warning...Warning..."

If Range("U141").Value < 1 Then MsgBox "Cefuroxime (Zinacef) 750 mg/vial is less than 1!!", 48,
"Warning...Warning..."

If Range("U142").Value < 10 Then MsgBox "Celcoxx 200 mg is less than 10!!", 48, "Warning...Warning..."

If Range("U143").Value < 20 Then MsgBox "Celecoxib 400 mg is less than 20!!", 48,
"Warning...Warning..."

If Range("U150").Value < 2 Then MsgBox "Cetirizine drops is less than 2!!", 48, "Warning...Warning..."

If Range("U151").Value < 2 Then MsgBox "Cetirizine syrup is less than 2!!", 48, "Warning...Warning..."

If Range("U152").Value < 5 Then MsgBox "Chloramphenicol 1 gm vial is less than 5!!", 48,
"Warning...Warning..."

If Range("U155").Value < 2 Then MsgBox "Chloramphenicol 125mg/5ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U165").Value < 10 Then MsgBox "Cinnarizine 25 mg is less than 10!!", 48,


"Warning...Warning..."

If Range("U166").Value < 5 Then MsgBox "Ciprofloxacin vial is less than 5!!", 48, "Warning...Warning..."

If Range("U168").Value < 1 Then MsgBox "Ciprobay vial is less than 1!!", 48, "Warning...Warning..."

If Range("U169").Value < 10 Then MsgBox "Citicholine 500 mg tab is less than 10!!", 48,
"Warning...Warning..."

If Range("U170").Value < 3 Then MsgBox "Citicholine amp is less than 3!!", 48, "Warning...Warning..."

If Range("U171").Value < 2 Then MsgBox "Clarithromycin 125 mg/5ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U172").Value < 2 Then MsgBox "Clarithromycin 250 mg/5ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U1714").Value < 0 Then MsgBox "Clavicle brace medium (expensive) no stocks!!", 48,
"Warning...Warning..."
If Range("U1714").Value < 0 Then MsgBox "Clavicle brace large (expensive) no stocks!!", 48,
"Warning...Warning..."

If Range("U1714").Value < 0 Then MsgBox "Clavicle brace small(cheapest) no stocks!!", 48,


"Warning...Warning..."

If Range("U1714").Value < 0 Then MsgBox "Clavicle brace medium(cheapest) no stocks!!", 48,


"Warning...Warning..."

If Range("U179").Value < 10 Then MsgBox "Clindamycin 150 mg caps is less than 10!!", 48,
"Warning...Warning..."

If Range("U181").Value < 2 Then MsgBox "Clindamycin amp is less than 2!!", 48, "Warning...Warning..."

If Range("U183").Value < 10 Then MsgBox "Cloxacillin 250 mg caps is less than 10!!", 48,
"Warning...Warning..."

If Range("U185").Value < 2 Then MsgBox "Clobetasol cream is less than 2!!", 48, "Warning...Warning..."

If Range("U187").Value < 2 Then MsgBox "Cloxacillin 250mg/5ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U190").Value < 2 Then MsgBox "Co-amoxiclav 125mg/5ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U191").Value < 2 Then MsgBox "Co-amoxiclav 250mg/5ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U192").Value < 2 Then MsgBox "Co-amoxiclav vial is less than 2!!", 48, "Warning...Warning..."

If Range("U201").Value < 20 Then MsgBox "Conzace capsule is less than 20!!", 48,
"Warning...Warning..."

If Range("U202").Value < 10 Then MsgBox "Cord clamp is less than 10!!", 48, "Warning...Warning..."

If Range("U203").Value < 2 Then MsgBox "Cotrimoxazole 400mg/80mg/5ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U204").Value < 2 Then MsgBox "Cotrimoxazole 200mg/40mg/5ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U205").Value < 20 Then MsgBox "Cotrimoxazole 800mg tab is less than 20!!", 48,
"Warning...Warning..."

If Range("U207").Value < 20 Then MsgBox "Cotrimoxazole 400mg tab is less than 20!!", 48,
"Warning...Warning..."
If Range("U118").Value < 0 Then MsgBox "Clavicle brace large(cheapest) no stocks!!", 48,
"Warning...Warning..."

If Range("U209").Value < 1 Then MsgBox "Cutasept is less than 1!!", 48, "Warning...Warning..."

If Range("U211").Value < 5 Then MsgBox "D5IMB 500cc is less than 5!!", 48, "Warning...Warning..."

If Range("U215").Value < 5 Then MsgBox "D5050 is less than 5!!", 48, "Warning...Warning..."

If Range("U221").Value < 3 Then MsgBox "D5W 250cc is less than 3!!", 48, "Warning...Warning..."

If Range("U222").Value < 5 Then MsgBox "D5W 500cc is less than 5!!", 48, "Warning...Warning..."

If Range("U223").Value < 5 Then MsgBox "D10W 500cc is less than 5!!", 48, "Warning...Warning..."

If Range("U225").Value < 10 Then MsgBox "Daflon tab is less than 10!!", 48, "Warning...Warning..."

If Range("U226").Value < 10 Then MsgBox "Difflam lozenges is less than 10!!", 48,
"Warning...Warning..."

If Range("U229").Value < 1 Then MsgBox "Dental needle is less than 1!!", 48, "Warning...Warning..."

If Range("U230").Value < 2 Then MsgBox "Dexamethasone capsule is less than 2!!", 48,
"Warning...Warning..."

If Range("U231").Value < 8 Then MsgBox "Dexamethasone amp is less than 8!!", 48,
"Warning...Warning..."

If Range("U215").Value < 10 Then MsgBox "Diamicron 60mg is less than 10!!", 48,
"Warning...Warning..."

If Range("U236").Value < 1 Then MsgBox "Voltaren gel is less than 1!!", 48, "Warning...Warning..."

If Range("U238").Value < 2 Then MsgBox "Dicycloverine syrup is less than 2!!", 48,
"Warning...Warning..."

If Range("U243").Value < 2 Then MsgBox "Dilfur susp. is less than 2!!", 48, "Warning...Warning..."

If Range("U244").Value < 10 Then MsgBox "Dimezine tab is less than 10!!", 48, "Warning...Warning..."

If Range("U246").Value < 2 Then MsgBox "Diphenhydramine syrup is less than 2!!", 48,
"Warning...Warning..."

If Range("U249").Value < 10 Then MsgBox "Diphenhydramine amp is less than 10!!", 48,
"Warning...Warning..."

If Range("U251").Value < 2 Then MsgBox "Disudrin drops is less than 2!!", 48, "Warning...Warning..."

If Range("U252").Value < 2 Then MsgBox "Disudrin syrup is less than 2!!", 48, "Warning...Warning..."
If Range("U254").Value < 3 Then MsgBox "Dobutamine vial is less than 3!!", 48, "Warning...Warning..."

If Range("U256").Value < 2 Then MsgBox "Dolan 100mg/5ml syrup is less than 2!!", 48,
"Warning...Warning..."

If Range("U257").Value < 2 Then MsgBox "Dolan forte 200mg/5ml syrup is less than 2!!", 48,
"Warning...Warning..."

If Range("U261").Value < 5 Then MsgBox "Dopamine amp is less than 5!!", 48, "Warning...Warning..."

If Range("U262").Value < 50 Then MsgBox "Dormicum amp is less than 50!!", 48, "Warning...Warning..."

If Range("U263").Value < 30 Then MsgBox "Doxycycline capsule is less than 30!!", 48,
"Warning...Warning..."

If Range("U266").Value < 20 Then MsgBox "Dulcolax 10 mg supp is less than 20!!", 48,
"Warning...Warning..."

If Range("U268").Value < 20 Then MsgBox "Dulcolax 5 mg supp is less than 20!!", 48,
"Warning...Warning..."

If Range("U267").Value < 10 Then MsgBox "Dulcolax 5 mg tab is less than 10!!", 48,
"Warning...Warning..."

If Range("U269").Value < 10 Then MsgBox "Duphaston tab is less than 10!!", 48, "Warning...Warning..."

If Range("U270").Value < 10 Then MsgBox "Duvadilan tab is less than 10!!", 48, "Warning...Warning..."

If Range("U272").Value < 2 Then MsgBox "Efamed syrup is less than 2!!", 48, "Warning...Warning..."

If Range("U273").Value < 2 Then MsgBox "Efamed plus syrup is less than 2!!", 48, "Warning...Warning..."

If Range("U283").Value < 1 Then MsgBox "Ephedrine amp is less than 1!!", 48, "Warning...Warning..."

If Range("U284").Value < 10 Then MsgBox "Epinephrine amp is less than 10!!", 48,
"Warning...Warning..."

If Range("U290").Value < 2 Then MsgBox "Equirab is less than 2!!", 48, "Warning...Warning..."

If Range("U291").Value < 10 Then MsgBox "Erceflora is less than 10!!", 48, "Warning...Warning..."

If Range("U292").Value < 2 Then MsgBox "Erythromycin ointment is less than 2!!", 48,
"Warning...Warning..."

If Range("U294").Value < 2 Then MsgBox "Erythromycin susp. is less than 2!!", 48,
"Warning...Warning..."

If Range("U303").Value < 2 Then MsgBox "Expel syrup is less than 2!!", 48, "Warning...Warning..."
If Range("U304").Value < 2 Then MsgBox "Expel drops is less than 2!!", 48, "Warning...Warning..."

If Range("U306").Value < 6 Then MsgBox "Eye patch is less than 6!!", 48, "Warning...Warning..."

If Range("U307").Value < 2 Then MsgBox "E-zinc syrup is less than 2!!", 48, "Warning...Warning..."

If Range("U308").Value < 2 Then MsgBox "E-zinc drops is less than 2!!", 48, "Warning...Warning..."

If Range("U309").Value < 60 Then MsgBox "Facemask is less than 60!!", 48, "Warning...Warning..."

If Range("U310").Value < 2 Then MsgBox "Fastum gel is less than 2!!", 48, "Warning...Warning..."

If Range("U322").Value < 2 Then MsgBox "Ferlin syrup is less than 2!!", 48, "Warning...Warning..."

If Range("U323").Value < 2 Then MsgBox "Ferlin drops is less than 2!!", 48, "Warning...Warning..."

If Range("U326").Value < 10 Then MsgBox "Fixcom 4 is less than 10!!", 48, "Warning...Warning..."

If Range("U327").Value < 2 Then MsgBox "Flagyl susp. is less than 2!!", 48, "Warning...Warning..."

If Range("U331").Value < 5 Then MsgBox "Fluimucil 100 mg is less than 5!!", 48, "Warning...Warning..."

If Range("U334").Value < 5 Then MsgBox "Foley cath fr.18 is less than 5!!", 48, "Warning...Warning..."

If Range("U335").Value < 5 Then MsgBox "Foley cath fr.16 is less than 5!!", 48, "Warning...Warning..."

If Range("U336").Value < 5 Then MsgBox "Foley cath fr.14 is less than 5!!", 48, "Warning...Warning..."

If Range("U341").Value < 2 Then MsgBox "Fucithalmic ointment is less than 2!!", 48,
"Warning...Warning..."

If Range("U343").Value < 2 Then MsgBox "Furazolidone susp. is less than 2!!", 48, "Warning...Warning..."

If Range("U344").Value < 10 Then MsgBox "Furosemide amp is less than 10!!", 48,
"Warning...Warning..."

If Range("U346").Value < 5 Then MsgBox "Gabix 100 mg is less than 5!!", 48, "Warning...Warning..."

If Range("U347").Value < 5 Then MsgBox "Gabix 300 mg is less than 5!!", 48, "Warning...Warning..."

If Range("U348").Value < 5 Then MsgBox "Gaviscon sachet is less than 5!!", 48, "Warning...Warning..."

If Range("U350").Value < 5 Then MsgBox "Gentamicin amp is less than 5!!", 48, "Warning...Warning..."

If Range("U351").Value < 2 Then MsgBox "Gentamicin otic sol'n is less than 2!!", 48,
"Warning...Warning..."

If Range("U355").Value < 5 Then MsgBox "Godex capsule is less than 5!!", 48, "Warning...Warning..."

If Range("U356").Value < 5 Then MsgBox "Godex DS capsule is less than 5!!", 48, "Warning...Warning..."
If Range("U357").Value < 30 Then MsgBox "Haircap is less than 30!!", 48, "Warning...Warning..."

If Range("U358").Value < 2 Then MsgBox "Haloperidol amp is less than 2!!", 48, "Warning...Warning..."

If Range("U360").Value < 10 Then MsgBox "Heplock is less than 10!!", 48, "Warning...Warning..."

If Range("U361").Value < 10 Then MsgBox "Heraclene 1 mg supp is less than 10!!", 48,
"Warning...Warning..."

If Range("U362").Value < 10 Then MsgBox "Heraclene 3 mg supp is less than 10!!", 48,
"Warning...Warning..."

If Range("U365").Value < 100 Then MsgBox "Humulin-R is less than 100!!", 48, "Warning...Warning..."

If Range("U366").Value < 2 Then MsgBox "Hyclens OB wash is less than 2!!", 48, "Warning...Warning..."

If Range("U367").Value < 2 Then MsgBox "Hyclens wound spray is less than 2!!", 48,
"Warning...Warning..."

If Range("U368").Value < 5 Then MsgBox "Hydralazine amp is less than 5!!", 48, "Warning...Warning..."

If Range("U340").Value < 1 Then MsgBox "Foskina-B ointment no stocks!!", 48, "Warning...Warning..."

If Range("U370").Value < 10 Then MsgBox "Hydrocortisone 100 mg vial is less than 10!!", 48,
"Warning...Warning..."

If Range("U371").Value < 10 Then MsgBox "Hydrocortisone 250 mg vial is less than 10!!", 48,
"Warning...Warning..."

If Range("U372").Value < 2 Then MsgBox "Hydrocortisone cream is less than 2!!", 48,
"Warning...Warning..."

If Range("U375").Value < 2 Then MsgBox "Hyoscine suspension is less than 2!!", 48,
"Warning...Warning..."

If Range("U376").Value < 15 Then MsgBox "Hyoscine amp is less than 15!!", 48, "Warning...Warning..."

If Range("U377").Value < 30 Then MsgBox "Iberet + folic capsule is less than 30!!", 48,
"Warning...Warning..."

If Range("U378").Value < 2 Then MsgBox "Ibuprofen 100 mg/5ml syrup is less than 2!!", 48,
"Warning...Warning..."

If Range("U379").Value < 2 Then MsgBox "Ibuprofen 200 mg/5ml syrup is less than 2!!", 48,
"Warning...Warning..."

If Range("U382").Value < 2 Then MsgBox "Ilosone drops is less than 2!!", 48, "Warning...Warning..."
If Range("U393").Value < 5 Then MsgBox "Intertulle is less than 5!!", 48, "Warning...Warning..."

If Range("U396").Value < 3 Then MsgBox "Isoket amp is less than 3!!", 48, "Warning...Warning..."

If Range("U402").Value < 4 Then MsgBox "Isoxilan amp is less than 4!!", 48, "Warning...Warning..."

If Range("U410").Value < 10 Then MsgBox "Ketorolac amp is less than 10!!", 48, "Warning...Warning..."

If Range("U412").Value < 0 Then MsgBox "Kidz Kit 3- no stock!!", 48, "Warning...Warning..."

If Range("U416").Value < 3 Then MsgBox "Lanoxin amp is less than 3!!", 48, "Warning...Warning..."

If Range("U420").Value < 50 Then MsgBox "Latex is less than 50!!", 48, "Warning...Warning..."

If Range("U421").Value < 15 Then MsgBox "Synactiv tab is less than 15!!", 48, "Warning...Warning..."

If Range("U426").Value < 2 Then MsgBox "Lexibase suspension is less than 2!!", 48,
"Warning...Warning..."

If Range("U428").Value < 3 Then MsgBox "Lidocaine + Epinephrine amp is less than 3!!", 48,
"Warning...Warning..."

If Range("U429").Value < 3 Then MsgBox "Lidocaine 50 ml is less than 3!!", 48, "Warning...Warning..."

If Range("U430").Value < 2 Then MsgBox "Lilac syrup is less than 2!!", 48, "Warning...Warning..."

If Range("U437").Value < 3 Then MsgBox "Magnesium sulfate vial is less than 3!!", 48,
"Warning...Warning..."

If Range("U438").Value < 10 Then MsgBox "Maheseco kit is less than 10!!", 48, "Warning...Warning..."

If Range("U439").Value < 5 Then MsgBox "Mannitol is less than 5!!", 48, "Warning...Warning..."

If Range("U441").Value < 3 Then MsgBox "Medicine glass is less than 3!!", 48, "Warning...Warning..."

If Range("U450").Value < 2 Then MsgBox "Melmag syrup is less than 2!!", 48, "Warning...Warning..."

If Range("U455").Value < 15 Then MsgBox "Methergin amp is less than 15!!", 48, "Warning...Warning..."

If Range("U460").Value < 2 Then MsgBox "Metoclopramide syrup is less than 2!!", 48,
"Warning...Warning..."

If Range("U461").Value < 10 Then MsgBox "Metoclopramide amp is less than 10!!", 48,
"Warning...Warning..."

If Range("U464").Value < 2 Then MsgBox "Metronidazole suspension is less than 2!!", 48,
"Warning...Warning..."

If Range("U466").Value < 3 Then MsgBox "Metronidazole vial is less than 3!!", 48, "Warning...Warning..."
If Range("U482").Value < 3 Then MsgBox "Moriamin forte is less than 3!!", 48, "Warning...Warning..."

If Range("U483").Value < 5 Then MsgBox "Morphine sulfate amp is less than 5!!", 48,
"Warning...Warning..."

If Range("U484").Value < 5 Then MsgBox "Mosegor vita capsule is less than 5!!", 48,
"Warning...Warning..."

If Range("U491").Value < 2 Then MsgBox "Multigen drops is less than 2!!", 48, "Warning...Warning..."

If Range("U492").Value < 2 Then MsgBox "Mupirocin ointment is less than 2!!", 48,
"Warning...Warning..."

If Range("U493").Value < 20 Then MsgBox "Myonal 50 mg tab is less than 20!!", 48,
"Warning...Warning..."

If Range("U494").Value < 30 Then MsgBox "Nafarin-A tab is less than 30!!", 48, "Warning...Warning..."

If Range("U495").Value < 0 Then MsgBox "N95 MASK- NO STOCK!!", 48, "Warning...Warning..."

If Range("U497").Value < 2 Then MsgBox "Nasatapp drops is less than 2!!", 48, "Warning...Warning..."

If Range("U498").Value < 2 Then MsgBox "Nasatapp syrup is less than 2!!", 48, "Warning...Warning..."

If Range("U503").Value < 2 Then MsgBox "Natravox 250mg/5ml suspension is less than 2!!", 48,
"Warning...Warning..."

If Range("U504").Value < 2 Then MsgBox "Natravox 457mg/5ml suspension is less than 2!!", 48,
"Warning...Warning..."

If Range("U505").Value < 10 Then MsgBox "Neb kit is less than 10!!", 48, "Warning...Warning..."

If Range("U511").Value < 20 Then MsgBox "Neoform 500 mg tab is less than 20!!", 48,
"Warning...Warning..."

If Range("U514").Value < 20 Then MsgBox "Neuro-Bs is less than 20!!", 48, "Warning...Warning..."

If Range("U517").Value < 4 Then MsgBox "Nicardipine amp is less than 4!!", 48, "Warning...Warning..."

If Range("U522").Value < 0 Then MsgBox "Norepinephrine amp - No stocks!!", 48,


"Warning...Warning..."

If Range("U526").Value < 30 Then MsgBox "Nubain amp is less than 30!!", 48, "Warning...Warning..."

If Range("U527").Value < 2 Then MsgBox "Nutrilin drops is less than 2!!", 48, "Warning...Warning..."

If Range("U528").Value < 2 Then MsgBox "Nutrilin syrup is less than 2!!", 48, "Warning...Warning..."

If Range("U536").Value < 2 Then MsgBox "Nystatin drops is less than 2!!", 48, "Warning...Warning..."
If Range("U544").Value < 10 Then MsgBox "Omeprazole IV is less than 10!!", 48, "Warning...Warning..."

If Range("U564").Value < 2 Then MsgBox "Paracetamol drops is less than 2!!", 48, "Warning...Warning..."

If Range("U565").Value < 2 Then MsgBox "Paracetamol 125mg/5ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U566").Value < 2 Then MsgBox "Paracetamol 250mg/5ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U567").Value < 10 Then MsgBox "Paracetamol amp is less than 10!!", 48,
"Warning...Warning..."

If Range("U573").Value < 2 Then MsgBox "Penicillin G IV is less than 2!!", 48, "Warning...Warning..."

If Range("U574").Value < 2 Then MsgBox "Penrose drainage is less than 2!!", 48, "Warning...Warning..."

If Range("U575").Value < 2 Then MsgBox "Phytomenadione amp is less than 10!!", 48,
"Warning...Warning..."

If Range("U582").Value < 5 Then MsgBox "Piracetam amp is less than 5!!", 48, "Warning...Warning..."

If Range("U588").Value < 2 Then MsgBox "Ponser syrup is less than 2!!", 48, "Warning...Warning..."

If Range("U589").Value < 5 Then MsgBox "Potassium chloride vial is less than 5!!", 48,
"Warning...Warning..."

If Range("U595").Value < 2 Then MsgBox "Pred 20 syrup is less than 2!!", 48, "Warning...Warning..."

If Range("U596").Value < 2 Then MsgBox "Pred 10 syrup is less than 2!!", 48, "Warning...Warning..."

If Range("U598").Value < 10 Then MsgBox "Pregnancy test pack is less than 10!!", 48,
"Warning...Warning..."

If Range("U600").Value < 2 Then MsgBox "Prime cast 5 inches is less than 2!!", 48,
"Warning...Warning..."

If Range("U601").Value < 2 Then MsgBox "Plaster of Paris 4 inches is less than 2!!", 48,
"Warning...Warning..."

If Range("U602").Value < 2 Then MsgBox "Plaster of Paris 6 inches is less than 2!!", 48,
"Warning...Warning..."

If Range("U603").Value < 2 Then MsgBox "Wadding sheet 4 inches is less than 2!!", 48,
"Warning...Warning..."

If Range("U604").Value < 2 Then MsgBox "Wadding sheet 6 inches is less than 2!!", 48,
"Warning...Warning..."
If Range("U605").Value < 2 Then MsgBox "PRO-IG sachet is less than 2!!", 48, "Warning...Warning..."

If Range("U608").Value < 10 Then MsgBox "Promethazine amp is less than 10!!", 48,
"Warning...Warning..."

If Range("U615").Value < 5 Then MsgBox "Provexime vial is less than 5!!", 48, "Warning...Warning..."

If Range("U618").Value < 2 Then MsgBox "Pulmoxcel bottle is less than 2!!", 48, "Warning...Warning..."

If Range("U623").Value < 10 Then MsgBox "Ranitidine amp is less than 10!!", 48, "Warning...Warning..."

If Range("U624").Value < 10 Then MsgBox "Razor blade is less than 10!!", 48, "Warning...Warning..."

If Range("U625").Value < 2 Then MsgBox "Relestal drops is less than 2!!", 48, "Warning...Warning..."

If Range("U626").Value < 2 Then MsgBox "Relestal syrup is less than 2!!", 48, "Warning...Warning..."

If Range("U628").Value < 2 Then MsgBox "Restime drops is less than 2!!", 48, "Warning...Warning..."

If Range("U630").Value < 2 Then MsgBox "Risek vial is less than 2!!", 48, "Warning...Warning..."

If Range("U639").Value < 1 Then MsgBox "Salinase drops is less than 1!!", 48, "Warning...Warning..."

If Range("U643").Value < 2 Then MsgBox "Salbutamol syrup is less than 2!!", 48, "Warning...Warning..."

If Range("U648").Value < 3 Then MsgBox "SANITEX is less than 3!!", 48, "Warning...Warning..."

If Range("U660").Value < 2 Then MsgBox "Silver sulfadiazine cream is less than 2!!", 48,
"Warning...Warning..."

If Range("U665").Value < 5 Then MsgBox "Sinupret tab is less than 5!!", 48, "Warning...Warning..."

If Range("U667").Value < 2 Then MsgBox "Sodium bicarbonate amp is less than 2!!", 48,
"Warning...Warning..."

If Range("U670").Value < 20 Then MsgBox "Solmux broncho capsule is less than 20!!", 48,
"Warning...Warning..."

If Range("U672").Value < 2 Then MsgBox "Solmux broncho syrup is less than 2!!", 48,
"Warning...Warning..."

If Range("U673").Value < 7 Then MsgBox "Soluset is less than 7!!", 48, "Warning...Warning..."

If Range("U674").Value < 5 Then MsgBox "Splint A/L is less than 5!!", 48, "Warning...Warning..."

If Range("U675").Value < 5 Then MsgBox "Splint A/M is less than 5!!", 48, "Warning...Warning..."

If Range("U676").Value < 5 Then MsgBox "Splint A/S is less than 5!!", 48, "Warning...Warning..."
If Range("U677").Value < 5 Then MsgBox "Splint P/L is less than 5!!", 48, "Warning...Warning..."

If Range("U678").Value < 5 Then MsgBox "Splint P/M is less than 5!!", 48, "Warning...Warning..."

If Range("U679").Value < 5 Then MsgBox "Splint P/S is less than 5!!", 48, "Warning...Warning..."

If Range("U680").Value < 20 Then MsgBox "Sterile gauze 4x4 is less than 20!!", 48,
"Warning...Warning..."

If Range("U681").Value < 10 Then MsgBox "Sterile gloves 6.0 is less than 10!!", 48,
"Warning...Warning..."

If Range("U682").Value < 10 Then MsgBox "Sterile gloves 6.5 is less than 10!!", 48,
"Warning...Warning..."

If Range("U683").Value < 10 Then MsgBox "Sterile gloves 7.0 is less than 10!!", 48,
"Warning...Warning..."

If Range("U684").Value < 10 Then MsgBox "Sterile gloves 7.5 is less than 10!!", 48,
"Warning...Warning..."

If Range("U686").Value < 0 Then MsgBox "Stockinette- no stock!!", 48, "Warning...Warning..."

If Range("U688").Value < 4 Then MsgBox "Suction cath fr.8 is less than 4!!", 48, "Warning...Warning..."

If Range("U689").Value < 4 Then MsgBox "Suction cath fr.14 is less than 4!!", 48, "Warning...Warning..."

If Range("U691").Value < 4 Then MsgBox "Suction cath fr.16 is less than 4!!", 48, "Warning...Warning..."

If Range("U690").Value < 1 Then MsgBox "Succinylcholine amp is less than 1!!", 48,
"Warning...Warning..."

If Range("U692").Value < 1 Then MsgBox "Suremine amp is less than 1!!", 48, "Warning...Warning..."

If Range("U695").Value < 0 Then MsgBox "Tegaderm pedia -no stock!!", 48, "Warning...Warning..."

If Range("U696").Value < 3 Then MsgBox "Tegaderm adult is less than 3!!", 48, "Warning...Warning..."

If Range("U697").Value < 2 Then MsgBox "Tempra 120 mg/5ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U698").Value < 2 Then MsgBox "Tempra drops is less than 2!!", 48, "Warning...Warning..."

If Range("U699").Value < 2 Then MsgBox "Tempra 250mg/5ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U707").Value < 1 Then MsgBox "Tobradex eye ointment is less than 1!!", 48,
"Warning...Warning..."
If Range("U709").Value < 2 Then MsgBox "Tobramycin + Dexamethasone eye ointment is less than 2!!",
48, "Warning...Warning..."

If Range("U710").Value < 2 Then MsgBox "Tobramycin eye drops is less than 2!!", 48,
"Warning...Warning..."

If Range("U711").Value < 30 Then MsgBox "Tongue dep is less than 30!!", 48, "Warning...Warning..."

If Range("U717").Value < 10 Then MsgBox "Tramadol amp is less than 10!!", 48, "Warning...Warning..."

If Range("U718").Value < 10 Then MsgBox "Tranexamic amp is less than 10!!", 48,
"Warning...Warning..."

If Range("U720").Value < 2 Then MsgBox "Trim-S 200mg/5ml is less than 2!!", 48, "Warning...Warning..."

If Range("U721").Value < 2 Then MsgBox "Trim-S forte 400mg/5ml is less than 2!!", 48,
"Warning...Warning..."

If Range("U722").Value < 30 Then MsgBox "Triplec capsule is less than 30!!", 48, "Warning...Warning..."

If Range("U723").Value < 2 Then MsgBox "Triplec syrup is less than 2!!", 48, "Warning...Warning..."

If Range("U729").Value < 5 Then MsgBox "Urine bag is less than 5!!", 48, "Warning...Warning..."

If Range("U736").Value < 10 Then MsgBox "Ventolin nebule is less than 10!!", 48, "Warning...Warning..."

If Range("U737").Value < 2 Then MsgBox "Ventar 30 ml bottle is less than 2!!", 48,
"Warning...Warning..."

If Range("U741").Value < 2 Then MsgBox "Ventolin expectorant syrup is less than 2!!", 48,
"Warning...Warning..."

If Range("U742").Value < 1 Then MsgBox "Verapamil amp is less than 1!!", 48, "Warning...Warning..."

If Range("U743").Value < 5 Then MsgBox "Verorab is less than 5!!", 48, "Warning...Warning..."

If Range("U750").Value < 5 Then MsgBox "Vitamin B ampule is less than 5!!", 48, "Warning...Warning..."

If Range("U751").Value < 20 Then MsgBox "Wooden cotton applicator is less than 20!!", 48,
"Warning...Warning..."

If Range("U754").Value < 2 Then MsgBox "Zeditapp drops is less than 2!!", 48, "Warning...Warning..."

If Range("U759").Value < 2 Then MsgBox "Zinc vita drops is less than 2!!", 48, "Warning...Warning..."

If Range("U761").Value < 2 Then MsgBox "Zinc vita syrup is less than 2!!", 48, "Warning...Warning..."

If Range("U764").Value < 5 Then MsgBox "Zoltax 500mg is less than 5!!", 48, "Warning...Warning..."
If Range("U765").Value < 5 Then MsgBox "Zoltax vial is less than 5!!", 48, "Warning...Warning..."

If Range("U766").Value < 5 Then MsgBox "Zylohist tab is less than 5!!", 48, "Warning...Warning..."

If Range("U768").Value < 5 Then MsgBox "Zynapse 500 mg tab is less than 5!!", 48,
"Warning...Warning..."

If Range("U449").Value < 2 Then MsgBox "Melmag 60 ml is less than 2!!", 48, "Warning...Warning..."

End Sub

You might also like