Mam komórkę (D3) z rozwijanym menu z 8 elementami (wszystkie słowa). W zależności od wybranego elementu rozwijanego chcę ukryć wszystkie pozostałe wiersze bez tego określonego słowa w kolumnie K (11 kolumn od początku).
Potrzebuję również opcji, aby pokazać wszystkie wiersze, jeśli „Wszystkie rzędy”, jeśli jest to wybrane z menu rozwijanego.
Jakieś pomysły na VBA dotyczące wartości z rozwijanego menu komórki?
Ponadto, w jaki sposób powiązać kod VBA z rozwijanym menu po wybraniu?
Dziękuję i doceniam wszelką pomoc.
Czy ten kod wygląda poprawnie? Sub PhaseTargettoStart ()
Dim rMyCell As Set Set rMyCell = Range („D3”) BeginRow = 6 EndRow = 301 ChkCol = 10 If Range („Audit! D3”) = „Wybór źródła” Następnie wiersze („6: 301”). EntireRow.Hidden = Fałszywe
Else
If Range("Audit!D3") = "Source Selection + 4 weeks" Then
Rows("6:301").EntireRow.Hidden = False
Else
If Range("Audit!D3") = "Step 5 + 8 weeks" Then
Rows("6:301").EntireRow.Hidden = False
Else
If Range("Audit!D3") = "TKO" Then
Rows("6:301").EntireRow.Hidden = False
Else
If Range("Audit!D3") = "OTOP" Then
Rows("6:301").EntireRow.Hidden = False
Else
If Range("Audit!D3") = "VP" Then
Rows("6:301").EntireRow.Hidden = False
Else
If Range("Audit!D3") = "Process Audit" Then
Rows("6:301").EntireRow.Hidden = False
Else
If Range("Audit!D3") = "PDR" Then
Rows("6:301").EntireRow.Hidden = False
Else
If Range("Audit!D3") = "PS" Then
Rows("6:301").EntireRow.Hidden = False
Else
If Range("Audit!D3") = "Show All" Then
Rows("6:301").EntireRow.Hidden = True
End If
End Sub