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

Waarom werkt het niet

Status
Niet open voor verdere reacties.
B

Bertus78

Gebruiker
Lid geworden
17 aug 2017
Berichten
209
Beste Lezer,

Ik voer deze code in.
Code: 
'opslaan
    Sheets("Invoer GTM").Select
    Range("C10").Select
    Selection.Copy
'selecteer en plak
    Sheets("Voertuigen").Select
    Range("a65536").End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues

Sheet Invoer GTM cel C10 moet hij plakken in kolom A (onder de onderste rij).
Echter krijg ik een foutmelding
Fout 1004 tijdens uitvoering
Door de toepassing of door object fout.

Deze code heb ik eerder gebruikt, maar als ik heb plak in een nieuw document krijg ik deze foutmelding.
Waarom krijg ik deze foutmelding?
Bekijk bijlage Voertuigenbeheer vraag.xlsm
 
Dit doet exact hetzelfde zonder selecteren en kopieren:

Code: 
Private Sub Image1_Click()
'opslaan
'selecteer en plak
    With Worksheets("Voertuigen")
        .Range("A" & .Rows.Count).End(xlUp).Value = Worksheets("Invoer GTM").Range("C10").Value
    End With
End Sub
 
Code: 
Private Sub Image1_Click()
    Sheets("Invoer GTM").Range("C10").Copy
    Sheets("Voertuigen").Range("a65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub
 
Het is toch niet gelukt.

Als ik iets invoer dan gaat hij niet naar de onderste regel maar schrijft hij eroverheen.
 
Code: 
Private Sub Image1_Click()
'opslaan
'selecteer en plak
    With Worksheets("Voertuigen")
        .Range("A" & .Rows.Count).End(xlUp).[COLOR=#ff0000]Offset(1).[/COLOR]Value = Worksheets("Invoer GTM").Range("C10").Value
    End With
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan