• 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.

code werkt wel met macro, niet met button

Status
Niet open voor verdere reacties.
B

bowlingman

Gebruiker
Lid geworden
17 okt 2007
Berichten
433
Hallo,
Met de volgende macro kopieer ik de inhoud van een sheet naar een sheet in ander bestand :
Code: 
Sub Macro2()
    Workbooks.Open Filename:= _
        "C:\Users\Armand\Documents\Bowling 2013-2014\Metropool Liga\Mario\Speeldagen.xlsx"
    Windows("Metropool 8 teams 35 wedstrijden.xlsm").Activate
    Range("A1:Q37").Select
    Selection.Copy
    Range("A1").Select
    Windows("Speeldagen.xlsx").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Windows("Metropool 8 teams 35 wedstrijden.xlsm").Activate
    Application.CutCopyMode = False
End Sub
Als ik nu dezelfde code onder een button zet als volgt
Code: 
Private Sub CommandButton1_Click()
    Workbooks.Open Filename:= _
        "C:\Users\Armand\Documents\Bowling 2013-2014\Metropool Liga\Mario\Speeldagen.xlsx"
    Windows("Metropool 8 teams 35 wedstrijden.xlsm").Activate
    Range("A1:Q37").Select
    Selection.Copy
    Range("A1").Select
    Windows("Speeldagen.xlsx").Activate
    [COLOR="#FF0000"][B]Range("A1").Select[/B][/COLOR]
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    'Windows("Metropool 8 teams 35 wedstrijden.xlsm").Activate
    Application.CutCopyMode = True
End Sub
Dan krijg ik op de het rode gedeelte in de code een foutmelding "Methode select van de klasse range is mislukt".
Waar doe ik ergens fout in de tweede code.
Heb ook al geprobeert om het rode gedeelte tussen "With - End With" te plaatsen.

Grtjs.
Armand
 
Armand,

1. Een Private Sub werkt anders dan een Sub
2. Probeer .Activate en .Select te vermijden (pas de code aan na gebruik van je macrorecorder)
3. Probeer dit eens
Code: 
Private Sub CommandButton1_Click()
    Range("A1:Q37").Copy
    Workbooks.Open "C:\Users\Armand\Documents\Bowling 2013-2014\Metropool Liga\Mario\Speeldagen.xlsx"
    ActiveWorkbook.Sheets("Blad1").Range("A1").PasteSpecial xlPasteValues
    Application.Goto Cells(1)
End Sub
 
Hey Spaarie,

Bedankt voor de snelle reactie.
Werkt perfect.

Grtjs.
Armand
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan