Fjerne tomme celler fra udskrift

Du kan måske lave et filter og sortere de blanke celler fra inden du udskriver?

Nu ved jeg jo ikke helt, hvordan dit ark er opbygget, men jeg kigger gerne på det fd@win-consult.com

En løsning kunne være filter og sorter som janvogt foreslår, hvis det kan lade sig gøre, men hvis ikke så skal der måske makro til, som skjuler/viser linier alt efter om der er værdi\'er i cellerne - altså forskellig fra \"\". Hvis der skal en makro til, så vil det kræve, at jeg ser arket.

>> Alle, Jeg har arbejdet lidt med filter og tror desværre ikke det er vejen at gå. Problemet er at jeg gerne vil have måske 5-10 sider der er forberedt til at modtage data, dvs. at div formler og (betingende)formateringer er indsat. Hvis man f.eks. kun indtaster data på side 1 vil man således have et antal tomme sider. Jeg vil gerne undgå at disse bliver udskrevet, men jeg vil omvendt gerne have at de er synlige og klar til at modtage data.

>> flemmingdahl, jeg har skrevet en makro der indsætter formlerne efterhånden. Problemet er, at jeg gerne vil gøre det dynamisk hvilket betyder at det bliver tungt at arbejde med.

Jeg havde håbet at der fandtes er særligt tegn man kunne bruge i stedet for blanktegn således at sider der alene indeholdt disse ikke blev sideopdelt og medtaget i udskreften som standard.

Et sådan \"Excel-tegn\" findes vist ikke ..... :-(

Men man kunne vel få en makro til at skjule rækker med nulceller og så tælle sig frem inden den indsætter sideskift.

Denne makro laver skjulningsnummeret.

Sub SkjulBlankeRækker()
Dim rCell As Range
    \'Angiv først venstre kolonne der skal checkes samt rækkerne
    For Each rCell In Range(\"A1:A1000\")
        \'Checker om der er tal i 6 kolonner - tilføj evt. flere
        If rCell.Value = \"\" And rCell.Offset(0, 1).Value = \"\" And rCell.Offset(0, 2).Value = \"\" _
        And rCell.Offset(0, 3).Value = \"\" And rCell.Offset(0, 4).Value = \"\" _
        And rCell.Offset(0, 5).Value = \"\" And rCell.Offset(0, 6).Value = \"\" Then
            \'Der var ingen tal i rækken - Skjul
            rCell.EntireRow.Hidden = True
        Else
            \'Der var tal i rækken - Vis (også hvis den var skjult før)
            rCell.EntireRow.Hidden = False
        End If
    Next
End Sub

Flemming

Den lille

_

skal være med i slutingen af rækken ovenover!!

>> Janvogt, Du har ret i det kan lade sig gøre. Problemet er at når jeg har skjult rækkerne med nulceller kan de ikke bruges mere dvs. at løsningen ikke er god til dokumenter der ofte redigeres.

Man kunne selvfølgelig indsætte en \"udskriftsknap\". På den måde ville man kunne arbejde med dokumentet og når man var klar til at udskrive kunne en makro skjule nulrækkerne, udføre udskriften og vise rækkerne igen så man er klar til at arbejde videre...... Hmmm det var måske egentligt ikke så tosset....

Under alle omstændigheder så vil jeg helst have en formatering, typografi eller et formel-nul-resultat der medføre at en formel ikke medfører sideskift og udskrift før formelen viser noget fornuftigt.

V.H
KOV

>> Flemmingdhal, jeg havde skrevet svaret til janvogt inden jeg så dit indlæg -sorry.

Som jeg skriver, kan jeg godt se muligheder i den løsning du præsenterer -jeg tror jeg arbejder lidt videre med det.

Tak for indlæget
KOV

>> Flemmingdahl, Jeg har bygget en makro der kan løse mit problem ud fra dit eksempel. Der er dog en lille detajle: Den køre ufatteligt langsomt. Jeg sysntes gernerelt at VB scripts har en ret dårlig afviklingshastighed -er der noget jeg har glemt f.eks. at disable screen-update eller noget??

Da det oprindelige spørgsmål ikke er fuldt besvaret lader jeg spørgsmålet stå åbent et par dage endnu -det kan være at nogen har en god ide...

Tak for hjælpen
KOV

Hvad mangler for fuld løsning af dit spørgsmål ?

Hvis du kopier din makro herind, så kan jeg måske se, hvorfor det kører langsomt, og komme med et par tips/ændringsforslag til hastighedsforøgelse.

Det er måske udskriftsproblematikken ?!

Hvis ikke du har indsat sideskift, og lader Excel styre det, så skulle det give sig selv, når nul-linier skjules!

>>Flemmingdahl, OK mit problem er løst, men jeg ville nu gerne høre om et tegn eller en formatiering der har samme effekt som at skjule rækkerne...

Mit script ser således ud:

Sub SkjulBlankeRækker()
    Dim rCell As Excel.Range
    For Each rCell In Worksheets(\"Partlist\").Range(\"A1:A500\")
        If rCell.Value = \"\" And IsEmpty(rCell.Offset(0, 1)) And IsEmpty(rCell.Offset(0, 2)) _
        And IsEmpty(rCell.Offset(0, 3)) And IsEmpty(rCell.Offset(0, 4)) And IsEmpty(rCell.Offset(0, 5)) _
        And IsEmpty(rCell.Offset(0, 6)) And IsEmpty(rCell.Offset(0, 7)) And IsEmpty(rCell.Offset(0, 8)) Then
            rCell.EntireRow.Hidden = True
        Else
            rCell.EntireRow.Hidden = False
        End If
    Next
End Sub

Som du kan se er det en let modificeret version af dit eksempel. Det skal siges at scriptet ligger i kodemodulet for et andet ark end det der arbejdes på og at scriptet kaldes med tryk på en knap (tekstbox)

KOV

Jeg kender ingen tegn/formatering, som kan skjule det faktum, at der står en formel i en celle - eller det faktum at udskriften tager enten det angivne udskriftsområde eller alle celle med indhold

>> Flemmingdahl, Nej det kan åbentbart ikke lade sig gøre. Det er sådan set også ligemeget, det havde bare været enklere (og bedre) end at kode sig ud af det...

Jeg har lukket spørgsmålet og tildelt dig pointene men jeg vil stadig gerne høre din vurdering vedr. hastigheden af scriptet.

KOV

Der er ikke så voldsomt meget at gøre hastighedsmæssigt. Jeg bruger normalt ikke IsEmpty funktionen, men hvis makro\'en virker, så må IsEmpty jo validere på værdien i cellen og ikke på formler.
Hvordan du starter makro\'en samt placering i workbook\'en har ingen betydning for hastigheden.

Makro\'en er opbygget på Range, hvilket er hurtigere end select. Det hurtigste er funktion CELLS, og den kunne nok omlægges til cells!

Ja..Joo.. Men er der noget videre at hente ??

Jeg kunne måske snarre mistænke IsEmpty for at sløve tingende ned.

Alt er jo selvfølgelig relativt, men jeg mener at 60 sec for at løbe 500 celler igennem på en 1GHz maskiner er lidt rigeligt..

Prøv om disse to forbedre - ændre måske IsEmpty til .Value = \"\"
De er IKKE testet.

Sub SkjulBlankeRækker()
    Dim rCell As Excel.Range
    For Each rCell In Worksheets(\"Partlist\").Range(\"A1:A500\")
        If Cells(rCell.Row, rCell.Column).Value = \"\" _
        And IsEmpty(Cells(rCell.Row, rCell.Column + 1)) _
        And IsEmpty(Cells(rCell.Row, rCell.Column + 2)) _
        And IsEmpty(Cells(rCell.Row, rCell.Column + 3)) _
        And IsEmpty(Cells(rCell.Row, rCell.Column + 4)) _
        And IsEmpty(Cells(rCell.Row, rCell.Column + 5)) _
        And IsEmpty(Cells(rCell.Row, rCell.Column + 6)) _
        And IsEmpty(Cells(rCell.Row, rCell.Column + 7)) _
        And IsEmpty(Cells(rCell.Row, rCell.Column + 8)) Then
            Cells(rCell.Row, rCell.Column).EntireRow.Hidden = True
        Else
            Cells(rCell.Row, rCell.Column).EntireRow.Hidden = False
        End If
    Next
End Sub

Sub SkjulBlankeRækker()
    Dim iX As Integer          \'Rækker
    Dim iC As Integer: iC = 1  \'1 = kolonne A
    For iX = 1 To 500          \'Række 1-500
        If Cells(iX, iC).Value = \"\" _
        And IsEmpty(Cells(iX, iC + 1)) _
        And IsEmpty(Cells(iX, iC + 2)) _
        And IsEmpty(Cells(iX, iC + 3)) _
        And IsEmpty(Cells(iX, iC + 4)) _
        And IsEmpty(Cells(iX, iC + 5)) _
        And IsEmpty(Cells(iX, iC + 6)) _
        And IsEmpty(Cells(iX, iC + 7)) _
        And IsEmpty(Cells(iX, iC + 8)) Then
            Cells(iX, iC).EntireRow.Hidden = True
        Else
            Cells(iX, iC).EntireRow.Hidden = False
        End If
    Next iX
End Sub

60 sec. om at løbe 500*9 = 4500 celler
Men lang tid alligevel.

>>> kov

Jeg blev lidt nysgerrig og jeg tror faktisk jeg har fundet \"det manglende Excel-tegn\".
Nu er spørgsmålet jo afsluttet, og dit problem forhåbentlig løst, men er du alligevel interesseret så send lige en mail.

Du kan jo skrive det her jan !

Som jeg skriver er spørgsmålet jo besvaret og afsluttet, så jeg fortæller bare, at der faktisk er en alternativ løsning ...., selvom alle incl. mig selv først afviste det.
Så skulle det have interesse for nogen kan man jo stille et nyt spørgsmål!

Hmmmmmmm...........!

>> Flemmingdahl, Vi er vist endt i den evige diskusion: Hvornår skal et spørgsmål afsluttes ? -Når spørgeren har fået løst sit problem eller når det oprindelige spørgsmål er besvaret. Guderne skal vide at det ikke altid er det samme....

>> Janvogt, hvis du har fundet en løsning ville det vel ikke være urimeligt at skrive det her hvor det hører til. Selvfølgelig skal seriøst arbejde og brugt tid belønnes, det er jo netop derfor jeg absolut mener at Flemmingdahl har fortjent de 30 point. Ud fra samme argument har jeg oprettet et nyt spørgsmål således at du for mulighed for at vise din løsning og hente pointene.

Vi ses i et nyt spørgsmål

V.H KOV

Udmærket, \"I\'ll be back\"!