Boe Juniormester
10. juli 2020 - 15:01 Der er 2 kommentarer og
2 løsninger

Tvunget sideskift og en gentagelsessløjfe

Hej igen.

Jeg vil gerne have hjælp til at lave en makro der kan sætte et tvunget linjeskift ind og gøre det flere gange.
Eksempel:
i celle a1, b1, c1 står der tekt. Makroen skal sætte et tvunget sidskift ind FØR denne række.
Under række 1 er der nu en række linjer hvor a-b-c kolonnerne er tomme. Efter X-antal rækker kommer der igen tekst i cellerne A-B-C /fx i række 7) Også her skla makrone indsætte et tvunget sideskift lige før.
Det skal gentages et uendeligt antal gange indtil der ikke er flere reækker med tekst i cellerne a-b-c (fx række 850).
Resultatet skal være at når jeg trykker p print, så får jeg en side ud pr. "gruppe data" Tak fro hjælpen.
Jan K Ekspert
10. juli 2020 - 15:15 #1
Er der varienrende antal tomme rækker eller er det altid det samme antal. .
Boe Juniormester
10. juli 2020 - 15:43 #2
Det er et varierende antal tomme rækker
Jan K Ekspert
10. juli 2020 - 16:44 #3
Pørv denne

Sub IndsætSideskift()
    Application.ScreenUpdating = False
    Dim i As Long
    With ActiveSheet
        .UsedRange
        .ResetAllPageBreaks
        For i = 2 To .Cells.SpecialCells(xlCellTypeLastCell).Row
            If Cells(i, 1).Value <> "" And Cells(i, 1).Offset(-1, 0).Value = "" Then
                Cells(i, 1).Activate
                ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
            End If
        Next
    End With
    Application.ScreenUpdating = True
End Sub
Jan K Ekspert
10. juli 2020 - 16:46 #4
Når den starter i række 2 og ikke i række 1, er det fordi der ikke kan indsættes sideskift før række 1.
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Anne Marie Engtoft Larsen gør klar til at rejse til USA som Danmarks nye tech-ambassadør: "Jeg har glædet mig helt vildt"
Interview: Om få dage drager Anne Marie Engtoft Larsen til Silicon Valley, hvor hun indtager embedet som Danmarks nye tech-ambassadør. "Mit mandat bliver at at fokusere på, hvordan vi skaber handling," siger hun i sit første interview som Danmarks tech-ambassadør.
Computerworld
Ups!: Gammelt fjernsyn lagde internetforbindelsen ned i hel landsby i halvandet år
I halvandet år var en hel landsby i Wales plaget af elendig bredbåndsforbindelse, som begyndte hver dag klokken syv om morgenen. Teknikere kæmpede med at løse mysteriet, men lige meget hjalp det. Årsagen viste sig at være et brugt tv, som en af byens familier havde taget i brug.
CIO
Torben Fabrin og Arla måtte på få dage omstille hele deres produktion da coronaen ramte
Da coronaen ramte verden måtte mejerigiganten Arla på få dage omstille sin produktion. Samtidig voksede salget massivt til supermarkeder mens institutioner og restauranter gik næsten i stå. Hør hvordan Arla kom gennem krisen ved blandt andet være klar med realtime analytics.
Job & Karriere
På jagt efter et it-job i Jylland? Her er 10 stillinger fra Aabenraa til Aalborg, der ledige netop nu
Vi har fundet en række spændende stillinger til dig, der jagter et it-job. Her kan du vælge og vrage mellem ledige stillinger lige fra Aabenraa til Aalborg.
White paper
Sådan opbevarer du effektivt og sikkert dine data – også med hybrid cloud
Cloud er her der og alle vegne. Men mange organisationer foretrækker en mere blandet tilgang, hvor dele af virksomhedens workload og it-miljøer sendes i clouden, mens andre dele placeres i andre og ofte lokale datacentre. Det stiller ofte mange forskelligartede krav til behovet for lokal storage. Men med IBM FlashSystem kan du konsolidere dit storage-behov og reducere kompleksiteten. Samtidig er FlashSystem all-flash og hybrid-løsninger bygget på et standardiseret sæt af værktøjer og APIs, som giver dig adgang til enterprise-løsninger uanset størrelsen på din organisation. I dette whitepaper fra Atea og IBM kan du læse om IBMs storeløsninger og de yderligere fordele som du kan opnå med dem.