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