Simpel macrootje opgenomen maar doet het niet in VBA

[jansm]

Heren, ik heb een macro opgenomen en een sub () van gemaakt. Waarom doet deze macro het daarna niet meer? Run-time Error 9: subscript out of range bij de eerste regel

Sub Append_Data()

Windows("import_TEMP.csv").Activate
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Windows("P1_DATA_OVERZICHT.csv").Activate
Range("A2").Select
ActiveSheet.Paste

End Sub

Mvg, Jans

 

[Ginger]

Het werkboek import_TEMP.csv staat niet open?

 

[jansm]

ja hoor, beide bestanden zijn open!

 

[jansm]

..... beide .csv bestanden....

 

[jansm]

Mensen, opgenomen macro doet het gewoon, maar geplaatst tussen Sub () en End Sub krijg ik bovenstaande foutmelding. Wordt er gek van. Wat doe ik fout??

 

[HSV]

Het heeft er veel van dat de bestandsnaam verkeerd is geschreven.
Maar jij zou het toch wel moeten weten.

 

[jansm]

HSV, de opgenomen macro staat in 'n xlsm bestand onder Modules/module1. Daarna heb ik deze opgenomen macro (tekst) gekopieerd en geplakt naar ThisWorkbook. Herhaaldelijk stapsgewijs geprobeerd (F8). Hij doet het niet!!! Zie Knipsel.
Ik besef dat ik iets ontzettend stom doe maar weet het echt niet.

 

[snb]

Op berichten die alleen aan heren gericht zijn reageer ik niet.

 

[jansm]

Sorry Snb
Herstel: Dames en heren,....... zie hierboven #1

 

[jansm]

... recall #1

 

[HSV]

De code hoort in een standaard module en niet in Thisworkbook Jans.

 

[jansm]

OK, kan dus niet draaien op plaats waar hij staat. Kan je aangeven wat het verschil is tussen macro in Thisworkbook en module? Hoop niet dat jullie zo moe van mij worden dat jullie mij niet meer willen helpen. Dank HSV.

 

[HSV]

Heb je het al geprobeerd Jans?
Voor een uitleg kan je de Help van Vba raadplegen, die is daar beter in dan ik.

 

[jansm]

zo juist geprobeerd (macro in module geplaatst) en van daaruit kan ik hem draaien. Maar.... ik kan hem niet vanuit Thiswrokbook met "Call "aanroepen. Moet dat wel mogelijk zijn?

 

[HSV]

Zeker wel.

Private Sub Workbook_Open()
Append_Data
End Sub

 

[jansm]

Ok, geweldig. Dit soort dingen moet je weten hsv, maar ik ben een nul op het gebied van vba. Toch weer iets belangrijks geleerd. Hoop ook andere volgers van dit forum en dat is een belangrijk streven van jullie heb ik begrepen. Ik moet het verschil nog te weten zien te komen tussen Thisworkbook en Modules. Ga mijn best doen. Erg bedankt voor je hulp.

 

[jansm]

Ok, geweldig. Dit soort dingen moet je weten hsv, maar ik ben een nul op het gebied van vba. Toch weer iets belangrijks geleerd. Hoop ook andere volgers van dit forum en dat is een belangrijk streven van jullie heb ik begrepen. Ik moet het verschil nog te weten zien te komen tussen Thisworkbook en Modules. Ga mijn best doen. Erg bedankt voor je hulp.

 

[HSV]

Maakt niet uit Jans, al doende leert men.
Succes ermee.
Wil je de vraag nog als opgelost zetten?
Bvd.

Graag gedaan overigens.

 

[jansm]

doe ik. Maar zo kun je ook zien hoe belangrijk het is dat je duidelijk bent in de vraagstelling. Ik had in eerste instantie niets aangegeven over Thisworkbook en Module.

 

[HSV]

Is essentieel voor een goede oplossing. :thumb: