• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Macro wordt geactiveerd in ander bestand

Status
Niet open voor verdere reacties.

CasperEx

Gebruiker
Lid geworden
3 dec 2013
Berichten
78
Beste forumleden,
Zie de bijlagen

In bestand "A" wordt een "1" geplaatst als je klikt op de knop "macro"
Is het nou mogelijk door te klikken op die knop "macro" (in bestand "A") die 1
ook in bestand "B" te krijgen?

Of anders geformuleerd: Kan ik met een macro in het ene bestand het andere bestand
beïnvloeden?

Ben benieuwd!
 

Bijlagen

Jazeker:
Code:
Sub Macro1()
    Dim wb_b As Workbook
    
    Range("D3") = 1
    Set wb_b = Workbooks.Open(ThisWorkbook.Path & "\b.xlsm")
    wb_b.Sheets("Blad1").Range("D3") = 1
    wb_b.Save
    wb_b.Close
End Sub
 
Vraag opnieuw open gezet

Lieve mensen, ik kom er toch niet helemaal lekker uit. Mag ik het opnieuw formuleren?
2 bestanden (A en B)
Beide bestanden staan open op mijn scherm
Op een "knop" (vorm) in bestand A na (hier wil ik graag de macro onder hebben) zijn beide bestanden leeg

En wat moet deze macro doen:

Deze macro in A doet iets in B. Laten we zeggen: In B naar A1 gaan. Dus ik klik in "A" op de knop en in "B" gaat de cursor naar cel A1

Sorry, vorige keer wat slechter geformuleerd
Heeft iemand een oplossing?
 

Bijlagen

Zelfde code als in #2, maar dan deze actie:
Code:
wb_b.Sheets("Blad1").Range("A1").Activate
Je dan ook beslissen om document B niet te sluiten.

Of, als beide documenten open staan:
Code:
Sub Rechthoekafgerondehoeken1_Klikken()
    Application.Windows("B.xlsm").Activate
    Range("A1").Activate
End Sub

Niet echt duidelijk wat je nu precies probeert te bereiken.
 
Laatst bewerkt:
Volgende poging

Sorry voor de onduidelijkheid. Nog eens bondig samengevat: Klik in A, en er gebeurt wat in B (Cursor gaat naar a1)
En zowel A als B zijn al geopend

Ik heb geprobeerd er wat van te maken op basis van wat jullie allemaal al uitgezocht hebben

Sub macro1()
Dim wb_b As Workbook

Application.Windows("B.xlsm").Activate
Range("A1").Activate


End Sub

maar krijg nu de foutmelding "400"

Sorry, ik weet het gewoon niet
 
Bijgaand twee documenten, open ze beide, klik op de knoppen en bekijk de macro's.
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan