cel uit ander bestand in macro gebruiken

[jaggy1962]

Hallo,

Ik heb een bestand die ja.xls heet en deze staat in op mijn C schijf in de map Excel.
Nu heb ik een ander bestand in dezelfde map met de naam test.xls.
Als ik dit bestand open wil ik dat er een macro opstart die kijkt in bestand ja.xls, blad 1 met de naam ja, celA1.
Als in deze cel ja is ingevuld moet de cellen A1 tm A20 in het bestand test, blad1 gewist worden.
Wie weet hoe ik dit moet doen.

Mvrgr Jaggy

 

[Hoornvan]

jaggy1962,

Kijk hier bij post #7 voor de code om gegvens uit een gesloten bestand te halen.
Maak dan een macro voor je andere handeling.

 

[Roncancio]

Zet in ThisWorkbook van "Nee":

Private Sub Workbook_Open()
If ExecuteExcel4Macro("'C:\[ja.xls]Blad 1'!R1C1") = "ja" Then
    Worksheets("Blad1").Range("A1:A20").ClearContents
End If

End Sub

Met vriendelijke groet,


Roncancio

 

[jaggy1962]

Zet in ThisWorkbook van "Nee":

Private Sub Workbook_Open()
If ExecuteExcel4Macro("'C:\[ja.xls]Blad 1'!R1C1") = "ja" Then
    Worksheets("Blad1").Range("A1:A20").ClearContents
End If

End Sub

Met vriendelijke groet,


Roncancio

Beste Roncancio,

Bedankt dit werkt.
Maar kan het ook zonder het invullen van het dialoog venster.
Dus dat je nooit ja.xls hoeft te selecteren maar dat dit automatisch gaat.

Ps ben trouwens een beginneling.

Met vriendelijke groet,

Jaggy

 

[Warme bakkertje]

Private Sub Workbook_Open()
If ExecuteExcel4Macro("'C:\[COLOR="red"]Excel\[/COLOR][ja.xls][COLOR="red"]Blad 1[/COLOR]'!R1C1") = "ja" Then
    Worksheets("[COLOR="red"]Blad1[/COLOR]").Range("A1:A20").ClearContents
End If
End Sub

Controleer of het pad en de bladnamen correct zijn, dan krijg je toch geen dialoogvenster

 

[jaggy1962]

Private Sub Workbook_Open()
If ExecuteExcel4Macro("'C:\[COLOR="red"]Excel\[/COLOR][ja.xls][COLOR="red"]Blad 1[/COLOR]'!R1C1") = "ja" Then
    Worksheets("[COLOR="red"]Blad1[/COLOR]").Range("A1:A20").ClearContents
End If
End Sub

Controleer of het pad en de bladnamen correct zijn, dan krijg je toch geen dialoogvenster

Bedankt zat nog een foutje in nu werkt hij.
Maar ik heb nog een vraag.
Kan je deze Macro zo neer zetten dat niemand hem ziet en dus ook niet kan veranderen.

Met vriendelijke groet,

Jaggy

 

[Roncancio]

Bedankt zat nog een foutje in nu werkt hij.
Maar ik heb nog een vraag.
Kan je deze Macro zo neer zetten dat niemand hem ziet en dus ook niet kan veranderen.

Met vriendelijke groet,

Jaggy

Ja.
Je kunt in de Visual Basic Editor een wachtwoord geven aan het project zodat de code niet zonder meer zichtbaar wordt.
Dus:
- met rechtermuisknop het project selecteren in de Visual Basic Editor (waar de code staat)
- Kies voor: Eigenschappen voor VBAProject...
- Ga naar tabblad Beveiliging
- Vink Project Vergrendelen voor weergave aan.
- Geef eventueel een wachtwoord op.
- Klik op OK.

Met vriendelijke groet,


Roncancio

 

[jaggy1962]

Ja.
Je kunt in de Visual Basic Editor een wachtwoord geven aan het project zodat de code niet zonder meer zichtbaar wordt.
Dus:
- met rechtermuisknop het project selecteren in de Visual Basic Editor (waar de code staat)
- Kies voor: Eigenschappen voor VBAProject...
- Ga naar tabblad Beveiliging
- Vink Project Vergrendelen voor weergave aan.
- Geef eventueel een wachtwoord op.
- Klik op OK.

Met vriendelijke groet,


Roncancio

Werkt helemaal goed.
Ik wil iedereen bedanken en ik zal nog wel vaker vragen stellen.
Dit is een goed en snel forum.

Met vriendelijke groet,

Jaggy