Goedendag,
Ik ben bezig met het maken van een overzicht bestand (met meerdere tabbladen) waarin excelbladen gekopieerd moeten worden in dit betreffende bestand.
Kort gezegd 2 bestanden waarin diverse tabbladen kopieerd moeten worden naar diverse tabbladen.
Met de code hieronder is het mij geluk 1 blad te kopieren en te plakken maar dit lukt nog niet met de overige bladen. Heeft iemand een idee? tevens moet ik nu importeren in het blad waar het moet gaan komen maar dit comdando wil ik eigenlijk geven vanuit het eerste blad.
Ik hoor graag of iemand mij kan helpen! Als iemand hiervoor het bestand nodig heeft hoor ik het natuurlijk ook graag!
Groet Ivo
Bekijk bijlage Overzicht financieleafsluiting.xlsm
Ik ben bezig met het maken van een overzicht bestand (met meerdere tabbladen) waarin excelbladen gekopieerd moeten worden in dit betreffende bestand.
Kort gezegd 2 bestanden waarin diverse tabbladen kopieerd moeten worden naar diverse tabbladen.
Met de code hieronder is het mij geluk 1 blad te kopieren en te plakken maar dit lukt nog niet met de overige bladen. Heeft iemand een idee? tevens moet ik nu importeren in het blad waar het moet gaan komen maar dit comdando wil ik eigenlijk geven vanuit het eerste blad.
HTML:
Sub CommandButton1_Click_Basis()
'Last cell in column
Dim WS As Worksheet
Dim LastCell As Range
Dim LastCellRowNumber As Long
Set WS = Worksheets("In- en uitkluisboekingen")
With WS
Set LastCell = .Cells(.Rows.Count, "C").End(xlUp)
LastCellRowNumber = LastCell.Row + 1
End With
Dim wb As Workbook, wb2 As Workbook
Dim vFile As Variant
'Set source workbook
Set wb = ActiveWorkbook
'Open the target workbook
vFile = Application.GetOpenFilename("Excel-files,*.xlsx", _
1, "Select One File To Open", , False)
'if the user didn't select a file, exit sub
If TypeName(vFile) = "Boolean" Then Exit Sub
Workbooks.Open vFile
'Set selectedworkbook
Set wb2 = ActiveWorkbook
'Select cells to copy
Dim LastRow As Integer
LastRow = Cells(Rows.Count, 2).End(xlUp).Row
wb2.Worksheets("In uit kluis boekingen TP.net").Range("B13:H" & LastRow).Select
Selection.Copy
'Go back to original workbook you want to paste into
wb.Activate
'Paste starting at the last empty row
wb.Worksheets("In- en uitkluisboekingen").Range("A" & LastCellRowNumber).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
'Close and save the workbook you copied from
wb2.Save
wb2.Close
End SubIk hoor graag of iemand mij kan helpen! Als iemand hiervoor het bestand nodig heeft hoor ik het natuurlijk ook graag!
Groet Ivo
Bekijk bijlage Overzicht financieleafsluiting.xlsm
Laatst bewerkt:
