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

Fout macro bij opslaan in andere werkmap

Status
Niet open voor verdere reacties.
peter59

peter59

Terugkerende gebruiker
Lid geworden
21 mei 2007
Berichten
1.711
Besturingssysteem
Windows 11
Office versie
Office versie 365
Hallo,

Bij het opslaan d.m.v. van een macro stopt deze bij het selecteren van Range("A4").
Er verschijnt dan de foutcode "Methode Select van klasse Range is mislukt"
Wat gaat hier fout of wat dient er aan de code gewijzigd te worden?

Dank alvast voor het meedenken.

Code: 
Sub CommandButton1_Click()
Range("A3:H89").Select
    Selection.Copy
    Workbooks.Open Filename:="E:\S&P nwe facturatie\04 S&P - Template 8736 S M S.xlsm"
    [COLOR="#FF0000"]Range("A4").Select[/COLOR]
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

Mvg
Peter
 
Hallo Edmoor

In eerste instantie ging het weer mis.
Maar je hebt mij de goede richting opgeduwd.
Aangezien de werkmap div tabbladen heeft was het tabblad in de range.select niet gedefinieerd.
Dus het e.e.a. aangepast met jouw hint.
Code: 
ActiveWorkbook.Worksheets("INPUT Presentie").Range("A4").Select


Dank hiervoor.

Mvg
Peter
 
Ok dan.
Ik had het bericht eigenlijk al weer verwijderd omdat het niet werkte.
Mooi dat het je toch in de goed richting heeft gezet :)
 
Laatst bewerkt:
De gegevens direct wegschrijven gaat over het algemeen wat sneller.

Code: 
Sub VenA()
  With Workbooks.Open("E:\S&P nwe facturatie\04 S&P - Template 8736 S M S.xlsm")
    .Sheets("INPUT Presentie").Range("A4").Resize(87, 8) = ThisWorkbook.ActiveSheet.Range("A3:H89").Value
    .Close -1
  End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan