• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Klantenbalans schikken in excel

Status
Niet open voor verdere reacties.

Marky76

Gebruiker
Lid geworden
26 okt 2002
Berichten
424
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.

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
 

Bijlagen

Hallo Mark,

HTML:
Sub Blad_Sorteren() 'Deze gaat van start en neemt "Naar14Kolommen" mee
    Dim x As Long, n As Long, y As Long
    Application.ScreenUpdating = False
    x = 24
    For n = 2 To 14
        Range(Cells(1, n), Cells(24, n)).Cut Range("A" & x)
        x = x + 24
    Next n
    Range("A2:A192").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo, _
                          OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                          DataOption1:=xlSortNormal
    Range("B1").Select
    NaarVeertienKolommen
End Sub

Private Sub NaarVeertienKolommen()
    Dim col As Long, rngSplits As Range, i As Long, deel As Long
    col = 14
    Set rngSplits = Range("A2", Range("A" & Rows.Count).End(xlUp))
    deel = WorksheetFunction.RoundUp(rngSplits.Rows.Count / col, 0)
    
    For i = 2 To col
        rngSplits((i - 1) * deel + 1).Resize(deel).Cut Cells(1, i)
    Next
    ActiveSheet.Columns(1).Resize(, col).AutoFit
    Application.ScreenUpdating = True
    Range("A1").Select
End Sub

Gr Joop
 
Beste Joop,

Op dit gedeelte geeft de macro een compileerfout als ik hem wil uitvoeren.
Hij zegt dat een variabele niet is gedefinieerd.

Code:
DataOption1:=xlSortNormal


Mvg,
Mark
 
Laatst bewerkt:
Dan moeten jullie eens vergelijken welke Excel versies jullie gebruiken. Het kan zijn dat die optie nog niet beschikbaar was in de versie van Marky
 
Hallo Mark en Wigi,

Ik gebruik 2003 en bij mij werkt hij perfect.

Gr Joop
 
Beste,

Heb zoals in de link door Luc aangegeven het rode gedeelte van de code weggelaten, maar het werkt nog niet. Zie het resultaat in bijlage.

Groeten,
Mark
 

Bijlagen

Hallo Mark,

Deze dan.

HTML:
Sub KlantenbalansSchikken_1()
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Font.Bold = True
    Range("I65536").End(xlUp).Select
    ActiveCell.Offset(0, 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

Gr Joop
 
Justes,

Het word allemaal nu wel goed gesorteerd. Heb een stukje code toegevoegt, want
kolom D en E moeten gewist worden.
Maar hij maakt de totalen nog niet. Plus de ene keer is de balans 20 lijnen groot en soms 50 lijnen groot. Zoals de code nu is gaat de totalen geplaats worden in de balans ipv op het einde. Dat was mijn probleem eigenlijk.

Mvg,
Mark
 

Bijlagen

Hallo Mark,

Nog weer de code aangepast, we geven het niet op.
Het wissen van de kollomen D en E gaat wel op een andere manier zie code.
Probeer op Blad1

Gr Joop
 

Bijlagen

Beste,

Als je nu twee lijen toevoegt, dan werkt het niet meer, dan telt hij de eerste twee lijnen
niet meer op. De kolommen D & E moeten gedelete worden, niet gewist, heb me misschien slecht uitgedrukt.
Maar aan de formule van de som moet iets veranderen opdat die alles optelt, hoeveel lijnen er ook zijn, zodat ik de macro kan loslaten op eender welke klantenbalans, hoeveel lijnen er ook zijn, want dat varieert elke keer.

Groeten,
 
Hallo Mark,

Als het geen bezwaar is dat de totalen bovenaan komen is dit misschien de oplossing.
Je kunt nu tot 60 regels gaan, moeten er meer ingevoerd worden dan de code aanpassen.

Gr Joop
 

Bijlagen

Beste,

Dit is wat ik wil alleen de totalen staan nu boven, maar dan heb ik terug het werk om te plakken en te kopiëren en op de tijd dat ik daar aan zit heb ik op de somknop gedrukt en de formule naar rechts gekopieerd. En ik moet dat verschillende malen doen, daarom zou het gemakkelijker zijn om de totalen beneden te hebben + ik moet een lijn invoegen opdat daar de totalen kunnen komen.
Hij doet het perfect, maar met deze macro moet ik nog manueel handelingen doen.
Heb gisteren ook nog zitten surfen, maar nog niets gevonden.

Groeten,
Mark
 
Beste,

Dit is wat ik wil alleen de totalen staan nu boven, maar dan heb ik terug het werk om te plakken en te kopiëren en op de tijd dat ik daar aan zit heb ik op de somknop gedrukt en de formule naar rechts gekopieerd. En ik moet dat verschillende malen doen, daarom zou het gemakkelijker zijn om de totalen beneden te hebben + ik moet een lijn invoegen opdat daar de totalen kunnen komen.
Hij doet het perfect, maar met deze macro moet ik nog manueel handelingen doen.
Heb gisteren ook nog zitten surfen, maar nog niets gevonden.

Groeten,
Mark
Beste Mark,

Er wordt aan gewerkt, nog even geduld, heb je van alle kollomen de totalen nodig J t/m N

Gr Joop
 
Hallo Mark,

Deze zal aan al je eisen voldoen denk ik, je kunt invoeren op het blad Invoer zoveel je wilt en uitprinten,
Als het blad invoer ook gewist moet worden of andere wensen zijnlaat het weten.
Op het blad invoer op de knop klikken, op het blad sorteren klikken, 2x gaat niet en printen.

Gr Joop
 

Bijlagen

Justes,
Dat is knap gemaakt, maar als ik het excel bestand in csv download van op de server,
dan ziet het eruit zoals ik het in bijlage in het eerste tabblad heb gekopieerd en als ik
dan de macro erop loslaat geeft hij nog net niet het gewenste resultaat.
Je moet eens even kijken, je zal zien wat ik bedoel.
Als ik het dowload heb je nog die twee lege kolommen die gewist moeten worden.

Een knop wissen zou ook leuk zijn als je dat kan maken, dat hij alles wist ongeacht het aantal lijnen.

Groeten,
Mark.
 

Bijlagen

Justes,
Net getest, maar nu maakt die geen totalen meer.

Groeten,
Mark
 
Sorteren printen en leegmaken

Hallo Mark.

Nog makkelijker, nu alles onder een knop, zodra je op de printknop klik wordt er gesorteerd uitgeprint en het blad leeggemaakt.
Makkelijker kan ik het maken.

Gr Joop
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan