• 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.

Filter

Status
Niet open voor verdere reacties.
Met de hand op het hartje...
Zover was ik ook, maar...

bij de code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A:B").Columns.EntireColumn.Hidden = True
End Sub

als je schrijft:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A:B").Columns.EntireColumn.Hidden = False
End Sub

dan is dit niet correct, want er staat:
Workbook_BeforePrint

Dus ik op zoek naar een andere syntax, maar vond niets werkbaars.
Ik probeerde natuurlijk
Workbook_AfterPrint

maar da's niet correct... wat rondgesnuffeld maar niks gevonden..

't is niet dat ik ni wil zelle!!! het KUNNEN da's het probleem
Sorry...
JP
 
Jean Paul,

En als je de code onder No Filter plaatst.

Het is maar een idee.
 
Werkt

maar dan zou je ook op de knop "No Filter" moeten drukken om de kolommen te kunnen zien... niet echt gebruiksvriendelijk toch?

Kan ik de cel M1 (met de filtering aan of uit) ook leeg maken voor er geprint wordt?

Zat deze morgen te denken (altijd gevaarlijk)... het rood kleuren van de score als de ze 3 is is wel handig ook om te zien op welke competenties de leerling in het verleden gefaald heeft...

kan je die filter-pauze nog inlassen? denk dat we er dan ver zijn (ook gevaarlijk om dat te denken)

die knop met "zet klas en trimester aan/uit" moet die er zo uit zien? kan die er niet uit zien zoals de andere?? (het oog wil ook wat)

Ik stuur een lichtjes aangepaste versie door... om je het gevoel te geven dat ik ook iets gedaan heb...;)

JP
 

Bijlagen

Laatst bewerkt:
ik kan nauwelijks wachten... van harte bedankt
Ik reken er dan ook op dat je me je prive-coordinaten eens doormailt...
Ik moet toch weten naar wie ik die prive-uitnodigingen voor het steakfeest moet doorsturen...
:D
 
Suggesties
gebruik
Code: 
Sub ClassAndPhaseShowHide()
  Cells(1, 3).resize(, 11).EntireColumn.Hidden = Not Cells(1, 3).EntireColumn.Hidden = False 
End Sub

ipv
Code: 
Sub ClassAndPhaseShowHide()
    If Cells(1, 3).EntireColumn.Hidden = False Then
        Range(Cells(1, 3), Cells(1, 11)).EntireColumn.Hidden = True
    Else
        Range(Cells(1, 3), Cells(1, 11)).EntireColumn.Hidden = False
    End If
End Sub

gebruik
Code: 
Rows(x).Hidden = True

ipv.

Code: 
Rows(x).EntireRow.Hidden = True

gebruik
Code: 
Sub PlaceBorderLines()
   With Cells(1, 14).Resize(4).Borders
        .LineStyle = 1
        .Weight = xlMedium
    End With
End Sub
ipv
Code: 
Sub PlaceBorderLines()
    For Regel = 1 To 4
        With Cells(Regel, 14)
            .Borders(xlEdgeLeft).LineStyle = 1
            .Borders(xlEdgeLeft).Weight = xlMedium
            .Borders(xlEdgeTop).LineStyle = 1
            .Borders(xlEdgeTop).Weight = xlMedium
            .Borders(xlEdgeBottom).LineStyle = 1
            .Borders(xlEdgeBottom).Weight = xlMedium
            .Borders(xlEdgeRight).LineStyle = 1
            .Borders(xlEdgeRight).Weight = xlMedium
        End With
    Next Regel
 End Sub
 
Laatst bewerkt:
@ snb,

Heel vriendelijk bedankt voor de aanpassingen.
Ik zal ze doorvoeren in het progje.

Nu heb ik al zoveel van je geleerd maar nooit te oud om bij te leren.

Select en Activate heb ik al afgeleerd nu het inkorten van de codes nog.

Super.
 
Niet vechten he mannen...

@snb... jij ast ook op een gratis invitatie voor ons steakfeest of hoe zit het...
Kan dat misschien wel regelen maar nu niet allemaal reageren ook he ;):D:confused:
Bedankt, ook jij
 
Heb er nog een voor je:

gebruik
Code: 
columns.hidden =false
ipv
Code: 
Cells.EntireRow.Hidden = False

PS.
Niet vechten he mannen...
Klik om te vergroten...
Hoezo... mannen ??
 
Jean Paul,

Vechten, amaai toch, wij zijn helpers en wij steken nooit elkaar de troef af.
Zelfs de helpers helpen elkaar.
Zie mijn reactie #9

Hierbij het document zoals het is zoals jij het mogelijk bedoeld hebt.

Wat is er op de valreep nog aangepast:
  • Alle knoppen zijn gelijk van vorm.
  • Alle teksten zijn in het Nederlands.
  • Als je op de linkse knop klikt blijven de knoppen staan en verschuiven niet mee.
  • Kolom toevoegen zorgt voor meenemen voorwaardelijke opmaak.
  • Kolom toevoegen dan worden de waardes 1 t/m 3 van kolom O gekopieerd naar kolom N.
  • Kolom toevoegen gaat nu sneller en zonder scherm geknipper.
  • Dankzij snb kortere en snellere code.
Testen maar weer, Jean Paul.

@ snb,

Ik krijg de code van verberg en activeren niet werkend.
Code: 
Sub ClassAndPhaseShowHide()
  Cells(1, 3).resize(, 11).EntireColumn.Hidden = Not Cells(1, 3).EntireColumn.Hidden = False 
End Sub
 

Bijlagen

Laatst bewerkt:
Even snel gekeken....

Sorry hoor, maar

de kleuren van de 'voorgaande cel' wordt niet meegenomen en dat was vroeger wel zo...
alle cijfers die je ingeeft zijn groen
als je naar print gaat wordt inderdaad kolom A en B verborgen maar keer je terug ben je ze 'kwijt'
de melding: gefilterd of filter uit staat er nog als je naar uitprint gaat
ik maakte een voorwaardelijke opmaak voor kolom M

nog efkes Super-man

en @snb... ja inderdaad ik zei wel mannen, maar weet ik veel... in elk geval, alle respect mensen, en dat meen ik echt wel..
De benadering van onze 'kinderen' kan hier alleen wel bij varen... en ze hebben het echt wel nodig, geloof me vrij...
Onze school is er een voor licht mentalen en kinderen met sociaal onaangepast gedrag, geen doetjes maar soms zo ontwapenend, zelfs nog steeds, na 30 jaar..
Ik wil niet melig zijn, maar toch... bedankt
en sorry als ik soms wat doordram, maar ik ben hier al een hele tijd mee aan het worstelen en nu, eindelijk zie ik een mogelijk einde...
(tot binnenkort???)
 

Bijlagen

Jean Paul,

Nog een aanpassing:

Als het goed is moet het printen nu werken zoals jij wilt.

@ snb,

Jouw laatste suggestie heb ik verandert in Rows.Hidden = False ipv Columns.Hidden = False
 

Bijlagen

Ik bekijk het direct...

Was ik niet lief genoeg in mijn laatste mail... dacht dat ik nu wel eens ECHT postief en vooral dankbaar was??????

JP
 
Jean Paul,

Aleé, Ge kunt toch wel tegen een geintje.
Jullie zuiderburen zijn daar toch niet vies van.

En dat je dankbaar bent is ons echt wel opgevallen.
Je reageert snel dus je bent er druk mee bezig, dat doet goed.
 
Tuurlijk kan ik er tegen... ben nl. ook van Aalst... DE karnavalstad van, ik denk, de Wereld... bekend om zijn "spotters" dus...
Onze school is ook in Aalst gelegen... ging je al eens naar de website?

Anyway...

Ziet er nu wel zeer goed uit...
Als ik dan toch mag... wat in cel M1 staat zou ik er graag uit hebben bij het printen, kan dat??

Kan ik aan de lijst van B1 eventueel nog wat toevoegen??? ik denk namelijk dat de competenties voor Rekenen, Taal, en Lichamelijke Opvoeding er ook wel eens zouden bij
moeten, maar dat zien we dinsdag wel.

Kan je nog eens naar M1 kijken???

En onze Amerikaanse vriend.... alhoewel hij zei een Excel-teacher te zijn, is hij toch maar klein bier... Maar alle eerlijkheid op z'n plaats... begin deze sheet maar eens aan een Amerikaan uit te leggen..... hij blijft wel een fijne kerel, maar ik stuur hem zeker de URL van Helpmij eens door.

CU

JP
:thumb::thumb::thumb::thumb::thumb: en ook wel wat :love: als er een dame tussen zit
 
Jean Paul,

Alles kan,

Melk kan
Suiker kan
Sandokan (piraat)
Wim Kon (overleden nederlandse cabaratier Wim Kan, kan niet meer dus ....)

Echter er is een ding dat niet kan.......

Cel M1 wordt leeggemaakt als je gaat printen en weer gevuld nadien.

Wat je Amerikaanse vriend heeft gedaan daar moet je trots op zijn dat is hij ook.
Er zijn gradaties in programmeren en Eral kreeg het ook voor elkaar.

Ik heb veel van snb geleerd door zijn/haar codes te volgen en te bekijken maar zijn/haar niveau behaal ik bij lange na niet.Bekijk bijlage 94359
 

Bijlagen

Laatst bewerkt:
Ziet er gelikt uit.... dinsdag scoor ik zeker en vast..
ik laat dinsdagavond wel iets weten...

Nog even over de keuzelijst in B1....
Wat moet ik doen om die uit te breiden??? Ik dacht dat dat moest refereren naar een aantal cellen in het werkblad waar de waarden in staan, maar ik kan niet vinden waar deze cellen ergens moeten zijn....

Dat nog en ik laat je eindelijk met rust (voor even misschien ;))

Nog eens van harte bedankt
JP
 
Jean Paul,

Leg dat van cel B1 nog iets dieper uit want ik kan het niet volgen.

Misschien weer een voorbeeld dat werkt zo lekker.
 
Simpel zelle...

Nu heb je keuze uit A of G of I of L of O
waarschijnlijk zullen ze willen dat er ook voor rekenen of LO of taal competenties bijkomen dus moet ik misschien de lijst uitbreiden met 3 extra letters...
en vroeg me af hoe dat zou moeten...

See???

JP
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan