Goede morgen,
Ik wil graag een aantal gegevens uit een worksheet kopieren en plakken in een nieuwe workbook.
Ik heb een code gevonden op internet, echter wil die niet volledig werken, het lukt om nieuwe workbook te maken en opslaan, maar de gegevens worden niet gekopieerd, ziet iemand wat het probleem zou kunnen zijn ?
Ik heb geen voorbeeldfile, ik heb gewoon geprobeerd met een heel eenvoudige file, met enkele willekeurige gegevens ingevuld, en het kopieren lukt niet.
(ik moet eerst uitvissen hoe ik de gegevens kan kopieren, daarna moet ik dan nog met behulp van filters bepalen welke gegevens en welke kolommen ik wil kopieren, maar tot nu toe lukt zelfs een simpel bereik nog niet)
Alvast bedankt om me op de goede weg te zetten !
Hier is de code
Sub Sample()
Dim wbI As Workbook, wbO As Workbook
Dim wsI As Worksheet, wsO As Worksheet
'~~> Source/Input Workbook
Set wbI = ThisWorkbook
'~~> Set the relevant sheet from where you want to copy
Set wsI = wbI.Sheets(1)
'~~> Destination/Output Workbook
Set wbO = Workbooks.Add
With wbO
'~~> Set the relevant sheet to where you want to paste
Set wsO = wbO.Sheets("Sheet1")
'~~>. Save the file
wbO.SaveAs Filename:="V:\Supply Chain Team\proposal.xlsx", FileFormat:=56
'~~> Copy the range
wsI.Range("A1450").Copy
'~~> Paste it in say Cell A1. Change as applicable
wsO.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
End Sub
Ik wil graag een aantal gegevens uit een worksheet kopieren en plakken in een nieuwe workbook.
Ik heb een code gevonden op internet, echter wil die niet volledig werken, het lukt om nieuwe workbook te maken en opslaan, maar de gegevens worden niet gekopieerd, ziet iemand wat het probleem zou kunnen zijn ?
Ik heb geen voorbeeldfile, ik heb gewoon geprobeerd met een heel eenvoudige file, met enkele willekeurige gegevens ingevuld, en het kopieren lukt niet.
(ik moet eerst uitvissen hoe ik de gegevens kan kopieren, daarna moet ik dan nog met behulp van filters bepalen welke gegevens en welke kolommen ik wil kopieren, maar tot nu toe lukt zelfs een simpel bereik nog niet)
Alvast bedankt om me op de goede weg te zetten !
Hier is de code
Sub Sample()
Dim wbI As Workbook, wbO As Workbook
Dim wsI As Worksheet, wsO As Worksheet
'~~> Source/Input Workbook
Set wbI = ThisWorkbook
'~~> Set the relevant sheet from where you want to copy
Set wsI = wbI.Sheets(1)
'~~> Destination/Output Workbook
Set wbO = Workbooks.Add
With wbO
'~~> Set the relevant sheet to where you want to paste
Set wsO = wbO.Sheets("Sheet1")
'~~>. Save the file
wbO.SaveAs Filename:="V:\Supply Chain Team\proposal.xlsx", FileFormat:=56
'~~> Copy the range
wsI.Range("A1450").Copy
'~~> Paste it in say Cell A1. Change as applicable
wsO.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
End Sub