Verborgen kolommen niet kopieren

[AatB]

Forum,

Ik heb een sheet welke ik gebruik om gegevens bij te houden.
Een bepaald aantal kolommen rapporteer ik aan diverse mensen.

Ik heb een macro gemaakt om de kolommen waarvan in de eerste rij een 1 staat te verbergen.

Nu wil ik een macro hebben waarbij ik alleen de zichtbare kolommen kan kopieren en plakken in een nieuwe sheet. Deze sheet wil ik dan later automatisch gaan mailen naar diverse personen.

Kunnen jullie mij op weg helpen...

Thanks,

Aat

Sub HideColumn()
Dim r As Range

With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With

For Each r In Rows(1).Cells
If r.Value = "x" Then
Columns(r.Column).Hidden = True
End If
If r.Column > r.Parent.Range("A1").SpecialCells(xlCellTypeLastCell).Column Then Exit For
Next

With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With

End Sub

Sub UnHideColumn()
Dim r As Range

With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With

For Each r In Rows(1).Cells
If r.Value = "x" Then
Columns(r.Column).Hidden = False
End If
If r.Column > r.Parent.Range("A1").SpecialCells(xlCellTypeLastCell).Column Then Exit For
Next

With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With

End Sub

 

[smits]

Met macro's werken kan ik niet
Ik kan wel beschrijven hoe het via het menu kan, misschien kun je dat zelf automatiseren.

Kies bewerken > ga naar > speciaal
selecteer alleen zichtbare cellen
kopieer deze en plak vervolgens

 

[AatB]

Met macro's werken kan ik niet
Ik kan wel beschrijven hoe het via het menu kan, misschien kun je dat zelf automatiseren.

Kies bewerken > ga naar > speciaal
selecteer alleen zichtbare cellen
kopieer deze en plak vervolgens

Beste Bob,

bedankt voor je oplossing, maar dat had ik al geprobeerd.
Ik heb al een aardige macro gemaakt die precies doet wat ik wil.

mvg,

Aat