Hi,
De volgende macro gebruik ik om een selectie te kopiëren met verborgen kolommen (gekoppeld aan CTRL+C) het werkt op zich wel alleen wil ik dat hij allen werkt op de 2 tabbladen Test1 en Test2. en niet op andere.
mvg
Kasper
De volgende macro gebruik ik om een selectie te kopiëren met verborgen kolommen (gekoppeld aan CTRL+C) het werkt op zich wel alleen wil ik dat hij allen werkt op de 2 tabbladen Test1 en Test2. en niet op andere.
Code:
Sub Kopieren()
For Each aSheet In ActiveWorkbook.Sheets
If aSheet.Name = "Test1" Or aSheet.Name = "Test2" Then
aSheet.Activate
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
End If
Next
Selection.Copy
End Sub
mvg
Kasper