Beste,
Ik heb volgende code opgenomen. Maar de eerste rij zet hij niet meer in het vet.
Alsook had ik het probleem door op te nemen dat hij de totalen maakt en kopieert,
maar van de specifieke postie die ik had bij het opnemen. Bij een volgende klantenbalans zijn er bijvoorbeedl meer rijenen en maakt hij de totalen tussen de rijen door omdat ik bij het opnemen van de code een balans had die minder rijen telde.
dus heb ik er Range("I65536").End(xlUp).Select ActiveCell.Offset(1,0).select bijgezet,
maar dan heb ik nog een probleem om dit door te kopiëren van kolom I naar kolom N.
Wie kan me helpen?
Groeten,
Mark
Ik heb volgende code opgenomen. Maar de eerste rij zet hij niet meer in het vet.
Alsook had ik het probleem door op te nemen dat hij de totalen maakt en kopieert,
maar van de specifieke postie die ik had bij het opnemen. Bij een volgende klantenbalans zijn er bijvoorbeedl meer rijenen en maakt hij de totalen tussen de rijen door omdat ik bij het opnemen van de code een balans had die minder rijen telde.
dus heb ik er Range("I65536").End(xlUp).Select ActiveCell.Offset(1,0).select bijgezet,
maar dan heb ik nog een probleem om dit door te kopiëren van kolom I naar kolom N.
Code:
Sub KlantenbalansSchikken()
'
' KlantenbalansSchikken Macro
' De macro is opgenomen op 17/11/2007 door Georges Cloosterin.
'
'
Range(Selection, Selection.End(xlToRight)).Select
Selection.Font.Bold = True
Range("I65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-23]C:R[-1]C)"
Range("I25").Select
Selection.Copy
Range("I25:N25").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Cells.Select
Selection.Columns.AutoFit
Range("A2").Select
ActiveWindow.FreezePanes = True
End Sub
Wie kan me helpen?
Groeten,
Mark