Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyEscape Then
Unload UserForm1
End If
End Sub
Sub ShowForm2()
With UserForm1.ComboBox1
.Clear
Dim counter, i As Integer
counter = Sheets("Use_cases").UsedRange.Rows.Count
For i = 5 To counter Step 1
If Sheets("Use_cases").Cells(i, 6).Value = "FA" Then
.AddItem Sheets("Use_cases").Cells(i, 7).Value
End If
Next
.ListIndex = -1
End With
UserForm1.Show
End Sub
Sub Expand_DetailsofUseCases()
' ActiveSheet.Unprotect Password:="jam"
ActiveSheet.Outline.ShowLevels RowLevels:=4
' ActiveSheet.Protect Password:="jam"
' ActiveSheet.EnableSelection = xlUnlockedCells
Range("A3").Activate
End Sub
Sub Expand_UseCases()
Dim temp
temp = ActiveCell.Address
' ActiveSheet.Unprotect Password:="jam"
ActiveSheet.Outline.ShowLevels RowLevels:=3
' ActiveSheet.Protect Password:="jam"
' ActiveSheet.EnableSelection = xlUnlockedCells
Range(temp).Activate
End Sub
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Added Form, Added code to fill combobox, added find code to activate found cell
Navigation-Macro.xlsm