Auteur Topic: sneltoets macro (gelezen 2277 keer)

den berre · « **Gepost op:** 30 oktober 2008, 11:55:33 »

Hallo,

Ik heb een vraagje over het gebruik van macro's.
Als ik een macro aan een sneltoest toewijs, werk deze sneltoets in alle geopende excel bestanden.
De macro maakt een formulier zichtbaar met gegevens van een enkel bestand.
Kan ik deze sneltoets enkel laten werken in samenhorend bestand? Of nog sterker op een bepaald werkblad/bladen?

RedHead · « **Reactie #1 Gepost op:** 30 oktober 2008, 21:18:14 »

Den Berre, Misschien heb je iets aan dit voorbeeldje...

Code: [Selecteer]

Sub Melding()

    If ActiveWorkbook.Name = "Book2.xls" And ActiveSheet.Name = "Sheet2" Then
        MsgBox "Dit is werkbook: " & ActiveWorkbook.Name & " met sheet " & ActiveSheet.Name
    End If
    
End Sub

Deze macro (waarbij ik bij mij de snelkoppeling Ctrl+q heb aangemaakt) werkt alleen als je in het workbook met de naam 'Book2.xls' èn in de sheet met de naam 'Sheet2' staat.
Met een beetje logisch nadenken kan je vast zoiets ook om je eigen macro bouwen. (zo niet, geef je maar een gil)

Groet, Leo

den berre · « **Reactie #2 Gepost op:** 01 november 2008, 12:44:40 »

aaaaaaaaaaaaaaaaaaaaaaaaaa, (gil)

Nee, alles ok hoor.
Ik heb de code een beetje aangepast en het werkt prima.
Waarom aangepast? Omdat de code op een bepaald werkblad toegepast wordt en niet op de ganse file.
Nu werkt de code op Map1 en niet op andere bestanden die in dezelfde applicatie zijn geopend.

Code: [Selecteer]

Sub form()
'
' form Macro
'
' Sneltoets: CTRL+a
'
If ActiveWorkbook.Name = "Map1.xls" Then
        UserForm1.Show
    End If
    
End Sub

Nogmaals bedankt redhead voor de hulp.

Help!

Menu

Hulp bij posten

Zoeken

Recente topics

Auteur Topic: sneltoets macro (gelezen 2277 keer)

den berre

sneltoets macro

RedHead

Re: sneltoets macro

den berre

Re: sneltoets macro