Check action button while running a suboutine

[Ulisses_Carso]

Hello guys!

First things first, english isn't my main language so, i'm sorry about any misunderstanding

I have a Main Sub "TVP" with a msgbox condition and two Subs "FillBlank" and "SearchPlate", if user clicks yes it will call first Sub "FillBlank".
Inside "FillBlank" i have another msgbox condition, and again if user clicks yes, the Macro runs, comeback to Sub "TVP" and calls the other sub "SearchPlate".
But, if user click on Cancel button, that Sub Ends and still comeback to Sub "TVP" and run he second Sub.

This is the problem, it can't happen, if the user clicks the Cancel button everything should end. Is there a way to detect in the main Sub if the user clicks the Cancel button of the Sub "FillBlank" on any moment?


Sub TVP()
pergunta = MsgBox("Corrigiu os zeros dos carros novos?", vbQuestion + vbYesNo + vbDefaultButton2, "Macro TVP")
If pergunta = vbYes Then
FillBlank
SearchPlate
Else
End
End If
End Sub

Private Sub FillBlank()

Worksheets("tvp-ago").Activate

Dim InputValue As String
InputValue = InputBox("Digite o valor para preencher a célula em branco:", "Preencher Célula")
If StrPtr(result) <> 0 Then
For Each cell In Selection
If IsEmpty(cell) Then
cell.Value = InputValue
End If
Next
Else
End If
End Sub


Private Sub SearchPlate()
MsgBox ("Didn't worked")
End Sub

 

[Fluff]

How about like

Sub TVP()
   Dim InputValue As String

   pergunta = MsgBox("Corrigiu os zeros dos carros novos?", vbQuestion + vbYesNo + vbDefaultButton2, "Macro TVP")
   If pergunta = vbYes Then
      InputValue = InputBox("Digite o valor para preencher a célula em branco:", "Preencher Célula")
      If StrPtr(result) <> 0 Then
         FillBlank (InputValue)
         SearchPlate
      End If
   End If
End Sub

Private Sub FillBlank(InputValue As String)
   
   WorkSheets("tvp-ago").Activate
   
   InputValue = InputBox("Digite o valor para preencher a célula em branco:", "Preencher Célula")
   For Each cell In Selection
      If IsEmpty(cell) Then
         cell.Value = InputValue
      End If
   Next
End Sub


Private Sub SearchPlate()
   MsgBox ("Didn't worked")
End Sub

 

[Ulisses_Carso]

Hey Fluffy, thanks for your quick reply, but it is not working properly, the way it is, she calls the FillBlank msgbox twice, and if I cancel both times it runs the other sub,

i imagined something like this but it's not working

Sub DM_TVP()
pergunta = MsgBox("Corrigiu os zeros dos carros novos?", vbQuestion + vbYesNo + vbDefaultButton2, "Macro DM-TVP")
If pergunta = vbYes Then
FillBlank
If FillBlank(InputValue) = vbCancel Then
End
Else
SearchPlate
End If
End Sub()

i need to do it separately and if user click on Cancel Button, it returns to Main Sub and check why that sub finished, if it was canceled then ends everything, if not, runs SearchPlate

 

[Fluff]

Oops, forgot to remove the input box from the FillBlank sub.
If you delete it, it should be fine.

 

[Ulisses_Carso]

I've found the problem, the InputBox doesn't have a Button Argument so i can't treat conditions.
I think i'll have to create two boxes, one with Ok/Cancel and another only with a input value without buttons, do you know if is it possible?

 

[Fluff]

If you delete this line from the FillBlank sub you should be fine

InputValue = InputBox("Digite o valor para preencher a célula em branco:", "Preencher Célula")

 

[Ulisses_Carso]

i deleted that line, but i have another input box on Sub "TVP", i need to replace that input box with a box with a field to fill and OK button, if I could handle the input box buttons I would have already solved it

 

[Fluff]

Should the fillblank sub if no value is entered in the TVP inputbox?

 

[Ulisses_Carso]

I solved it, i removed the InputBox and forced the value to InputValue, i must be zero always, so problem solved!

Sub TVP()
   Dim InputValue As String

    Worksheets("tvp-ago").Activate
    
    pergunta = MsgBox("Corrigiu os zeros dos carros novos?", vbQuestion + vbYesNo + vbDefaultButton2, "Macro TVP")
    If pergunta = vbYes Then
        FillBlank
        SearchPlate
    Else
        End
    End If
End Sub

Private Sub FillBlank()
   
   Worksheets("tvp-ago").Activate
   
   InputValue = "0"
   For Each cell In Selection
      If IsEmpty(cell) Then
         cell.Value = InputValue
      End If
   Next
End Sub

I would like to deeply thank you for your patience in helping me with this code, I am very grateful to you Fluffy!
Kind Regards

 

[Fluff]

Glad you sorted it & thanks for the feedback.