Close Excel IF two cells aren't equal

[Jona2491]

Hello,

Could anyone help me with a code that would check whether two values (Cell A1, and B1 for example) are the same, and if they aren't then make the vba close excel?

I can do the if a not equal b then close part, but I can't figure out how to give the user a chance to input some data that would make A1 and B1 equal..

any ideas?

Thanks

[haripopuri]

Ok, can I assume that data is already present in A1 and user would be entering data in B1..?

[Jona2491]

Haripopuri - yes, there is data in A1, and the data inputted by the user would be in B1.

Thanks

[JOHN H. DAVIS]

Maybe:

Sub Jona2491()
Dim x As String
Dim y As String

x = InputBox("Please Enter a Value for Range A1")
y = InputBox("Please Enter a Value for Range B1")

Range("A1").Value = x
Range("B1").Value = y

Application.DisplayAlerts = False
Application.ScreenUpdating = False
If Range("A1") <> Range("B1") Then Application.Quit
Application.DisplayAlerts = True
Application.ScreenUpdating = True
    
End Sub

[Jona2491]

John,

this looks like the right track, but I need it to prompt on start up - so as soon as they open the file, that box comes up.

Also, as I said to Hari in the previous post, only 1 value has to be entered, and it has to be compared to a previous value

thanks

[haripopuri]

Following code should be in ThisWorkBook module.

Private Sub Workbook_Open()
On Error Resume Next
MyNumber = InputBox("Enter the value to be in Cell B1")
Range("B1").Value = MyNumber
Application.DisplayAlerts = False
Application.ScreenUpdating = False
    If Range("A1") <> Range("B1") Then Application.Quit
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

[Jona2491]

Hari, you're great, I will star you

but!

if the wrong value is put in, there's an option to Save, Don't Save, or Cancel. If you hit "Cancel"...it just goes away and the program doesn't close :/

i'm know for fact there's a way to close the program without prompting - would i just switch "Then Application.Quit" to "Then activeworkbook.close (0)" ?


** yes it works with activeworkbook close! thanks haripouri!!