Sleutel plan

[sont]

Beste mensen,

Wil graag met een sleutelplan werken waarbij 2 zaken automatisch gaan.
Zoals jullie kunnen zien heb je 2 opties;

"Sleutel in de kluis" en "uitgeleend".

Als je de sleutel uitleent kan je door middel van een datepicker de datum invullen. Dat lukt tot zover.
Maar ik wil, dat wanneer de datum wordt ingevult, hij het kruisje uit het vak "in de kluis" weghaalt (cel ook weer wit ). En wanneer je de datum verwijdert, hij het kruisje weer netjes in het vak "sleutels in kluis" neerzet en de cel weer groen wordt.

Het mooiste zou zijn wanneer je de datum kiest het vakje rood wordt.
Kruisje met een groene cel heb ik denk ik wel voor mekaar zonder macro.
In het voorbeeld zijn geen namen genoemd maar werknemers met een nummertje.

Wie o wie zou mij hiermee willen helpen?
Voor zover weer bedankt.

Bekijk bijlage Sleutelplan testen.xlsm

 

[JeanPaul28]

Bedoel je dit

 

[sont]

Bedankt Jean Paul28 voor de snelle reactie.

Het zijn maar 5 sleutelbossen die uitgeleend worden door verschillende collega's. Het kruis met de groene cel zou alleen betreffen. C3,E3,G3,I3,K3.
Voor de rest doet hij het goed.
Zou het mogelijk zijn dat alleen de cellen C3,E3,G3,I3,K3 de groene kleur krijgen bij het verwijderen van de datum?


Bedankt voor zover.:thumb:

 

[JeanPaul28]

Zo dan

 

[sont]

Dit is precies wat ik wil JeanPaul28! Hulde!

Bedankt voor de snelle hulp. Ik ben weer blij.
Tot een volgende keer.:thumb:

 

[loek010]

Andere opzet klik in vak kluis met tekst in kies uit voor sleutels uit


Zie bestand : Bekijk bijlage Sleutelplan testen (1).xlsm

 

[sont]

Bedankt voor je reactie Loek010,

Ook dit is een mooi exemplaar waar ik mee uit de voeten kan. Aangezien niet altijd de lijst wordt bijgehouden is de optie met een kalender een betere.
Bij jouw lijstje vult hij de datum in van de dag wanneer je de keuze maakt in het scroll_down menu. Datum daar veranderen kan natuurlijk ook.
Ook in jouw lijstje krijg je de indruk dat er een hoop sleutels in omloop zijn en dat is niet het geval.
Bedankt voor je tijd en energie.


Tot de volgende uitdaging.:thumb:

 

[VenA]

@loek010, Waarom niet?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Cells.SpecialCells(-4174)) Is Nothing Then Target.Offset(, -1) = IIf(Target = "in", "", Date)
End Sub

Is maar 1 regel ipv een stuk of 50.

Andere optie

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Cells.SpecialCells(-4174)) Is Nothing Then
    If Target = "in" Then
      Target.Offset(, -1) = ""
     Else
        Target.Offset(, -1).Select
        CalendarFrm.Show
    End If
  End If
End Sub

 

[loek010]

@VenA

Ok dat is inderdaad beter, maar zover gaat mijn vba kennis nog niet,
maar leer graag dus bedankt voor je verbetering.


Kun je me uitleggen wat de in rood gekleurde code precies doet dan begrijp ik het beter.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [COLOR="#FF0000"]Cells.SpecialCells(-4174))[/COLOR] Is Nothing Then Target.Offset(, -1) = [COLOR="#FF0000"]IIf[/COLOR](Target = "in", "", Date)
End Sub

 

[HSV]

Hallo Loek,

Zet de cursor eens op die stukjes die je aanduid en druk F1.

 

[loek010]

@HSV

Bedankt dit wist ik niet weer wat geleerd en begrijp nu ook de betekenis. :thumb:

 

[sont]

Beste mensen,

Bedankt voor de variatie van de verschillende code's . Ze werken allemaal.
Jullie input wordt zeer gewaardeerd.:thumb:
De methode van JeanPaul28 ga ik (voorlopig) gebruiken. Mochten er nog vragen zijn kom ik er op terug.

Vooralsnog zet ik deze vraag als opgelost!
Fijne zondag allemaal.