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

Gegeven opslaan in een ander bestand

Status
Niet open voor verdere reacties.

Bertus78

Gebruiker
Lid geworden
17 aug 2017
Berichten
209
Wie o Wie ziet wat ik fout doe.

gegeven in cel D4 wil ik opslaan in een ander bestand.
Het bestands naam staat in cel D15 (BV. A:\Programma voertuig\DNN27V2018.xls)
de sheets staat in cel D16 (Bv. Blad1)


Ik krijg nu een foutmelding dat het niet klopt.

Code:
ls = Workbooks("Voertuig.xlsm").Sheets("Blad1").Range("D4")
With Workbooks.Open: .Range ("D15")
.Sheets: .Range("D16").Cells(Rows.Count, 1).End(xlUp).Offset(1) = ls
.Save
.Close False
End With: Next

Zie voorbeeldBekijk bijlage Voertuig.xlsm
 
Code:
Private Sub ToggleButton1_Click()
If Application.CountA(Range("d4:d10")) < 7 Then
    MsgBox "Oeps, geen correcte gegevens ingevoerd"
 Else
    With Workbooks.Open(Range("D15"))
        .Sheets(ThisWorkbook.Sheets("Blad1").Range("D16").Value).Cells(Rows.Count, 1).End(xlUp).Offset(1) = ThisWorkbook.Sheets("Blad1").Range("D4")
        .Close True
    End With
 End If
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan