lucsleegers1
Nieuwe gebruiker
- Lid geworden
- 18 nov 2011
- Berichten
- 2
Hallo,
Ik wil het volgende via VBA laten uitvoeren in excel.
ik heb 2 excel bestanden:
1 een soort registratie bestand
1 een soort van database
Met het registratiebestand leg ik gegevens vast in een excel "database". nu wil ik via een ID een regel kunnen opvragen en terug in het registratiebestand laten zetten (Range("C2:C27")).
hoe kan ik dit via VBA voor elkaar krijgen?
alvast bedankt.
Code voor het vastleggen:
Sheets("Registratieform").Select
Range("C2:C27").Select
Selection.Copy
Workbooks.Open Filename:= _
".......Database.xlsm"
Sheets("Data").Select
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Application.Run "'RUN Database.xlsm'!Formules"
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("Registratieform").Select
Ik wil het volgende via VBA laten uitvoeren in excel.
ik heb 2 excel bestanden:
1 een soort registratie bestand
1 een soort van database
Met het registratiebestand leg ik gegevens vast in een excel "database". nu wil ik via een ID een regel kunnen opvragen en terug in het registratiebestand laten zetten (Range("C2:C27")).
hoe kan ik dit via VBA voor elkaar krijgen?
alvast bedankt.
Code voor het vastleggen:
Sheets("Registratieform").Select
Range("C2:C27").Select
Selection.Copy
Workbooks.Open Filename:= _
".......Database.xlsm"
Sheets("Data").Select
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Application.Run "'RUN Database.xlsm'!Formules"
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("Registratieform").Select