• 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.
@ snb,

IIF dat is een Access commando?

Huh, leg eens uit.

Ik kan er geen genoeg van krijgen van al die super korte en snelle codes.

Maar dat weet je.

P.s.: ik moet de code nog testen hoor.
 
Zeker weer dom hoor van deze belg...

In mij "Opmaak" geen "Valideren"

werk met 2003

Nog even het handje vasthouden aub.... superwuuf

merci

PS
met de opmerking aan snp heb ik niets te maken hoop ik!!!
 
@superzeeuw

Sla in de VBeditor eens op F2.
Kijk eens in de VBA-bibliotheek.
 
Jean Paul,

Validatie op kolom N gezet met 1, 2 en 3.
De gebruiker kan zijn waarde ingeven met het klavier of via de treklijst.

Validatie van B1 aangepast en Taal, Rek en LO toegevoegd.

Maak je over mij maar geen zorgen.
Ik kom niet snel zonder werk te zitten.
Ik heb meerdere hobbies en daar kan ik mijn tijd lekker mee vullen.
 

Bijlagen

Jean Paul,

Opmerking is geplaatst om mij weer verder te helpen.

Maar plaats jij de volgende code van snb nog in het prgoje want die werkt fantastisch:

Code: 
Private Sub KlasTrimesterToggle_Click()
  With Columns(3)
      .Resize(, 9).Hidden = Not .Hidden
      KlasTrimesterToggle.Caption = "Klas/Trimester " & IIf(.Hidden, "Aan", "Uit")
  End With
End Sub

@ snb,

In bovenstaande code heb ik resize op 9 gezet anders werd er 1 kolom niet zichtbaar gemaakt en de tekst Aan, Uit is omgewisseld.

Voorts, het drukken op F2 in de VBA editor toont erg veel info maar dat is voor mij geheel nieuw.
Wat kan ik daarmee?
 
Job done.... hoe krijgt iemand in 's hemelsnaam zo iets geprogrammeerd...

Ziet er nu wel top uit...
Dinsdag waarschijnlijk vuurproef of ten laatste donderdag
Ik laat zeker weten wat men er van vond

Ik vind het in elk geval perfect zoals ik het wou, en nee "superman" ik heb geen toegevingen moeten doen.

Spendeer maar wat tijd met de cavia's nu...

Ik hou jullie zeker op de hoogte hoe alles verder evolueert... (voorlopig) zijn jullie van mij af!

Superzeeuw... ik wacht nog op 1 ding: je prive-mailadres

jp.dewinter@telenet.be
:thumb:
 
Iets te vroeg victorie gekraaid...

Ik voegde er zopas een aantal competenties bij voor Onderhoudsassistent, wou een en ander uitproberen... kolom bijvoegen...
Score geven: 3
het cijfer mooi in rood
De tekst in kolom M... niks, nada... moest ook rood zijn, maar bleef netjes zwart

Kijk je nog eens?

Merci
 

Bijlagen

Gebruik:
Code: 
  Sheets(1).pagesetup.printarea=sheets(1).usedrange.Offset(4,2).address
ipv
Code: 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim Tekst As String
    Cancel = True
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    With ActiveSheet
        .Range("A:B").Columns.Hidden = True
        Tekst = .Range("M1").Value
        .Range("M1").Value = ""
        .PrintOut
        .Range("A:B").Columns.Hidden = False
        .Range("M1").Value = Tekst
    End With
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Maak van de 2 filterknoppen 1 filterknop.
Afhankelijk van de status kun je de knop een andere knoptekst/kleur geven. Het Gebruik van cel M1 daarvoor is dan overbodig.

Je kunt alle macro's in de module van het werkblad zetten. Daarvoor heb je geen aparte macromodules nodig.
Zie bijlage
 

Bijlagen

Laatst bewerkt:
beste snb

Ik hoop dat dit voor Superzeeuw bedoeld is!!!???

Toch wel raar dat probleem waar ik het over had...


Bedankt
JP
 
Laatst bewerkt:
Nee, alle opmerkingen zijn voor jou bedoeld; jij bent de vragensteller.
Via helpmij proberen we jou te helpen zodat je je eigen competenties uitbreidt.
 
Maar DIT gaat mijn petje al zwaar te boven hoor!
Ik moet met een racewagen rijden en kan nog niet met de fiets...
JP
 
Ik hoop dat je de bijlage van mijn laatste bericht hebt bekeken.
 
Jazeker... alleen is een en ander mij niet duidelijk...
Als je de filterknop indrukt, wordt er inderdaad gefilterd, maar ik ben alle hoofdingen kwijt
Ook de andere knoppen zijn verdwenen...

Wat is eigenlijk de bedoeling?

JP
 
Alle overige knoppen zijn overbodig.
De kopteksten worden vanzelf zichtbaar als je de kolommen d t/m k op dezelfde wijze invult als de kolommen van competentieregels.(1,2,3,4,5,1,2,3)
 
Maar, waar zijn de knoppe: kolom toevoegen? filteren op score 1-2 of 3...
Sorry hoor...
JP
 
Jean Paul,

Het is uiteraard aan jou hoe verder te gaan.

@ snb,

Wederom lof voor je geweldig KORTE code voor het printen.
Zo had ik het nog niet benaderd.

Wat jij gemaakt hebt met het filteren is idd een oplossing maar...

De gebruiker wil graag de sub hoofdstukken en hoofdstukken blijven zien na filtering.
Met autofilter verdwijnen die en dat is niet de bedoeling.
De gebruiker wil graag een knop kolom toevoegen omdat de gebruiker dan een stuk historie kan bewaken op de onderdelen die hij/zij kan waarderen met een 1,2 of 3.
De gebruiker kan dan filteren, en na filtering de 1, 2 en 3 onderscheiden met behoud van hoofdstuk titels, en weer normaal filteren, toggle mode dus.
Als filtering uit moet dan is daar dus nog een knop voor.
De gebruiker wil geattendeerd worden op de filter status middels tekst in M1.
Ik ben het helemaal met je eens dat dit niet nodig is maar zoals JP al zei velen zijn computer nono's

Ik begrijp goed wat je gedaan hebt en vindt het ook erg leuk dat je meedenkt daar steken we altijd iets van op.

De reden dat is alles in macro modules heb gestoken is omdat ik ze vanuit verschillende kanten benader en dan is dit volgens mij de eenvoudigste manier.

P.S.: Nu weet ik nog niet wat ik met het scherm kan na het drukken F@ in de VBA editor.
 
Laatst bewerkt:
Superzeeuw... kan je me vertellen wat ik verkeerd deed zodat de tekst niet meer rood kleurt als je score 3 gegeven hebt...

Merci

PS... Ik vind jouw benadering wel top hoor... voor mij hoef je er geen extra tijd meer in te steken... alleen probleemke oplossen en dan is het manneke tevreden

JP
 
Jean Paul,

Zoals ik al eerder verwoorde is dit nu de kracht van het forum.
Iedereen denkt mee, en helpt mee met het sturen / oplossen van een probleem.
snb draagt ook hierin een enorm steentje bij.

Tenslotte niet alleen jij bent geholpen maar ook ik.

Let wel Jean Paul.

Er is geen probleem met de rode teksten.
Ik heb enkel de eerste 3 hoofdstukken van onvoorwaardelijke opmaak voorzien om te laten zien dat het werkt, vergeten te melden.
De rest moet je zelf aanpassen.

LET WEL!
Als je een kolom toevoegt en je verwijdert die kolom daarna dan ligt alles omver omdat de relatie met de kolom ook verdwijnt want de kolom gaat weg.
 
> Als je een kolom toevoegt en je verwijdert die kolom daarna dan ligt alles omver omdat >de relatie met de kolom ook verdwijnt want de kolom gaat weg.

Is dit op de een of andere manier te voorkomen???

JP
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan