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

kopieren data op netwerklocatie

Status
Niet open voor verdere reacties.

wim1985

Gebruiker
Lid geworden
1 aug 2008
Berichten
94
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
 
Laatst bewerkt:
Dan zal je eerst via code dat bestand moeten openen, anders krijg je die gegevens er niet in. Zie op het forum, die code komt vaak voorbij.

Wigi
 
Nog makkelijker, moet je er enkel naar verwijzen met bvb. een variabele gedeclareerd als Workbook.
 
Ik begrijp niet wat je bedoeld.

Het moet hierheen
"\\Dirkjan\shareddocs\urenregistratiesysteem\urenregistratie" en dan op sheet "orders"
 
urenregistratie (urenregistratie.xls) is trouwens het exelbestand en geen systeemmap
 
Zoiets misschien:

Code:
Sub f()

    Dim wbTarget As Workbook
    
    On Error Resume Next
    Set wbTarget = Workbooks("urenregistratie.xls")
    On Error GoTo 0
    
    If Not wbTarget = Nothing Then
    
        'code
    
    Else
    
        MsgBox "Bestand ""urenregistratie.xls"" kon niet gevonden worden.", vbCritical, "Fout"
    
    End If

End Sub

Wigi
 
Ik denk dat ik de vraag te moeilijk stel.

Ik wil data uit het workbook "werkorders" sheet "verwerkte orders" op de computer waar ik op werk, copieeren naar een andere computer "\\Dirkjan\shareddocs\urenregistratiesysteem\urenregistratie.xls" sheet "orders"

Kan dat?
 
Ik heb het antwoord gevonden door lang te stoeien met de recorder.

Bedankt
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan