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