Hallo allemaal.
Allereerst mijn excuses voor het feit hoe ik deze vraag ga stellen. Maar omdat ik qua macro's een echte "thuisbakker" ben, kan ik het gewoon niet anders omdat mijn kennis hierin zeer beperkt is. Ik gebruik onderstaand stuk al jaren, en dit werkt naar volle tevredenheid. Ik kwam er vanochtend echter achter dat het tabblad "invoer" geselecteerd moet zijn.
Werkt niet
ChDir "G:\OZ\Q-SYSTEEM\1e LIJN"
Workbooks.Open(Filename:="G:\OZ\Q-SYSTEEM\1e LIJN\NIR2.xls"). _
Sheets("invoer").Select
RunAutoMacros Which:=xlAutoOpen
Range("B" & CStr(Rows.Count)).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Nir2.xls").Activate
ActiveWorkbook.Save
ActiveWindow.Close
werkt wel
ChDir "G:\OZ\Q-SYSTEEM\1e LIJN"
Workbooks.Open(Filename:="G:\OZ\Q-SYSTEEM\1e LIJN\NIR2.xls"). _
RunAutoMacros Which:=xlAutoOpen
Range("B" & CStr(Rows.Count)).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Nir2.xls").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Mijn vraag is dus hoe kan ik in dit stukje het tabblad "invoer" kan laten selecteren zonder dat de macro vastloopt?
Ik hoop dat jullie mij hiermee kunnen helpen.
Groeten Henk
Allereerst mijn excuses voor het feit hoe ik deze vraag ga stellen. Maar omdat ik qua macro's een echte "thuisbakker" ben, kan ik het gewoon niet anders omdat mijn kennis hierin zeer beperkt is. Ik gebruik onderstaand stuk al jaren, en dit werkt naar volle tevredenheid. Ik kwam er vanochtend echter achter dat het tabblad "invoer" geselecteerd moet zijn.
Werkt niet
ChDir "G:\OZ\Q-SYSTEEM\1e LIJN"
Workbooks.Open(Filename:="G:\OZ\Q-SYSTEEM\1e LIJN\NIR2.xls"). _
Sheets("invoer").Select
RunAutoMacros Which:=xlAutoOpen
Range("B" & CStr(Rows.Count)).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Nir2.xls").Activate
ActiveWorkbook.Save
ActiveWindow.Close
werkt wel
ChDir "G:\OZ\Q-SYSTEEM\1e LIJN"
Workbooks.Open(Filename:="G:\OZ\Q-SYSTEEM\1e LIJN\NIR2.xls"). _
RunAutoMacros Which:=xlAutoOpen
Range("B" & CStr(Rows.Count)).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Nir2.xls").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Mijn vraag is dus hoe kan ik in dit stukje het tabblad "invoer" kan laten selecteren zonder dat de macro vastloopt?
Ik hoop dat jullie mij hiermee kunnen helpen.
Groeten Henk
Laatst bewerkt: