MsgBox vbYesNo Does Nothing

Darren Bartrup

Well-known Member

Joined

Mar 13, 2006

Messages

1,297

Office Version

1. 365

Platform

1. Windows

• Sep 26, 2006

• #2

Hi PCTech.

Think this is in the wrong forum - looks like an Excel problem.

Does this solve the problem though:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    'Is 1 entered in column AK?
    If Target.Column = 37 And _
       Target.Value = 1 Then
       
        If MsgBox("Do you need a BARCODE LABEL", vbYesNo + vbQuestion, "Labels") = _
            vbYes Then
            Target.Worksheet.Range("AL" & Target.Row) = "Yes"
        End If
    
    End If

End Sub

The problem in your code is probably:

Code:

    If myLabel = ybYes Then 
    Range("AL" & i) = "yes" 
    Unload Me

Note: ybYes instead of vbYes

 

Upvote 0

P

PCTech

Board Regular

Joined

Mar 24, 2005

Messages

215

• Sep 26, 2006

• #3

Sorry, I didn't realize where I posted. I will post in the proper area.
For some reason, your code does not bring up the message box.

 

Upvote 0

Darren Bartrup

Well-known Member

Joined

Mar 13, 2006

Messages

1,297

Office Version

1. 365

Platform

1. Windows

• Sep 26, 2006

• #4

It should only bring up the message box if 1 is entered in column AK (i.e. column 37) as indicated by Target.
Any other value entered in that column or any other column will ignore the message box.

Note the edit in my previous post - will probably solve your problem to.

Off home now, so can't reply for another 17 hours. Sorry

 

Upvote 0

P

PCTech

Board Regular

Joined

Mar 24, 2005

Messages

215

• Sep 26, 2006

• #5

Your code works great, if I put a 1 in column AK. The fight now is the 1 comes from a coutif formula. In otherwords, if it finds a match, it puts a 1 in the cell. It is recognizing the fomula, not the 1. (I think) So I go to AM and put =Value($A$K) and change the code to look at that and it still will not trigger teh message box.

Have a good evening.

 

Upvote 0

VoG

Legend

Joined

Jun 19, 2002

Messages

63,650

• Sep 26, 2006

• #6

Typo? If myLabel = ybYes Then

 

Upvote 0

Scott Huish

MrExcel MVP

Joined

Mar 17, 2004

Messages

20,653

Office Version

1. 365

Platform

1. Windows

• Sep 26, 2006

• #7

Is this homework?

I answered this same exact question by another person yesterday.

 

Upvote 0

P

PCTech

Board Regular

Joined

Mar 24, 2005

Messages

215

• Sep 26, 2006

• #8

I told a co-worker to go to MrExcel and post this question. He told me that nobody replyed so I posted this morning. Thanks for the replies.

 

Upvote 0