Avatar billede bejstrup1 Nybegynder
18. marts 2005 - 08:31 Der er 5 kommentarer

Makro kørere 2 gange i stedet for 1

Jeg har en lille programkode, som kun skal kørere én gang. Problemet er at min MsgBox dukker op 2 gange.


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Range("A1") = "5" Then
Range("A1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("A10").Select

    MsgBox "Indholdet i celle A1 har ændret sig"
       
End If

End Sub
Avatar billede jkrons Professor
18. marts 2005 - 08:43 #1
Du slecter to gange. Derfor. Din makro udløses når den selceltioon ændrer sig, og først sætter du den til A1, og dernæst til A10.

Hvis den kun skal køre i det ene tilfælde, må du teste på dit Target, og så udelade msgbox'en i det ene tilfælde.
Avatar billede bejstrup1 Nybegynder
18. marts 2005 - 09:11 #2
Men hvordan løser jeg problemet
Avatar billede kabbak Professor
18. marts 2005 - 09:28 #3
If Range("A1") = "5" Then
Application.EnableEvents =False
Range("A1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("A10").Select

    MsgBox "Indholdet i celle A1 har ændret sig"
    Application.EnableEvents =true
   
End If

End Sub
Avatar billede stewen Praktikant
18. marts 2005 - 09:29 #4
eller

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Range("A1") = "5" Then
Range("A1").FormulaR1C1 = "1"
    Range("A10").Select

    MsgBox "Indholdet i celle A1 har ændret sig"
       
End If

End Sub
Avatar billede stewen Praktikant
19. maj 2005 - 14:13 #5
hmm.. lukketid?
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