Ik moet data opslaan op een andere locatie. Hij wordt nu in het werkboek opgeslagen op blad "verwerkte orders".
Hij moet echter nu opgeslagen worden op "\\Dirkjan\shareddocs\urenregistratiesysteem\urenregistratie" en dan op blad "orders"
Gebruikte deel van de macro:
{Sheets("Verwerkte orders").Select
Rows("2:2").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
With Sheets("Verwerkte orders")
.Range("A2").Value = Sheets("Printblad").Range("C2").Value
.Range("B2").Value = Sheets("Printblad").Range("C5").Value
.Range("C2").Value = Sheets("Printblad").Range("C6").Value
.Range("D2").Value = Sheets("Printblad").Range("C10").Value
.Range("E2").Value = Sheets("Printblad").Range("C13").Value
.Range("F2").Value = Sheets("Printblad").Range("C14").Value
.Range("G2").Value = Sheets("Printblad").Range("C20").Value
.Range("H2").Value = Sheets("Printblad").Range("C8").Value
.Range("I2").Value = Sheets("Printblad").Range("C9").Value
End With}
Hoe schrijf ik hem hier nu heen?
Al vast bedankt
Hij moet echter nu opgeslagen worden op "\\Dirkjan\shareddocs\urenregistratiesysteem\urenregistratie" en dan op blad "orders"
Gebruikte deel van de macro:
{Sheets("Verwerkte orders").Select
Rows("2:2").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
With Sheets("Verwerkte orders")
.Range("A2").Value = Sheets("Printblad").Range("C2").Value
.Range("B2").Value = Sheets("Printblad").Range("C5").Value
.Range("C2").Value = Sheets("Printblad").Range("C6").Value
.Range("D2").Value = Sheets("Printblad").Range("C10").Value
.Range("E2").Value = Sheets("Printblad").Range("C13").Value
.Range("F2").Value = Sheets("Printblad").Range("C14").Value
.Range("G2").Value = Sheets("Printblad").Range("C20").Value
.Range("H2").Value = Sheets("Printblad").Range("C8").Value
.Range("I2").Value = Sheets("Printblad").Range("C9").Value
End With}
Hoe schrijf ik hem hier nu heen?
Al vast bedankt
Laatst bewerkt: