Avatar billede tida Juniormester
19. november 2014 - 09:32 Der er 13 kommentarer og
1 løsning

Makro starter ikke - er den mon placeret forkert

Hej Eksperten

Jeg har igår lagt en Private Sub makro ind under det specifikke ark (Ark6) og fik den til at fungere tilfredstillende.

Idag åbner jeg filen og makroen vil nu pludselig ikke køre. Tænker at der er noget jeg ikke ved omkring makroers placering. Jeg har så læst mig til at for at makroen skal kunne køre må filen ikke må åbne op i det specifikke ark, makroen skal aktiveres ved at man klikker på det og makroen skulle derved være igang. Men det fungere stadig ikke. Kan man få lidt assistance?

Min makro ser således ud :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("AFKRYDS")) Is Nothing Then
        If Target.Interior.ColorIndex = xlNone Then
            Target.Interior.ColorIndex = 3
            Cancel = True
        Else
            Target.Interior.ColorIndex = xlNone
        End If
   
    End If
End Sub
Avatar billede lordnelson Seniormester
19. november 2014 - 15:28 #1
skal vel lægge i activate eventen ?
Private Sub Worksheet_Activate()
If Not Intersect(Target, Range("AFKRYDS")) Is Nothing Then
        If Target.Interior.ColorIndex = xlNone Then
            Target.Interior.ColorIndex = 3
            Cancel = True
        Else
            Target.Interior.ColorIndex = xlNone
        End If
   
    End If
End Sub
Avatar billede store-morten Ekspert
19. november 2014 - 16:58 #2
Makroen køres kun når du makerer cellen/cellerne med navnet AFKRYDS
Avatar billede tida Juniormester
20. november 2014 - 07:53 #3
lordnelson: er ikke med på hvad activate eventen er ?

store-morten: jeg er med på at der skal markeres i afskryds feltet, det er ikke problemet. Makroen virkede fint om aftenen, næste morgen var den "død".
Avatar billede tida Juniormester
20. november 2014 - 10:10 #4
Makroen skal sørge for at der skiftes til rød baggrundsfarve når jeg klikker på en celle i et særligt område af arket (her navngivet "AFKRYDS")

Ikke noget vildt kompliceret - det virker bare ikke...pludselig !
Avatar billede tida Juniormester
20. november 2014 - 10:32 #5
lukker
Avatar billede MADOlsen Forsker
20. november 2014 - 10:43 #6
Har du løst problemet, siden du lukker spørgsmålet?
Avatar billede tida Juniormester
20. november 2014 - 10:58 #7
Nej ....har du et bud  ?
Avatar billede lordnelson Seniormester
20. november 2014 - 11:15 #8
Er du sikker på at Range("AFKRYDS"))
henviser til ark6
For den virker fint her i det rigtige ark hvor Range("AFKRYDS"))
henviser til ark
Avatar billede tida Juniormester
20. november 2014 - 11:29 #9
Ja helt sikker - jeg har også forsøgt uden at bruge navn bare med celle henvisning, og jeg har forsøgt i et nyt ark osv, der sker ikke en dyt. Jeg tror jeg må prøve med en helt frisk fil efterhånden.
Avatar billede lordnelson Seniormester
20. november 2014 - 11:45 #10
Håber ikke du bliver stødt nu
men bliver nødt til at spørge , går ud fra det er en nyere excel du har 10-13 stykker, så har du husket at gemme den som en makro excel fil XLSM ?
Avatar billede tida Juniormester
20. november 2014 - 12:35 #11
Nej bliver ikke stødt.....og jo det er en xlsm fil.
Avatar billede lordnelson Seniormester
20. november 2014 - 12:57 #12
Ja så ved jeg ikke
for den virker for det virker fint her

kun hvis dine makroer er slået helt fra
Avatar billede store-morten Ekspert
24. november 2014 - 17:05 #13
Prøv at køre denne makro:

Sub testEvents()
MsgBox Application.EnableEvents
End Sub
Avatar billede store-morten Ekspert
24. november 2014 - 17:16 #14
Hvis den melder "False" så kør denne makro:

Sub SetEventsTrue()
Application.EnableEvents = True
End Sub
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

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