How to reference a cell into a Dialog Box ?
 

Hi,
In the code below I have included a Dialog Box named CriteriaReached to show
if cell g6 < h6 < k6.

My question being. Is it possible to reference a cell with text in it into
the Box?

Sub CheckVolumeRise1()
If Range("g6") < Range("h6") < Range("k6") Then
CriteriaReached.Show
End If
End Sub

Thank you.

How to reference a cell into a Dialog Box ?
 

Try

Dim varRange As Variant
varRange = Application.InputBox("Select cell", Type:=8)

-----------------
The code should be
If Range("g6") < Range("h6") And Range("h6") < Range("k6") Then

End If

--
Jacob


"Rob" wrote:

Hi,
In the code below I have included a Dialog Box named CriteriaReached to show
if cell g6 < h6 < k6.

My question being. Is it possible to reference a cell with text in it into
the Box?

Sub CheckVolumeRise1()
If Range("g6") < Range("h6") < Range("k6") Then
CriteriaReached.Show
End If
End Sub

Thank you.

How to reference a cell into a Dialog Box ?
 

Thanks Jacob.

"Jacob Skaria" wrote:

Try

Dim varRange As Variant
varRange = Application.InputBox("Select cell", Type:=8)

-----------------
The code should be
If Range("g6") < Range("h6") And Range("h6") < Range("k6") Then

End If

--
Jacob


"Rob" wrote:

Hi,
In the code below I have included a Dialog Box named CriteriaReached to show
if cell g6 < h6 < k6.

My question being. Is it possible to reference a cell with text in it into
the Box?

Sub CheckVolumeRise1()
If Range("g6") < Range("h6") < Range("k6") Then
CriteriaReached.Show
End If
End Sub

Thank you.