Snasui Excel Forum

Code: Select all

Private Sub Cancel_Click()
    Unload Me
End Sub

Private Sub clear_Click()
        TGramload.Enabled = True
        TRSA.Enabled = True
        TPSA.Enabled = True
        HA.Enabled = True

End Sub

Private Sub HA_Click()
    If HA.Enabled = True Then
        TGramload.Enabled = False
        TRSA.Enabled = False
        TPSA.Enabled = False
    End If

End Sub

Private Sub TGramload_Click()
    If TGramload.Enabled = True Then
        TRSA.Enabled = False
        TPSA.Enabled = False
        HA.Enabled = False
    End If
End Sub

Private Sub TPSA_Click()
    If TPSA.Enabled = True Then
        TRSA.Enabled = False
        TGramload.Enabled = False
        HA.Enabled = False
    End If
End Sub

Private Sub TRSA_Click()
    If TRSA.Enabled = True Then
        TPSA.Enabled = False
        TGramload.Enabled = False
        HA.Enabled = False
    End If

End Sub

Code: Select all

Private Sub Cancel_Click()
    Unload Me
End Sub

Private Sub clear_Click()
    TGramload.Enabled = True
    TGramload.Value = False
    TRSA.Enabled = True
    TRSA.Value = False
    TPSA.Enabled = True
    TPSA.Value = False
    HA.Enabled = True
    HA.Value = False
End Sub

Private Sub HA_Click()
    If HA.Value = True Then
        TGramload.Enabled = False
        TRSA.Enabled = False
        TPSA.Enabled = False
    End If
End Sub

Private Sub TGramload_Click()
    If TGramload.Value = True Then
        TRSA.Enabled = False
        TPSA.Enabled = False
        HA.Enabled = False
    End If
End Sub

Private Sub TPSA_Click()
    If TPSA.Value = True Then
        TRSA.Enabled = False
        TGramload.Enabled = False
        HA.Enabled = False
    End If
End Sub

Private Sub TRSA_Click()
    If TRSA.Value = True Then
        TPSA.Enabled = False
        TGramload.Enabled = False
        HA.Enabled = False
    End If
End Sub