hoe kan ik de opmaak rijhoogte overnemen?

[markwat]

De rijhoogtes maakt hij allemaal gelijk terwijl ik bv de lichtblauwe juist dun wil houden. dus eigenlijk alle rijhoogtes zoals ze zijn overnemen.

Sub comprimerenrapportage()

Application.ScreenUpdating = False

Dim rapportage As Range
Dim bereik As Range
Set bereik = Worksheets("Gecomprimeerd").Range("B4:B14")

Set rapportage = Worksheets("Rapportage").Range("A1:G153")

Sheets("Gecomprimeerd").Activate
Columns("A:F").Select
Range("F1").Activate
Selection.ClearContents
With Selection.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A1").Select

Worksheets("Rapportage").Activate
ActiveSheet.Range("$A$1:$G$153").AutoFilter Field:=7, Criteria1:="Ja"
rapportage.Select
Selection.Copy
Sheets("Gecomprimeerd").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Worksheets("Rapportage").Activate
rapportage.Select
Selection.Copy
Sheets("Gecomprimeerd").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
Columns("A:F").EntireColumn.AutoFit

Sheets("Rapportage").Activate
ActiveSheet.Range("$A$1:$G$153").AutoFilter Field:=7

Application.ScreenUpdating = False
    Sheets("Gecomprimeerd").Select

End Sub

 

[emields]

Voorbeeld bestandje weer vergeten?

 

[JEC.]

Als je de rijen selecteert die je wil kopiëren, vervolgens op de kwast linksboven drukt(opmaak kopiëren/plakken) en daarna in de cel klikt waar je de opmaak wil laten starten, is het simpel opgelost.

 

[markwat]

ik moet een heel bestand uit elkaar slopen met verwijzingen om daar een bestandje van te maken.. dat gaat niet zomaar even lukken.
En JV, is dit niet iets te makkelijk gedacht?. het is in een macro opgenomen.

 

[JEC.]

Je moet Excel exact vertellen wat er moet gebeuren, maatwerk dus. Met een opgenomen macro ga je dat nooit goed voor elkaar krijgen.

 

[markwat]

Ik begrijp nu dat jullie geen afbeeldngen kunnen zien...
hierbij een stukje uit het bestand erin heb ik het probleem beschreven.

 

[Haije]

Ik begrijp nu dat jullie geen afbeeldingen kunnen zien...

We kunnen wel plaatjes zien, maar het is zo lastig te zien wat er niet goed gaat of anders kan of het probleem is...

 

[markwat]

de pagina moet gekopieerd worden en dat gaat perfect op 1 ding na, hij maakt alle rijhoogtes precies even hoog, en dat is het probleem.
de lichtblauwe moeten dun blijven en de okergele iets breder.

 

[emields]

Dqat kan je zo oplossen.

 

[markwat]

Beste Emields,

Werkt goed!
dank je wel