Greater Than and Less Than Logic

[Partjob]

Hi
I am trying to restrict where a row can be inserted on a sheet and I have this working as follows
The user must pick a row between the Low and High row variable or it will loop through and they have to try again

Do
    MyRow = Application.InputBox("Enter Row Number for Insertion", "WHERE TO INSERT", Default:=69, Type:=1)
    If MyRow = 0 Then Exit Sub: Rem cancel pressed
    MyRow = Int(MyRow)
    Loop Until (LowRow < MyRow And MyRow < HighRow)

I want to put a little message just before the Loop until line as follows, just to explain that they have made an error and what they need to do

        If Not LowRow < MyRow And MyRow < HighRow Then
        MsgBox "That is not allowed", vbOKOnly, "INCORRECT ROW SELECTION"
        End If

I can not get the logic correct though, I have tried various permutations of this with no success.
I have put the one that I believe should work but doesn't.
All I have really done is used "Not" on the If to reverse the logic but it fails.

Thanks in advance

David (Partjob)

 

[RCBricker]

Hi
I am trying to restrict where a row can be inserted on a sheet and I have this working as follows
The user must pick a row between the Low and High row variable or it will loop through and they have to try again

Do
    MyRow = Application.InputBox("Enter Row Number for Insertion", "WHERE TO INSERT", Default:=69, Type:=1)
    If MyRow = 0 Then Exit Sub: Rem cancel pressed
    MyRow = Int(MyRow)
    Loop Until (LowRow < MyRow And MyRow < HighRow)

I want to put a little message just before the Loop until line as follows, just to explain that they have made an error and what they need to do

        If Not LowRow < MyRow And MyRow < HighRow Then
        MsgBox "That is not allowed", vbOKOnly, "INCORRECT ROW SELECTION"
        End If

I can not get the logic correct though, I have tried various permutations of this with no success.
I have put the one that I believe should work but doesn't.
All I have really done is used "Not" on the If to reverse the logic but it fails.

Thanks in advance

David (Partjob)

I think the problem here is that you are using AND instead of OR.

The value entered cannot be both greater than highrow and less than lowrow

Sub pick_row()
Dim lowROW As Long, highROW As Long, myROW As Long
Dim rng As Range
Dim ws As Worksheet
Dim varI As Variant

Set ws = ActiveSheet
lowROW = 75
highROW = 125
varI = False
Do Until varI = True
    myROW = Application.InputBox("Enter Row Number for Insertion", "WHERE TO INSERT", Default:=69, Type:=1)
    If myROW = 0 Then
        Exit Sub: Rem cancel pressed
    End If
    myROW = Int(myROW)
    If myROW < lowROW Or myROW > highROW Then
        MsgBox "That is not allowed", vbOKOnly, "INCORRECT ROW SELECTION"
    Else
        MsgBox "Good selection"
        varI = True
    End If
Loop
End Sub

 

[Partjob]

Thank you, as this is work it will be tested tomorrow, I can't see why this won't work it looks right to me.
Seems quite simple when you see it correct.
Thanks again