Heykes,
Ik ben een absoluut groentje als het op VBA aankomt...Ik hoop dat iemand me met het volgende kan helpen:
Ik zou een code willen die het volgende doet:
zoeken in kolom A naar een bepaalde waarde, alle rijen met deze waarde in kolom A selecteren en in een nieuwe workbook zetten. Daarna zou de code deze nieuwe workbook moeten opslaan met als benaming de waarde in kolom B.
En dit voor iedere verschillende waarde in mijn eerste tabel.
Ik heb een voorbeeld tabel in bijlage gezet (de echte tabel bevat meer dan 7000 rijen)
Alvast bedankt voor de hulp!
De code die ik momenteel heb, maar waar het dus enkel voor deze specifieke waarde werkt:
Sub Opnieuw2()
'
' Opnieuw2 Macro
'
ActiveSheet.Range("$A$1:$I$7055").AutoFilter Field:=1, Criteria1:= _
"CT-000002"
Rows("1:15").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$I$8"), , xlYes).Name = _
"Table1"
Range("Table1[#All]").Select
Columns("E:E").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\vanhasa\Desktop\Historiek Taken\Historiek Taken - Naam Voornaam.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
ActiveSheet.Range("$A$1:$I$7055").AutoFilter Field:=1
End Sub
Ik ben een absoluut groentje als het op VBA aankomt...Ik hoop dat iemand me met het volgende kan helpen:
Ik zou een code willen die het volgende doet:
zoeken in kolom A naar een bepaalde waarde, alle rijen met deze waarde in kolom A selecteren en in een nieuwe workbook zetten. Daarna zou de code deze nieuwe workbook moeten opslaan met als benaming de waarde in kolom B.
En dit voor iedere verschillende waarde in mijn eerste tabel.
Ik heb een voorbeeld tabel in bijlage gezet (de echte tabel bevat meer dan 7000 rijen)
Alvast bedankt voor de hulp!
De code die ik momenteel heb, maar waar het dus enkel voor deze specifieke waarde werkt:
Sub Opnieuw2()
'
' Opnieuw2 Macro
'
ActiveSheet.Range("$A$1:$I$7055").AutoFilter Field:=1, Criteria1:= _
"CT-000002"
Rows("1:15").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$I$8"), , xlYes).Name = _
"Table1"
Range("Table1[#All]").Select
Columns("E:E").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\vanhasa\Desktop\Historiek Taken\Historiek Taken - Naam Voornaam.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
ActiveSheet.Range("$A$1:$I$7055").AutoFilter Field:=1
End Sub
Bijlagen
Laatst bewerkt: