Code:
For Each cell In Ash.Columns("b").Cells.SpecialCells(xlCellTypeConstants)
For Each cell In Ash.Columns("b").Cells.SpecialCells(xlCellTypeConstants)
Sub box()
If ActiveSheet.Range("f1:f1000").Select > ActiveSheet.Range("g1:g1000").Select Then
msgbox ("Min quantity not met")
Else
End If
Exit Sub
End Sub
Sub msgbox()
Dim Source As Range
If ActiveSheet.Range("f1:f1000").Select > ActiveSheet.Range("g1:g1000").Select Then
msgbox ("Min Quantity order not met, Please Check")
End If
Exit Sub
End S
Option Explicit
Sub example()
Dim cell As Range
Dim rng As Range
Dim Ash As Worksheet
Set Ash = ActiveSheet
Dim x As Integer
If Ash.Columns("g").cell.Value >= Ash.Columns("f").cell.Value
Option Explicit
'Needs Module 2 to set definitions for RAngeHTM so, both moduels needed
Sub Send_Row()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim rng As Range
Dim Ash As Worksheet
Leave a comment: