waslijst voorwaardelijke opmaak

[mariken]

Ik weet dat er veel dingen mogelijk zijn met voorwaardelijke opmaak, maar als leek-in-opleiding kom ik er niet uit.

Ik ben gevraagd een bezoekersregistratie te maken voor de receptie, bijgaand Bekijk bijlage 163891 een concept met de volgende kolommen.

A= datum B= tijdstip in C= naam bezoeker D= vergadering ja/nee E= firmanaam F= ontvanger G= tijdstip uit
Ik begin op regel 6.

Als A6 (datum) wordt ingevuld, wil ik dat B6 (tijdstip in) rood kleurt.
Als B6 is ingevuld wil ik dat de rode kleur weer verdwijnt. Bovendien wil ik dan dat G6 rood kleurt.

Als in C6 de naam van de bezoeker wordt ingevuld, wil ik dat D6 (vergadering ja/nee) rood kleurt.
Als in D6 ja is ingevuld, wil ik dat in E6 (firmanaam) een X verschijnt. Bovendien wil ik dan dat in F6 (ontvanger) een X verschijnt.
Als in D6 nee is ingevuld, wil ik dat E6 rood kleurt.
Als E6 is ingevuld wil ik dat de rode kleur weer verdwijnt. Bovendien wil ik dan dat F6 (ontvanger) rood kleurt.
Als F6 is ingevuld wil dat de rode kleur weer verdwijnt.

Als B6 (tijdstip in) is ingevuld wil ik dat G6 (tijdstip uit) rood kleurt.
Als G6 is ingevuld wil ik dat A6 t/m G6 groen kleurt.

Een hele waslijst. Toch hoop ik dat dit mogelijk is.

Hartelijk dank voor het bekijken, Mariken

 

[popipipo]

Ik neem aan de kleurtjes bedoelt zijn om aan te geven welke cel er ingevuld moet worden.
Hier een ander opzet, hierbij kun je niet anders dan die cel invullen.
De naam wordt als eerste ingevuld en datum en tijd worden automatisch geplaatst.
Daarna is het verplicht D6 in te vullen en vervolgens e,f,g,en h.

Heb dit uit mijn archief gehaald en aangepast.
Hij werkt echter alleen op rij 6
Mijn VBA kennis schiet voorlopig nog te kort om het geheel aan te passen.
Aan de VBA specialisten om dit te vervolmaken, als TS dit tenminste een oplossing vind.

 

[spaarie]

Voor als je wel met kleurtjes wilt...
Alleen zal je wel een soort van BLANCO versie moeten hebben.
Zit namelijk een formule in de cellen van naam ontvanger en firma naam. Deze krijgt een X als je "ja" invult, maar als je nee invult moet je ze invullen dus zullen je formules volgende keer weg zijn... snapt u?

 

[mariken]

Beiden dank voor het meedenken.:thumb:
Ik ga vooralsnog toch voor de versie van Spaarie, omdat de receptiedames de versie van Willem waarschijnlijk te ingewikkeld gaan vinden:-(

Ik neem aan dat de X-en ook kunnen worden vervangen door een zwarte celopvulling, dus een kleurtje, zodat ik de aanwezigheid van formules kan ontwijken?

Mariken

 

[spaarie]

Ja dat kan...

 

[mariken]

Ik heb het afgelopen uur geprobeerd het zelf uit te vogelen, maar niet gelukt, dus hulp aub gewenst

 

[spaarie]

Zo beter?

Zie in de desbetreffende cellen onder "regels beheren" bij voorwaardelijk opmaak hoe toe te passen...

 

[mariken]

Excuses dat ik niet eerder reageerde, ik lag met griep in m'n bed.
Ik heb het nog eens bekeken en kom tot de conclusie dat ik te ingewikkeld wil.
Ik heb bijgaand een "schoon" concept ingevoegd. Willen jullie bij gelegenheid hier nog eens naar kijken, ik kom er echt niet uit
Groeten, Mariken

Bekijk bijlage 164245

 

[popipipo]

Hier nog een poging

 

[spaarie]

Nog makkelijker

 

[mariken]

Aan Spaarie: Userform is wel heel erg mooi:thumb:, maar zou dan toch wel wat uitgebreid moeten, wil deze voldoen.

Aan Popipipo/Willem de vraag hoe ik de opmaak kan kopiëren voor 100 rijen, dat wil maar niet lukken?

 

[spaarie]

Oke, was een poging waard toch.
Voor het kopieren van de VO zou je de $-tekens in de formule moeten weghalen. Dit zorgt er namelijk voor dat de verwijzigen absoluut is (dus altijd die bepaald kolomletter of rijnummer).
Als dit gedaan is kan je de bovenste rij selecteren > kopieren > plakken speciaal > opmaak of met de vulgreep doorslepen...

Alleen de VO in cel E6 en F6 moet je een $-teken voor de D en de E zetten

=EN($D6="nee";$E6="")

Succes

 

[mariken]

Veel dank :thumb:

 

[mariken]

De collega's waren al helemaal blij met het resultaat, dankzij dit mooie forum.

De eerdere reactie van Spaarie bracht me aan het denken, want een userform zou toch wel heel erg mooi en nog gebruikersvriendelijker zijn.
Het is me volgens mij gelukt om met mijn beperkte kennis toch twee userforms te maken. Bekijk bijlage 164605
Het zou mooi zijn als bij het formulier "Registratie bezoekers compleet" gezocht kan worden op het veld (achter)naam.

Nu nog vullen, dat is lastiger. Kan iemand mij helpen? Ik heb het formulier zo klein mogelijk gehouden
Heel erg bedankt voor de aandacht:love:
Mariken

 

[mariken]

Vraag ik te veel?

 

[mariken]

Ben intussen al een eind verder. De laatste loodjes wegen het zwaarst en ik kom er dan ook niet uit.

Ik heb een formulier "Bezoekersregistratiein" dat alles goed wegschrijft. Echter, het initialiseren lukt me niet.
Het ontbreekt me aan kennis om
bij de "datum" automatisch de datum van vandaag
bij "tijdstip in" automatisch het tijdstip van dat moment en
bij "vergadering ja/nee" een listbox met ja of nee mee te geven.

Bij het formulier "Bezoekersregistratieuit" moet gezocht kunnen worden op "Achternaam bezoeker", waarna bij het selecteren van een naam de rest van de gegevens in de andere velden verschijnen, dan automatisch bij "tijdstip uit" het tijdstip van dat moment verschijnt waarna het kan worden opgeslagen (dus wellicht gewijzigd?) en de registratie compleet is.

Ik hoop echt dat jullie me verder op weg willen helpen Wordt zeer gewaardeerd.
Mariken

Bekijk bijlage 164729

 

[mariken]

Helemaal niemand??

 

[spaarie]

Ken je het liedje? "Hou je rustig rustig rustig.... hou je rustig kalm stil...."
Gelukkig is dit alles op vrijwillige basis

Ik kreeg jouw bestandje niet werkend dus heb het een beetje nagemaakt en (misschien wel) beetje verbeterd

 

[mariken]

Sorry voor de ongeduldigheid. Omdat ik de vraag steeds verder naar beneden zag zakken, was ik bang dat die aan de aandacht was ontsnapt.

Het in-formulier werkt prima, bij het uit-formulier krijg ik een foutmelding "Compileerfout: Sub of Function is niet gedefinieerd" en komen de ingebrachte gegevens van het in-formulier, behalve de achternaam, niet tevoorschijn.
Wil je, als je tijd en zin hebt , hier nog eens naar kijken?

Met dank, Mariken

 

[spaarie]

Sorry, zat nog een foutje in
Het is ook de bedoeling dat bij Formulier uit, de textboxen auto worden ingevuld met de waardes die er al zijn. Heb het opgelost nu.

EDIT: nu zie ik dat hij de tijd niet goed pakt..
Verander deze even bij formuit:

Private Sub achternaam_Click()
Dim ws As Worksheet
Set ws = Worksheets("Bezoeken")
If achternaam <> "" Then
irow = ws.Range("C2:C500").Find(achternaam, LookIn:=xlValues, lookat:=xlWhole).Row
    Me.datum.Text = ws.Cells(irow, 1)
    [COLOR="#FF0000"]Me.tijdstipin.Text = Format(ws.Cells(irow, 2), "hh:mm")[/COLOR]    
    Me.vergadering.Text = ws.Cells(irow, 4)
    Me.firma.Text = ws.Cells(irow, 5)
    Me.ontvanger.Text = ws.Cells(irow, 6)
End If
End Sub

En deze bij graag

Private Sub opslaan_Click()
Dim ws As Worksheet
Set ws = Worksheets("Bezoeken")
irow = ws.Range("C3:C500").Find(achternaam, LookIn:=xlValues, lookat:=xlWhole).Row
ws.Cells(irow, 1) = Me.datum.Value
ws.Cells(irow, 2) = Me.tijdstipin.Value
ws.Cells(irow, 3) = Me.achternaam.Value
ws.Cells(irow, 4) = Me.vergadering.Value
ws.Cells(irow, 5) = Me.firma.Value
ws.Cells(irow, 6) = Me.ontvanger.Value
ws.Cells(irow, 7) = Format(Time, "hh:mm")
UserForm_Initialize
[COLOR="#FF0000"][/COLOR][COLOR="#FF0000"]Unload Me[/COLOR]
End Sub