Het wel kopieren van verborgen cellen

[Martijnblaauw]

Goedemorgen allen,

Mijn excel bestand kopieerde eerst wel alle verborgen kolommen en nu niet meer.
Hoe kan ik dit oplossen. Ik kopieer het met een VBA en ik wil dat hij dus wel de verborgen kolommen kopieert. Kan iemand mij helpen?
Er staat vast een 'vinkje' verkeerd.

Alvast bedankt.

Met vriendelijke groet,
Martijn Blaauw


Sheets("Filter").Select
Range("C12W61").Select
Selection.Copy

Sheets("Selectie").Select
Range("B4V61").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[Cobbe]

Sheets("Filter").Range("C12:W61").Copy 
Sheets("Selectie").Range("B4:V61").PasteSpecial Paste:=xlPasteValues

Zal wel genoeg zijn.

 

[Martijnblaauw]

Beste Cobbe,

Ik krijg nu een foutmelding als ik de marco uitvoer...


Ben benieuwd.

 

[Martijnblaauw]

Sheets("Selectie").Range("B4V53").ClearContents
Sheets("Filter").Range("C12W61").Copy
Sheets("Selectie").Range("B4V61").PasteSpecial Paste:=xlPasteValues

Zo krijg ik geen foutmleding

 

[Martijnblaauw]

Smile is een "" : en een D

 

[Martijnblaauw]

De Marco blijft verborgen rijen overslaan. Staan mijn algemene instellingen verkeerd of hoe kan ik dit forceren?

 

[Cobbe]

Sheets("Filter").Range("C12[COLOR="#FF0000"]:[/COLOR]W61").Copy 
Sheets("Selectie").Range("B4[COLOR="#FF0000"][/COLOR][COLOR="#FF0000"]:[/COLOR]V61").PasteSpecial Paste:=xlPasteValues

De dubbele punten waren hier blijven liggen.

 

[Martijnblaauw]

Haha, geen probleem. Heeft u nog voor mij een oplossing voor het niet kopiëren van de verborgen kolommen?
Hoe kan ik dit instellen?

 

[Cobbe]

Ik kan dat niet naspelen, hier worden de verborgen cellen/rijen gewoon gecopiëerd.

Is uw bronblad misschien beveiligd?

 

[Martijnblaauw]

Hoe kan ik dat controleren?

 

[Cobbe]

Wat gebeurt er als je de verborgen kolommen/cellen in je bronbestand zichtbaar maakt vòòr het kopiëren?

Als je in je bronbestand in het lint kiets voor:

Start - Conroleren - beveiligen

daar zie je dat wel of niet beveiligd.

 

[Martijnblaauw]

Als ze dan zichtbaar zijn kopiëren ze wel mee.... Helpt dat?

 

[Martijnblaauw]

Als mijn filter aanstaat kopieert die de verborgen cellen niet. Als het filter uit staat kopieert die wel alles. Dat is vreemd.
Helpt dit?

 

[Cobbe]

Alle info bij mondjesmaat ?

Waarom niet direct een bestandje met dummy-gegevens, waarin dit zich voordoet?

Sub cobbe()
Application.ScreenUpdating = False
 ActiveSheet.Range("$C$8:$L$19").AutoFilter Field:=1
  Sheets("Blad4").Range("C8:L19").Copy
   Sheets("Blad4").Range("N8").PasteSpecial Paste:=xlPasteValues
    ActiveSheet.Range("$C$8:$L$19").AutoFilter Field:=1, Criteria1:="joop"
Application.ScreenUpdating = True
End Sub

Die "joop" kan je vervangen door een celwaarde.

 

[Martijnblaauw]

Bekijk bijlage Oefen.xls

Dag Cobbe,

Dat heb ik niet bewust gedaan, mijn excuus.

Ik ben nu nog op zoek naar een manier om een dynamisch printbereik te krijgen. Ik had de onderstaande VBA hier op het forum gevonden. Ik zou willen dat de VBA kijkt waar de laatste waarde in colom C staat en dan deze pagina's nog print.
Zie het voorbeeld bestand, boven aan. Dus hier hoeft het bestand niet meer te printen vanaf pagina 2.

Ik ben benieuwd.


Sheets("Selectie").Select
Dim r As Range 'Het afdrukbereik
Dim Lr As Long 'Laatst rij van het bereik

Lr = Cells(Rows.Count, "C").End(xlUp).Row
Set r = Range("A1:AD636" & Lr)

With ActiveSheet.PageSetup
.PrintArea = r.Address
.PrintTitleRows = "$1:$1"
.PrintQuality = 600
.FitToPagesWide = 1
.FitToPagesTall = 4
.PrintErrors = xlPrintErrorsDisplayed
End With

End Sub