Hi All:
I use this to set the ListFillRange for ComboBox10:
With ComboBox10
.List = Sheets("Artikel").Range("A2:A5002").Value
.ListIndex = -1
End With
I want to use the same ListFillRange for ComboBox13, 18, 23, 27 and 32.
Do i have to set the ListFillRange for each ComboBox separately?
To prevent users from using the close button (x) in the UserForm i use:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = True
MsgBox "InActivated!", vbCritical, "Microsoft Excel"
End If
End Sub
Is it possible use something similar to force users to close the workbook with a CommandButton?
Ex:
Sub Close()
ActiveWorkBook.Save
Application.Quit
End Sub
/Roger
I use this to set the ListFillRange for ComboBox10:
With ComboBox10
.List = Sheets("Artikel").Range("A2:A5002").Value
.ListIndex = -1
End With
I want to use the same ListFillRange for ComboBox13, 18, 23, 27 and 32.
Do i have to set the ListFillRange for each ComboBox separately?
To prevent users from using the close button (x) in the UserForm i use:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = True
MsgBox "InActivated!", vbCritical, "Microsoft Excel"
End If
End Sub
Is it possible use something similar to force users to close the workbook with a CommandButton?
Ex:
Sub Close()
ActiveWorkBook.Save
Application.Quit
End Sub
/Roger