Robert Smidt
Gebruiker
- Lid geworden
- 26 mei 2009
- Berichten
- 901
Beste Helpmij'ers,
Ik heb een vraag waarvan ik mijn twijfels heb of hiervoor een vba-code bestaat.
Mijn bedoeling is om een hele regel vanuit een bronbestand te kopiëren naar een doelbestand dat niet in hetzelfde pad staat, maar twee posities lager.
Als voorbeeld:
Het bron bestand staat in: C:\BAH\Jaarrekening\DJ posten\8 45581 Jansen B.V
en het Doelbestand staat in: C:\BAH\Jaarrekening\
Nu weet ik, dat ik ook het pad zoals hierboven vermeld staat, in de code kan zetten, echter komt het soms voor dat zowel het doel- als het bronbestand in andere posities staan van het pad. Het enige wat altijd gelijk is dat het bronbestand twee posities hoger staat dan het doelbestand.
In mijn huidige code (zie onder) moet ik altijd het doel- als het bronbestand in dezelfde map plaatsen.
Ik hoop dat iemand mij hier mee kan helpen, alvast heel erg bedankt.
Groet, Robert
Ik heb een vraag waarvan ik mijn twijfels heb of hiervoor een vba-code bestaat.
Mijn bedoeling is om een hele regel vanuit een bronbestand te kopiëren naar een doelbestand dat niet in hetzelfde pad staat, maar twee posities lager.
Als voorbeeld:
Het bron bestand staat in: C:\BAH\Jaarrekening\DJ posten\8 45581 Jansen B.V
en het Doelbestand staat in: C:\BAH\Jaarrekening\
Nu weet ik, dat ik ook het pad zoals hierboven vermeld staat, in de code kan zetten, echter komt het soms voor dat zowel het doel- als het bronbestand in andere posities staan van het pad. Het enige wat altijd gelijk is dat het bronbestand twee posities hoger staat dan het doelbestand.
In mijn huidige code (zie onder) moet ik altijd het doel- als het bronbestand in dezelfde map plaatsen.
Code:
'Het Werkvoorraad bestand openen, mocht deze al open staan, dan negeren.
Dim WB As Workbook
Application.ScreenUpdating = False
On Error Resume Next
Set WB = Workbooks("Werkvoorraad.xlsm")
On Error GoTo 0
If WB Is Nothing Then
[COLOR="#FF0000"]Set WB = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Werkvoorraad.xlsm")[/COLOR]
Else
WB.Activate
End If
Set c = Range("a1:a1000").Find(zoekwaarde)
If Not c Is Nothing Then
c.Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Else: MsgBox ("V O L G N U M M E R N I E T G E V O N D E N , de regel staat in het archief. Om toch te kunnen plakken dien je eerst het volgnummer in het Werkvoorraad bestand te plaatsen!")
End If
Ik hoop dat iemand mij hier mee kan helpen, alvast heel erg bedankt.
Groet, Robert