find number<> and insert "Y"

[markdoughty]

Im trying to get the code below to select a sheet, find a value <> to the value of a combobox (cbosalesordernumber1), offsett by 7 and insert a "Y".

I had this working at one point but it has now stopped inserting the "Y"

Any help appreciated.

Private Sub closeorder_Click()
If MsgBox("Closing This Order Will Mean No Further Additions / Alerations Will Be Able.", vbOKCancel, _"Close Order") = vbCancel ThenCall UserForm_Initialize
Else: GoTo closeorder:
closeorder:ActiveWorkbook.Sheets("Sales Entry").Activate    
Range("a1").Select        
Do        If ActiveCell.Value < cbosalesordernumber1 = False Then        
ActiveCell.Offset(1, 0).Select 
End If    
Loop Until (ActiveCell) <> cbosalesordernumber = True        
With ActiveCell.Select    
ActiveCell.Offset(0, 7) = "Y"    

If MsgBox("Returning To Sales Counter Menu", vbOKOnly, "Return To Sales Counter Menu") = vbOK Then
Unload Me
SimpleSheet.salescountermenu.Show


End If
End With
End If
End Sub

 

[bensonsearch]

Hi, maybe after the range("a1").select also put a .activate
ie:

closeorder:ActiveWorkbook.Sheets("Sales Entry").Activate    
Range("a1").Select 
Range("a1").activate       
Do        If ActiveCell.Value < cbosalesordernumber1 = False Then        
ActiveCell.Offset(1, 0).Select 

 

[markdoughty]

No this does`nt help im afraid.

However, i have now found that my original code is working to a point.

The code activates the sheet, selects the range as required, but then fails to loop to find a matching value, it put the value in the right cell, but in the first row checked?

Does this mean my"<" and "<>" are all incorrect?

Mark

 

[markdoughty]

I have now got my code as below. All appears to work, no errors notified, only the code is not looping to find the code that is "<>" ( Im working on the basis this means "the same as / equal too").


Instead it selects A1 and drops the "Y" into cell offsett 7 of Row A.

Private Sub closeorder_Click()
If MsgBox("Closing This Order Will Mean No Further Additions / Alerations Will Be Able.", vbOKCancel, _"Close Order") = vbCancel ThenCall UserForm_Initialize
Else: GoTo closeorder:
closeorder:ActiveWorkbook.Sheets("Sales Entry").Activate    Range("a1").Select        Do        If ActiveCell.Value <> cbosalesordernumber.Value = False Then        ActiveCell.Offset(1, 0).Select    End If    Loop Until ActiveCell.Value <> cbosalesordernumber.Value = True        With ActiveCell.Select    ActiveCell.Offset(0, 7) = "Y"    If MsgBox("Returning To Sales Counter Menu", vbOKOnly, "Return To Sales Counter Menu") = vbOK ThenUnload MeSimpleSheet.salescountermenu.Show


End IfEnd WithEnd If
End Sub