Goeiemiddag,
Ik heb onderstaande code, deze werkt goed om een eenvoudig bereik te kopieren naar een nieuwe worksheet, echter wil ik in de nieuwe worksheet graag gefilterde data
Ik heb nu range A13 tem S157 gekopieerd en geplakt naar een nieuwe worksheet, maar ik heb enkel een aantal kolommen nodig (die niet allemaal aaneensluitend zijn, en dan is er ook een filter op de laatste kolom waarbij de nulwaarden er uitgefilterd zijn).
(Ik heb kolommen A G I K M O Q S nodig, en op kolom S staat een filter waarbij de 0 waarden in deze kolom eruit gefilterd worden.
Waar (en hoe) moet ik dat ergens tussenvoegen ?
In het copy range gedeelte, of het paste gedeelte ?
alvast bedankt !
Ik heb onderstaande code, deze werkt goed om een eenvoudig bereik te kopieren naar een nieuwe worksheet, echter wil ik in de nieuwe worksheet graag gefilterde data
Ik heb nu range A13 tem S157 gekopieerd en geplakt naar een nieuwe worksheet, maar ik heb enkel een aantal kolommen nodig (die niet allemaal aaneensluitend zijn, en dan is er ook een filter op de laatste kolom waarbij de nulwaarden er uitgefilterd zijn).
(Ik heb kolommen A G I K M O Q S nodig, en op kolom S staat een filter waarbij de 0 waarden in deze kolom eruit gefilterd worden.
Waar (en hoe) moet ik dat ergens tussenvoegen ?
In het copy range gedeelte, of het paste gedeelte ?
Code:
Sub proposal()
Dim wbI As Workbook, wbO As Workbook
Dim wsI As Worksheet, wsO As Worksheet
'~~> Source/Input Workbook
Set wbI = ActiveWorkbook
'~~> Set the relevant sheet from where you want to copy
Set wsI = wbI.Sheets("Voorstel MTO")
'~~> 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" & _
Format(Date, " dd-mm-yyyy") & ".xlsx", FileFormat:=56
'~~> Copy the range
wsI.Range("A13:S157").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
alvast bedankt !