VBA - Skjul visse rækker/kolonner alt efter indhold i drop down

Hvordan er DropDown-listerne konstrueret?

Dim flag As Boolean
Private Sub Worksheet_Activate()
    flag = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim kol As Object, ræk As Long, kolonne As String, c As String, p As Byte
    If flag = False Then
        Application.ScreenUpdating = False
   
        If Target.Address = "$B$9" And Target.Text <> "" Then
            flag = True
            For ræk = 13 To 198
                If Range("B" & ræk) = "" Then
                    Rows(CStr(ræk) & ":" & CStr(ræk)).Select
                    Selection.EntireRow.Hidden = True
                End If
            Next ræk
        Else
            If Target.Address = "$B$10" And Target.Text <> "" Then
                flag = True
                For Each kol In Range("C12:BZ12").Columns
                    If kol.Value = "" Then
Rem Isoler kolonne-bogstav
                        c = Mid(kol.Address, 2)
                        p = InStr(c, "$")
                        kolonne = Left(c, p - 1)
                        Columns(kolonne & ":" & kolonne).Select
                        Selection.EntireColumn.Hidden = True
                    End If
                Next
            End If
        End If
    End If
    flag = False
End Sub

Drop down er lavet vha. datavalidering, hvor jeg har valgt lister.

Jeg har desværre ikke mulighed for at teste før onsdag, men jeg vil vende tilbage der.

Et enkelt spørgsmål ud fra din kode.

Hvis jeg først vælger en værdi, så skjules alle ikke relevante rækker/kolonner. Hvad hvis jeg derefter vælger en anden værdi?

Vil de rækker der så skal være synlige blive lavet synlige igen?

Hej Kfisker

I min model har jeg også anvendt datavalidering.
Der er i koden ikke taget højde for hvilken værdi, der er valgt - idet jeg ikke mener at dette var præciseret.

Betragt koden som et udgangspunkt..

PS: Jeg ser lige nu, at du faktisk nævner en eksakt værdi og ikke - som jeg læste det - at cellen har værdi".

Dette ændre jeg til i morgen..

Super, min vidne omkring VBA kan stå på bagsiden af et meget lille frimærke.

OBS: kan godt være det må vente lidt - men jeg skal nok vende tilbage..

Rem VERSION 2
Rem =========
Dim flag As Boolean
Private Sub Worksheet_Activate()
    flag = False
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim kol As Object, ræk As Long, kolonne As String, c As String, p As Byte, valgtVærdi As Integer
    Application.ScreenUpdating = False
   
    If flag = False Then
        If Target.Address = "$B$9" Then
            valgtVærdi = Target.Value
            For ræk = 13 To 198
                flag = True
                Rows(CStr(ræk) & ":" & CStr(ræk)).Select
                If Range("B" & ræk).Value <> valgtVærdi Then
                    Selection.EntireRow.Hidden = True
                Else
                    Selection.EntireRow.Hidden = False
                End If
            Next ræk
        Else
            If Target.Address = "$B$10" Then
                valgtVærdi = Target.Value
                For Each kol In Range("C12:BZ12").Columns
                    flag = True
Rem Isoler kolonne-bogstav
                    c = Mid(kol.Address, 2)
                    p = InStr(c, "$")
                    kolonne = Left(c, p - 1)
                    Columns(kolonne & ":" & kolonne).Select
                    If kol.Value <> valgtVærdi And valgtVærdi <> 0 Then
                        Selection.EntireColumn.Hidden = True
                    Else
                        Selection.EntireColumn.Hidden = False
                    End If
                Next
                Range("B10") = ""
            End If
        End If
    End If
    flag = False
End Sub

Når jeg ændrer værdien i B9 eller B10 melder den fejl på denne linje:
valgtVærdi = Target.Value

Fejlbeskeden er:
Run-time error '13':
Type Mismatch

Hvilke værdier er der f.eks. anført i listerne vedr. B9 & B10?

I min model har der kun været tal.

Vedr linjen:
Dim kol As Object, ræk As Long, kolonne As String, c As String, p As Byte, valgtVærdi As Integer

prøv at slette "As Integer" efter valgtVærdi

til:

Dim kol As Object, ræk As Long, kolonne As String, c As String, p As Byte, valgtVærdi

Værdierne er navne.

Det hjalp at sltte "As Integer".

Jeg har to problemer tilbage:

1. Når jeg vælger et navn i feltet B10 bliver alt skjult som det skal. Dog er feltet B10 blankt efterfølgende.

2. Jeg vil gerne kunne vise alle kolonner/rækker igen. Kan der f.eks laves således jeg kan klikke på en knap/et link i et fejl og alt vises igen?

Det først problem fik jeg løst ved at slette linjen:
Range("B10") = ""

Fint du fik løst det første.

Det andet problem kan løses på forskellige måder:
f.eks. ved at dobbeltklikke på en bestem celle - hvilken B8? - eller?

B11 vil være at foretrække. Så kan jeg lave en tekst til cellen.

Rem VERSION 3
Rem =========
Dim flag As Boolean
Private Sub Worksheet_Activate()
    flag = False
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ActiveSheet.Rows.Hidden = False
    ActiveSheet.Columns.Hidden = False
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim kol As Object, ræk As Long, kolonne As String, c As String, p As Byte, valgtVærdi
    Application.ScreenUpdating = False
   
    If flag = False Then
        If Target.Address = "$B$9" Then
            valgtVærdi = Target.Value
            For ræk = 13 To 198
                flag = True
                Rows(CStr(ræk) & ":" & CStr(ræk)).Select
                If Range("B" & ræk).Value <> valgtVærdi Then
                    Selection.EntireRow.Hidden = True
                Else
                    Selection.EntireRow.Hidden = False
                End If
            Next ræk
        Else
            If Target.Address = "$B$10" Then
                valgtVærdi = Target.Value
                For Each kol In Range("C12:BZ12").Columns
                    flag = True
Rem Isoler kolonne-bogstav
                    c = Mid(kol.Address, 2)
                    p = InStr(c, "$")
                    kolonne = Left(c, p - 1)
                    Columns(kolonne & ":" & kolonne).Select
                    If kol.Value <> valgtVærdi And valgtVærdi <> 0 Then
                        Selection.EntireColumn.Hidden = True
                    Else
                        Selection.EntireColumn.Hidden = False
                    End If
                Next
                Range("B10") = ""
            End If
        End If
    End If
    flag = False
End Sub

OBS:

Glemte lidt i følgende - hvis du tilføjer det med FED:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$B$11" Then
        ActiveSheet.Rows.Hidden = False
        ActiveSheet.Columns.Hidden = False
    End If
End Sub

Super, så kom det hele til at virke som ønsket.

Læg et svar og der er point på vej.

Fint - der er lagt svar på #16

Arh, det lagde jeg ikke lige mærke til.

Tak for hjælpen.

Selv tak - en fornøjelse..