UserForm is frozen

[berlini]

Hey Guys,

I ve been working all day long on my UserForm and it worked fine, then I launched it again and I only get the form but I cannot use it! Itīs frozen. I cannot even close it, I have to open the windows task Manager and then close the file from there.

Please help me! What could be the reason?

Thanks

[davesexcel]

What code do you have in ther userform?

[berlini]

Hello Davesexcel Thanks for your help!
This is the code:

Private Sub SaveCommandButton_Click()

'Transfer Last Gate attained to worksheet

Dim i As String
   If G9CheckBox.Value = True Then
        i = "G9"
        Range("g13").Value = i
    ElseIf G8CheckBox.Value = True Then
        i = "G8"
        Range("g13").Value = i
    ElseIf G7CheckBox.Value = True Then
        i = "G7"
        Range("g13").Value = i
    ElseIf G6CheckBox.Value = True Then
        i = "G6"
        Range("g13").Value = i
    ElseIf G5CheckBox.Value = True Then
        i = "G5"
        Range("g13").Value = i
    ElseIf G4CheckBox.Value = True Then
        i = "G4"
        Range("g13").Value = i
    ElseIf G3CheckBox.Value = True Then
        i = "G3"
        Range("g13").Value = i
    ElseIf G2CheckBox.Value = True Then
        i = "G2"
        Range("g13").Value = i
    ElseIf G1CheckBox.Value = True Then
        i = "G1"
        Range("g13").Value = i
    ElseIf G1CheckBox.Value = False Then
        i = " "
        Range("g13").Value = i
    
    End If
    
'Save Checkbox Status of Gates

If G1CheckBox.Value = True Then
            Range("H13") = True
End If
If G2CheckBox.Value = True Then
            Range("H14") = True
End If
If G3CheckBox.Value = True Then
            Range("H15") = True
End If
If G4CheckBox.Value = True Then
            Range("H16") = True
End If
If G5CheckBox.Value = True Then
            Range("H17") = True
End If
If G6CheckBox.Value = True Then
            Range("H18") = True
End If
If G7CheckBox.Value = True Then
            Range("H19") = True
End If
If G8CheckBox.Value = True Then
            Range("H20") = True
End If
If G9CheckBox.Value = True Then
            Range("H21") = True
End If

'Save Checkbox Status of Areas impacted by NC

If NCNCFCheckBox.Value = True Then
    Range("c31") = True
End If
If NCFAFCheckBox.Value = True Then
    Range("d31") = True
End If
If NCF2CheckBox.Value = True Then
    Range("e31") = True
End If
If NCF1CheckBox.Value = True Then
    Range("f31") = True
End If

'Save Checkbox Status of Areas impacted by Concession

If ConcNCFCheckBox.Value = True Then
    Range("c32") = True
End If
If ConcFAFCheckBox.Value = True Then
    Range("d32") = True
End If
If ConcF2CheckBox.Value = True Then
    Range("e32") = True
End If
If ConcF1CheckBox.Value = True Then
    Range("f32") = True
End If

'Save Checkbox Status of Areas impacted by Rework

If RewNCFCheckBox.Value = True Then
    Range("c33") = True
End If
If RewFAFCheckBox.Value = True Then
    Range("d33") = True
End If
If RewF2CheckBox.Value = True Then
    Range("e33") = True
End If
If RewF1CheckBox.Value = True Then
    Range("f33") = True
End If

'Save Checkbox Status of Areas impacted by Scrap

If ScrapNCFCheckBox.Value = True Then
    Range("c34") = True
End If
If ScrapFAFCheckBox.Value = True Then
    Range("d34") = True
End If
If ScrapF2CheckBox.Value = True Then
    Range("e34") = True
End If
If ScrapF1CheckBox.Value = True Then
    Range("f34") = True
End If

'Save Checkbox Status of Areas impacted by DQN

If DQNNCFCheckBox.Value = True Then
    Range("c35") = True
End If
If DQNFAFCheckBox.Value = True Then
    Range("d35") = True
End If
If DQNF2CheckBox.Value = True Then
    Range("e35") = True
End If
If DQNF1CheckBox.Value = True Then
    Range("f35") = True
End If

'Save Checkbox Status of Areas impacted by DS

If DSNCFCheckBox.Value = True Then
    Range("c36") = True
End If
If DSFAFCheckBox.Value = True Then
    Range("d36") = True
End If
If DSF2CheckBox.Value = True Then
    Range("e36") = True
End If
If DSF1CheckBox.Value = True Then
    Range("f36") = True
End If

    
End Sub

Private Sub ReUseSpinButton_Change()
    ReUseSpinButton.Min = 0
    ReUseSpinButton.Max = 5
    ReUseTextBox = ReUseSpinButton.Value

End Sub

Private Sub SecondarySpinButton_Change()
    SecondarySpinButton.Min = 0
    SecondarySpinButton.Max = 5
    SecondaryTextBox = SecondarySpinButton.Value
End Sub
Private Sub PrimarySpinButton_Change()
    PrimarySpinButton.Min = 0
    PrimarySpinButton.Max = 5
    PrimaryTextBox = PrimarySpinButton.Value
End Sub
Private Sub MgInterfaceSpinButton_Change()
    MgInterfaceSpinButton.Min = 0
    MgInterfaceSpinButton.Max = 5
    MgInterfaceTextBox = MgInterfaceSpinButton.Value
End Sub

Can I send you the file by Personal Message, so that you can see that the form is not responding?

[davesexcel]

You can attach a simple sample workbook to your post. Click the paperclip to upload a file.
Keep it very simple, we just need to see where the error occurs.

Have you tried Ctrl+break to see if this stops the code?

[berlini]

Hereīs the file!
what I wanted to do (an actually achieved to do) is click on the button on the worksheet, the userform appears with the last entered data, when an entry is changed it should be transfered to specified cells of the worksheet.
But suddenly the Form didnīt respond anymore...
You can see that Book2 works pretty good but itīs uncomplete compared to book 2_2

Thanks Davesexcel, i really in trouble, I have to deliver tomorrow!

[davesexcel]

No file attached

[berlini]

Do you think itīs because the lack of initialization? or is the code too complex?

[davesexcel]

One userform you have as enabled=true and the one that freezes you have enabled =false.
This is in the UserForm properties.

[berlini]

Davesexcel a BIG BIG Thank you!!!
I am sorry I was so dumb but itīs my very first day I am dealing with macros and vba!