Lege cellen niet plakken

[Gijsbert1960]

Hallo allemaal

In gekleurde kolommen vullen we alleen in als dat nodig is. Via een macro doen we printen en opslaan, alleen na kopieren plakt het ook de lege cellen wat niet de bedoeling is. De Macro is het volgende en SkipBlank:=True dus wat er fout is weet ik niet. Er is een voorbeeldbestand om te zien hoe het werkt en moet doen.

Bekijk bijlage weekrapport motoren.xlsm

Sub WrapMot()
    
    With Sheets("Weekrapport motoren")
    .Unprotect Password:=""
    .PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Range("I6:K10").Select
    Selection.Copy
    Range("F6:H10").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=True, Transpose:=False
    Range("E27:G34").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AD27:AF34").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=True, Transpose:=False
    Range("Z6:AA10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W6:X10").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=True, Transpose:=False
    Range("S28:U31").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AI28:AK31").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=True, Transpose:=False
    Range("I6:K6").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("I8:K10").Select
    Selection.ClearContents
    Range("Y6:AA10").Select
    Selection.ClearContents
    Range("D13:U24").Select
    Selection.ClearContents
    Range("E27:G34").Select
    Selection.ClearContents
    Range("S28:U31").Select
    Selection.ClearContents
    Range("Y27:AB32").Select
    Selection.ClearContents
    Range("I6:K6").Select
    

End With
Sheets("Weekrapport motoren").Protect Password:=""
End Sub

M vr gr
Gijs

 

[VenA]

Haal alle selects uit de code en gebruik geen samengevoegde cellen.

 

[gast0660]

Zoals Vena al aangaf gebruik geen samengevoegde cellen, daar komen vroeg of laat vodden van want VBA en samengevoegde cellen zijn geen vrienden.
Test deze (code onder uw knop PRINTEN,de module is overbodig.)

Unprotect "ik"
On Error Resume Next
 PrintOut Copies:=1
    Range("I6:K10").SpecialCells(xlCellTypeConstants).Copy Destination:=Range("F6")
    Range("E27:G34").SpecialCells(xlCellTypeConstants).Copy Destination:=Range("AD27")
    Range("Z6:AA10").SpecialCells(xlCellTypeConstants).Copy Destination:=Range("W6")
    Range("S28:U31").SpecialCells(xlCellTypeConstants).Copy Destination:=Range("AI28")
    Range("I8:K10,Y6:AA10,D13:U24,E27:G34,S28:U31,Y27:AB32,I6:K6").ClearContents
Protect "ik"

 

[Gijsbert1960]

Hallo VenA en gast0660

Ik heb het veranderd door de cellen die gekopieerd en geplakt moeten worden enkele cellen van te maken veel werk geweest om dan ook zelfde uiterlijk te houden maar gelukt. Nu werkt de code die ik had wel dus opgelost. Bedankt voor de tip dat samengevoegde cellen niet werkt.

M vr gr
Gijs

 

[VenA]

Ik ben eigenlijk wel benieuwd naar het eindresultaat. Waarom gebruik je geen normale datums in het bestand? Zelfs met samengevoegde cellen is het werkend te krijgen.

Sub VenA()
  With Sheets("Weekrapport motoren")
    .Range("F6:F10") = .Range("I6:I10").Value
    .Range("W6:W10") = .Range("Z6:Z10").Value
    .Range("AI28:AI31") = .Range("S28:S31").Value
    .Range("AD27:AD34") = .Range("E27:E34").Value
    .Range("I6:I10,Y6:AA10,D13:U24,E7:E34,S28:S31,Y27:AB32").SpecialCells(2).ClearContents
  End With
End Sub