Avatar billede FinnLauridsen Forsker
07. juli 2016 - 13:22 Der er 9 kommentarer og
2 løsninger

Knap med 2 makroer tilknyttet

Kan man lave en knap med 2 makroer ?
skal virke således, når knappen er inde skal den køre 1 makro
og når knappen er ude skal 2`den makro køre ?
Avatar billede store-morten Ekspert
07. juli 2016 - 13:41 #1
Avatar billede FinnLauridsen Forsker
07. juli 2016 - 14:05 #2
Hej Store Morten
Toggle button , i`den  virker fint
men nu er det Column D E F G H I J K L M N jeg gerne ville have der var synlig / ikke synlig
jeg har ændret alle de steder der stod Row til column , men det virker ikke for mig


Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
'This area contains the things you want to happen
'when the toggle button is not depressed
Column(D).EntireColumn.Hidden = True
Column(E).EntireColumn.Hidden = True
Column(F).EntireColumn.Hidden = True
Else
'This area contains the things you want to happen
'when the toggle button is depressed
Column(D).EntireColumn.Hidden = False
Column(E).EntireColumn.Hidden = False
Column(F).EntireColumn.Hidden = False
End If

End Sub
hvad gør jeg forkert ?
Avatar billede anedi Ekspert
07. juli 2016 - 14:18 #3
Columns("D:E") - mangler måske "-tegn
Avatar billede Jessen Seniormester
07. juli 2016 - 14:25 #4
Hej Finn,

Det er småting som skal ændres. Det kan forsimples sådan her:

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then
    Columns("D:F").EntireColumn.Hidden = True
Else
    Columns("D:F").EntireColumn.Hidden = False
End If

End Sub
Avatar billede store-morten Ekspert
07. juli 2016 - 14:40 #5
Tilføj et s og " "
Columns("D")

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
'This area contains the things you want to happen
'when the toggle button is not depressed
Columns("D").EntireColumn.Hidden = True
Columns("E").EntireColumn.Hidden = True
Columns("F").EntireColumn.Hidden = True
Else
'This area contains the things you want to happen
'when the toggle button is depressed
Columns("D").EntireColumn.Hidden = False
Columns("E").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = False
End If

End Sub
Avatar billede FinnLauridsen Forsker
07. juli 2016 - 14:54 #6
Jessen:
Kan det laves at kolonnerne altid,  hvis active star til højre for kolonne C
nu er det således at hvis jeg star I kolonne LK så forsvinder de 
jeg har fryset A:C og row 1:6
Avatar billede store-morten Ekspert
07. juli 2016 - 18:01 #7
Ikke forstået
Avatar billede FinnLauridsen Forsker
07. juli 2016 - 18:19 #8
må jeg sende dig et eksempel ?
Avatar billede store-morten Ekspert
07. juli 2016 - 18:48 #9
Ja
Avatar billede FinnLauridsen Forsker
08. juli 2016 - 11:39 #10
Store Morten
er der en mail adresse ?
Avatar billede store-morten Ekspert
08. juli 2016 - 12:05 #11
falster4872 "a" gmail.com
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester