..jeg bruger ikke dropbox, men jeg prøvet nu, men jeg får kun excel formular vist (med navnet : vis_skjul_kolonner_mads32. Arket er ellers blankt. Jeg vil helst ikke bruge tid på et produkt, jeg ikke bruger. Men hvis du kan anvise, hvad jeg gør forkert, så er det OK. ..tilbage til opgaven. .. jeg har input data i z,aa og ab. De skal være skjult i arket. Hvis der er behov for at rette data, så skal kol. z,aa,ab vises. Efter rettelsen skal kolonnerne skjules. Begge dele med en makro submit via en clickbox. .. arket har skjult overskrifter (kol, rækker)
Du behøver ikke at oprette dropbox, men dropbox er en af de mest anvendte måder at udveksle filer på her i dette forum. Det er for det meste lettere at få hjælp når man uploader en fil. . . Det er et link som vil hente filen.
Tak, jeg fandt ud af det til sidst. Det virker. Men som jeg skrev som supplement, så er nu mere interesseret i en løsning med tallet <1> i B4 : vis kolonner og <blank> : skjul kolonner.
Kan man lave (i din løsning p.t.) det med en knap, som bare skifter mellem vis/skjul.
Jeg mener det er muligt, men jeg kender ikke makroknappen og heller ikke programmeringen af en sådan. Der er flere af eksperterne der kan besvare dette..
De 2 knapper jeg har lavet kan selvfølgelig flyttes til B4
Det er fa.... nogle følsomme objekter. Til sidst lykkes det. Men det er måske mig, der har for lille kørekort. Det virker nu. Tak hjælpen. Skal man ikke kreditere mere her i dette forum?
Jeg prøver. Arket hvor VBA koden indgår er beskyttet. Derfor skal makroen frisætte beskyttelse og udfør (kolonne vis/luk) og slut med ark beskyttelse. Koden:
Sub Makro1() ' ' Makro1 Makro ' skjul kolonne L, M og N '
Columns("L:N").Select Selection.EntireColumn.Hidden = True End Sub Sub Makro2() ' ' Makro2 Makro ' Vis Kolonne L, M og N '
Store-Morten Det virke, som det skal. Men det kræver at der tilføres noget 'click' øverst til højre, og det har jeg ikke umiddelbart. Kan du forklare/guide hvordan jeg indsætter koden.
Store-Morten lige en gang til '"der manglede 'ActiveSheet.Protect' før else."' Arket er beskyttet med undtagelse af kol L,M,N, som er frisat. Hvis ikke ''ActiveSheet.Protect' sat før else, så er hele arket ubeskyttet, og ikke kun L,M,N.
i vis kode har du en kodebox, som i øverste højre vindue står 'click'. I dropdown boxen har du en masse valg, som jeg ikke har. I den nuv. løsning (lukvis) har jeg bare sat koden koden ind i boxen (efter vis programkoden). mvh Knud Evendorff
Jeg har oprettet en Til/Fra-knap som ActiveX-objekter. Og på den, lagt denne kode:
Private Sub ToggleButton1_Click() ActiveSheet.Unprotect
If Columns("L:N").EntireColumn.Hidden = True Then Columns("L:N").EntireColumn.Hidden = False ToggleButton1.Caption = "Skjul L, M og N"
Else Columns("L:N").EntireColumn.Hidden = True ToggleButton1.Caption = "Vis L, M og N" ActiveSheet.Protect End If End Sub
Du kan evt. oprette knappen med denne Makro:
Sub Opret_Til_Fra_knap() ActiveSheet.OLEObjects.Add(ClassType:="Forms.ToggleButton.1", Link:=False, _ DisplayAsIcon:=False, Left:=456, Top:=3, Width:=70, Height:=20). _ Select End Sub
Store-Morten Hold da op hvor det spiller. Jeg mangler blot, at få flyttet knappen hen på den rette plads. Jeg kan ikke få musen til at fange den, og få den flyttet.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.