Hoi mensen,
Ik wil graag via vba vanuit het bestand HOOFDMENU het bestand INVOER UREN openen en later sluiten
en in de tussentijd een gebied kopiëren vanuit HOOFDMENU naar INVOER UREN.
Geen probleem. Daar heb ik een code voor. Zie hieronder of in het bestandje.
Wat ik echter ook wil is dat het openen van dat bestand gebeurt aan de hand van de waarde in een bepaalde cel(len).
Deze cel bevindt zich op het tabblad Padnamen. In de betreffende code heb ik dus het volledige pad staan, maar ik wil
daarvoor eigenlijk de cel-inhoud hebben vanuit het tabblad Padnamen.
De bedoeling is dat ik later alleen de cel hoef aan te passen en niet verschillende macrocodes.
Heeft iemand hier een oplossing voor? Alvast bedankt!
Code:
Ik wil graag via vba vanuit het bestand HOOFDMENU het bestand INVOER UREN openen en later sluiten
en in de tussentijd een gebied kopiëren vanuit HOOFDMENU naar INVOER UREN.
Geen probleem. Daar heb ik een code voor. Zie hieronder of in het bestandje.
Wat ik echter ook wil is dat het openen van dat bestand gebeurt aan de hand van de waarde in een bepaalde cel(len).
Deze cel bevindt zich op het tabblad Padnamen. In de betreffende code heb ik dus het volledige pad staan, maar ik wil
daarvoor eigenlijk de cel-inhoud hebben vanuit het tabblad Padnamen.
De bedoeling is dat ik later alleen de cel hoef aan te passen en niet verschillende macrocodes.
Heeft iemand hier een oplossing voor? Alvast bedankt!
Code:
Code:
Sub macro1()
'
' Macro1 Macro
'
'
Dim wb As Workbook
Application.ScreenUpdating = False
On Error Resume Next
Set wb = Workbooks("INVOER UREN.xlsm")
On Error GoTo 0
If wb Is Nothing Then
Set wb = Workbooks.Open("C:\Documents\INVOER UREN.xlsm")
Else
End If
Workbooks("HOOFDMENU").Sheets("NIEUW").Activate
Workbooks("INVOER UREN").Sheets("INVOER UREN HOOFDMENU").Range("A1:G10") = Workbooks("HOOFDMENU").Sheets("NIEUW").Range("A1:G10").Value
Workbooks("INVOER UREN").Save
Workbooks("INVOER UREN").Close
End Sub