Go back to required cell to fill

[erutherford]

Have the basics down, now just trying to make it easier for the end user. Cell C21 is a required cell to be fill, not not a Message pops up. I would like the vba to take them right to that cell.
Here is the code I am using.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Cells(21, 3).Value = "" Then

MsgBox "License No. requires input before print"

Cancel = True

End If

End Sub
​

thanks in advance

 

[My Aswer Is This]

And what was wrong with this script I provided in Post #17

Now it does not address the issue if someone clicks the cancel key.

We should get this working and then work on if cancel is clicked.

 

[erutherford]

Yes it prints when you hit cancel on the inputbox

 

[Rick Rothstein]

Yes it prints when you hit cancel on the inputbox

Did the suggestion I made in Message #20 work for you?

 

[erutherford]

Did the suggestion I made in Message #20 work for you?

Partly - It won't print when empty, when I select "ok" or "cancel" on inputbox. If I enter data in the box and hit "ok" it won't print. Would a "loop" function be appropriate?

 

[My Aswer Is This]

You said:
Partly - It won't print when empty, when I select "ok" or "cancel" on inputbox. If I enter data in the box and hit "ok" it won't print.

What does "Partly" mean??
So when does it work??

 

[Rick Rothstein]

Partly - It won't print when empty, when I select "ok" or "cancel" on inputbox. If I enter data in the box and hit "ok" it won't print. Would a "loop" function be appropriate?

I had a spelling error on the MyValue variable on one of the code lines. Here is the corrected code...

Private Sub CommandButton1_Click()
  If Cells(21, 3).Value = "" Then
    MsgBox "License No. requires input before print"
    Cells(21, 3).Select
    Cancel = True
  End If
  MyValue = InputBox("Enter License Plate Info")
  If Len(Trim(MyValue)) Then
    Range("C21").Value = MyValue
    Range("A1:I50").PrintOut
  End If

 

[erutherford]

I had a spelling error on the MyValue variable on one of the code lines. Here is the corrected code...

Private Sub CommandButton1_Click()
  If Cells(21, 3).Value = "" Then
    MsgBox "License No. requires input before print"
    Cells(21, 3).Select
    Cancel = True
  End If
  MyValue = InputBox("Enter License Plate Info")
  If Len(Trim(MyValue)) Then
    Range("C21").Value = MyValue
    Range("A1:I50").PrintOut
  End If

That did it!!!! Thank you very much!!!! Thanks for hanging in until the end!

 

[My Aswer Is This]

This script will give you a Input Box no matter if Cells(21,3) has a value or does not have a value. So why is the Message Box needed?

That did it!!!! Thank you very much!!!! Thanks for hanging in until the end!

 

[Rick Rothstein]

This script will give you a Input Box no matter if Cells(21,3) has a value or does not have a value. So why is the Message Box needed?

Good point! Maybe this arrangement is better...

Private Sub CommandButton1_Click()
  If Cells(21, 3).Value = "" Then
    MsgBox "License No. requires input before print"
    Cells(21, 3).Select
    Cancel = True
    MyValue = InputBox("Enter License Plate Info")
    If Len(Trim(MyValue)) Then
      Range("C21").Value = MyValue
    Else
      Exit Sub
    End If
  End If
  Range("A1:I50").PrintOut
End Sub

 

[My Aswer Is This]

That works.

Not sure why this line of code is needed:

Cells(21, 3).Select

Good point! Maybe this arrangement is better...

Private Sub CommandButton1_Click()
  If Cells(21, 3).Value = "" Then
    MsgBox "License No. requires input before print"
    Cells(21, 3).Select
    Cancel = True
    MyValue = InputBox("Enter License Plate Info")
    If Len(Trim(MyValue)) Then
      Range("C21").Value = MyValue
    Else
      Exit Sub
    End If
  End If
  Range("A1:I50").PrintOut
End Sub