UserForm

[hartless43]

Ok, I give up, so asking the experts. How do you call a UserForm based on a cell value from the WorkSheet_Change. Below is the one that want work.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("K14")) Is Nothing Then
       If Target.Value = 42 Then
          MG42.Show
        End If
    End If
End Sub

Thanks from an old man

 

[mumps]

Try replacing

MG42.Show

with

UserForm1.Show

 

[hartless43]

Why is that? UserForm1 is a generic name given to all forms. I have 6 more forms, but they are called from a Marco

 

[mumps]

I assumed that "MG42" was the caption not the name for the userform. In a dummy file, I made sure that the userform name was "MG42" and your macro worked properly for me.

 

[hartless43]

Well, I assumed also, that if I had another Worksheet_change on this sheet my code would be (including the other WS-Change

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'This keeps a running totla of all Mistakes
    Excel.Application.EnableEvents = False
    If [CurrentMistakes].Value > [PreviousMistakes].Value Then
        [TotalMistakes].Value = [TotalMistakes].Value + 1
    End If
    [PreviousMistakes].Value = [CurrentMistakes].Value
    Excel.Application.EnableEvents = True
        
    '/Private Sub Worksheet_Change(ByVal Target As Range) commented out
    If Not Intersect(Target, Range("K14")) Is Nothing Then
       If Target.Value = 42 Then
          MG42.Show
        End If
    End If
    
End Sub

Maybe those two don't work together

Jerry

 

[mumps]

Try removing the other code and see if it works.

 

[hartless43]

I'll check that out later, gotta run for now, probably will be tomorrow...Going to Smoky Mountain Knife Works in Sevierville TN

 

[hartless43]

OK, Mumps, that does not work as you stated, but it works with a Macro. I have a Sudoku game and when I need a new puzzle to play, I select it from a bank of Solutions and they are numbered from 1 to 265 and puzzle 42 in that bank has 3 each 3x3 grids where the sum of each Row, Column, Diagonals = 15. As I copy a solution from the Bank to the game board, I have a macro that will create a puzzle by removing numbers and this is where I placed the code to show the UserForm if puzzle 42 is selected. So, thanks for your help and I will close this one out

 

[mumps]

You are very welcome.