Rullemenu virker ikke ved worksheet_change

lav en makro til din rullemenu

så dee

et eksempel på en makro


Public Sub Rullemenu()
    V = Sheets("Ark1").Range("N21")
    With Sheets("Ark1")
        Select Case V
        Case "1"
            .Range("b2") = 1  ' skriver i B2
        Case "2"
            .Range("b2") = 2    ' skriver i B2
        Case "3"
            .Range("b2") = 3    ' skriver i B2
        Case Else
            .Range("b2") = 0    ' skriver i B2
        End Select
    End With
End Sub

Skal dette indsættes som modul, eller skal det være kode i selve arket ?
Det skal være sådan at når værdien i n21 skifter, så skal koden aktiveres.
Værdien skifter bare ikke ved indtastning i cellen, men ved at rullemenuen ændres.

den skal i et modul.

Højreklik på dim rullemenu, og vælg Tildel makro , peg så på denne makro, så kører den når værdien i N21 skifter ved hjælp af rullemenuen.

Du kan putte samme kode i som du har i worksheet_change , mem du kan okke styre med Target, den fanges i stedet med V = Sheets("Ark1").Range("N21"), hvor du retter arknavnet til dit ark

Den færdige kode kom til at se lidt anderledes ud:

Public Sub Rullemenu()
    If Worksheets("forhandlingsreferat").Range("n21") = "ja" Then
    Columns("K:M").EntireColumn.Hidden = False
    Else
    Columns("K:M").EntireColumn.Hidden = True
    End If
End Sub

Men princippet er det samme, så der er point til Kabbak når du lægger et svar

et svar ;-))