Beste specialisten

Waarom doet (mijn opgenomen) macro het niet?
Vanuit het geopende bestand "uno" met sneltoets S: De macro selecteert de cellen A1 en A2 van werkblad "samen". opent vervolgens bestand "alles", gaat daar naar de eerste lege cel in kolom A en moet daarin de gegevens plakken, het bestand alles opslaan en sluiten... Of zou dit moeten doen...

Sub Macro2()
'
' Macro2 Macro
'
' Sneltoets: Ctrl+Shift+A
'
    Sheets("samen").Select
    Range("A1:B1").Select
    Selection.Copy
    Workbooks.Open Filename:="C:\Users\Sammy\Documents\alles.xlsx"
   
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

Zoiets?
Sub dotch()
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Users\Sammy\Documents\alles.xlsx"
Set doel = Workbooks("alles.xlsx").Worksheets("Blad1")
LRDoel = doel.Cells(doel.Rows.Count, "A").End(xlUp).Offset(1).Row
    Workbooks("uno.xlsm").Worksheets("samen").Range("A1:B1").Copy _
    Workbooks("alles.xlsx").Worksheets("Blad1").Range("A" & LRDoel)
Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub


@ Danny,
Vermijdt het gebruik van Select,het is zelden nodig en het vertraagt je code.
DezeSheets("samen").Range("A1:B1").Copydoet net hetzelfde als
Sheets("samen").Select
    Range("A1:B1").Select
    Selection.Copy

Hallo pitufo,

De code van Sammy werkt niet. De sneltoetscombinatie heeft er niets mee te maken, want ook de macro handmatig uitvoeren in de Macro-editor geeft verschillende foutmeldingen. Ik denk niet dat de vraag van Sammy beantwoorden, ook gelijk zou zijn aan Sammy helpen. Code meegeven die wel werkt leek mij voldoende. 
Zo dachten de meeste helpers er trouwens over  .

Groeten,

Theo

SoftAid              

hallo pitufo,

Zelf heb ik de code van Sammy zelfs niet geprobeerd, ze gewoon lezen volstaat om te zien dat ze moet werken...

Ze "moet" wel, maar ze doet het toch niet, hoor..... 

Op welke regels gaat die bij jou dan fout ?

Op mijn Excel 2007:

ActiveCell.Offset(1, 0).Range("A1").Select
geeft: Fout 1004 tijdens uitvoering: Door de toepassing of door het object gedefinieerde fout.

Ik had nog een andere foutmelding, maar dat is als je de macro uitvoert terwijl werkboek alles.xlsx al geopend is.
Dat kan mogelijk nog opgevangen worden....

SoftAid              

Hoi,
Zopas terug even tijd gevonden om een ietsje verder te kijken...

Wat blijkt ? Vooreerst dat er met de oorspronkelijke code van Sammy niets mis was, want zowel deze code als alle hier geboden alternatieve oplossingen geven hetzelfde resultaat, namelijk het werkt wél via de vba-editor en níet via de sneltoets 

Als er geen ander bestand bij betrokken is OF als het doelbestand al geopend is en dan
"Workbooks.Open Filename:="C:\Users\Sammy\Documents\alles.xlsx"
wordt vervangen door bv.
"Workbooks("alles.xlsx").Activate"
dan werkt het ook met de sneltoets.

Het heeft er dus alle schijn van dat "Workbooks.Open" in combinatie met een sneltoets de boosdoener is 
Voor de joke heb ik ook nog vlug eens de macro gekoppeld aan de werkbalk "snelle toegang" en dat werkt ook goed.

Groeten,
pitufo

Hehe, dat is nu al de tweede maal dat ik op mezelf moet reageren 

Je sterkste concurrent..... 

Vooreerst dat er met de oorspronkelijke code van Sammy niets mis was, want zowel deze code als alle hier geboden alternatieve oplossingen geven hetzelfde resultaat, namelijk het werkt wél via de vba-editor

Ik had het bijlage-bestand van Sammy niet gezien, omdat hij de code in zijn bericht plaatste. In "Recente topics" heb ik zijn code gekopieerd en geplakt in een nieuw werkboek. En een map alles.xlsx aangemaakt onder C:\....\...
En toen werkte de Macro, gestart vanuit de editor NIET.
Nu download en open ik uno.xlsm van Sammy, en deze werkt hier wel, ondanks dat ik geen verschil ZIE in de beide codes.
Met die sneltoetsen heb ik mij niet bezig gehouden, daarom ook dat ik schreef dat die niet de boosdoener was dat de code bij Sammy niet werkte.
Ik vatte de vraag van Sammy op alsof de macro niet werkte (wat hij bij mij ook niet deed), dus niet dat de uitvoering via sneltoets problemen gaf. Als Sammy had geschreven: De macro werkt via de editor, maar niet via de sneltoetsen, dan had ik het anders begrepen.

SoftAid              


 

Beste allen

Het ligt dus echt wel aan die sneltoets... Ongelofelijk!!!
Ik maakte deze oefening voor mijn cursisten van Excel-uitbreiding in het volwassenenonderwijs om hen te tonen dat ze puur met de macrorecorder zonder enige kennis van VBA ook zaken kunnen automatiseren... Eerste keer dat die sneltoets niet werkt!!! Ik had geen antwoord...
En om hen ook warm te maken voor de cursus Programmeren met VBA in Excel (niet mijn specialiteit...).

PS Traditioneel laat ik hen in de laatste les ook kennismaken met dit FORMIDABELE forum (niet eerder of mijn moeilijkste opdrachten worden door jullie opgelost    )

Hartelijk dank
Sammy