nested if statements

[tortillachips]

I want vba to search a sheet for a value. If the value exists, ask the user if they want to overwrite the values below it. If it does not exist, start a new set of values. The problem lies in my if statements.. If the user selects to overwrite the file. nothing happens. can anyone help?

Private Sub ButtonSaveValues_Click()
Dim irow As Long
Dim SaveFile As String
Dim x As Integer
Dim overwrite As Variant
Dim FoundValue As Range

Start:

SaveFile = InputBox("Enter the name you would like this to be saved under:", "Save File")

Sheets("Save").Activate

Range("A1").Activate



Set FoundValue = Cells.Find(what:=SaveFile, after:=ActiveCell, LookIn:=xlValues, lookat:=xlWhole, _
searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False, _
searchformat:=False)


If Not FoundValue Is Nothing Then
overwrite = MsgBox("There is already a file under this name, would you like to overwrite it?", vbYesNo)
If overwrite = vbNo Then Call ButtonSaveValues_Click
ElseIf overwrite = vbYes Then
irow = ActiveCell.Row
Call Saver
End If

Else
irow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Call Saver

End If

 

[GlennUK]

That module does not even compile. How can you be running it?

 

[tortillachips]

As I stated, I needed help getting it to work. I figured it out... needed an On error resume next. Thanks for the response though.

 

[Rick Rothstein]

As I stated, I needed help getting it to work. I figured it out... needed an On error resume next. Thanks for the response though.

If you didn't change anything else in the code you showed us, thenI doubt if that solved your problem rather than just mask it.... you have a syntax error in the code you showed us.

  If overwrite = vbNo Then [COLOR=darkred]Call ButtonSaveValues_Click
[/COLOR]  ElseIf overwrite = vbYes Then
    iRow = ActiveCell.Row
    Call Saver
  End If

The part marked in red cannot be located where you have it... you cannot mix a single line If..Then statement with block If..Then..Else constructions. If you do it this way, the code should compile (without the need for the On Error statement)...

  If overwrite = vbNo Then
    Call ButtonSaveValues_Click
  Else
    iRow = ActiveCell.Row
    Call Saver
  End If

Note that I removed your ElseIf statement and replaced it with a simple Else... your MessageBox can only return vbNo and vbYes... if isn't vbNo as your first test checks for, then it can only be vbYes and there is no need to test directly for that.