Cel opmaak invoerformulier en excel wijzigen bij aanpassen celwaarde (datum)

[Josno]

Is het mogelijk om in een invoerformulier die een excelbestand vult, aanpast of verwijderd en een celwaarde wordt gewijzigd dit door een kleur te laten zien in het invoerformulier en in het excelbestand. Daarnaast zou het fijn zijn dmv bijv een checkbox deze weer te veranderen in de oorspronkelijke kleur. Dit bestand wordt namelijk door meerdere gebruikers gevult en kunnen dan zien dat er een wijziging is en als zij akkoord zijn door middel van de checkbox hier hun akkoord aangevenen kleur weer orgineel is

josno

 

[zapatr]

Een invoerformulier vult een Excelbestand, het past het aan, het verwijdert (!) het bestand, en het wijzigt een celwaarde. En op grond daarvan moet er ergens in het invulformulier een kleur komen. Wie het begrijpen kan, begrijpe het.
Josno, denk toch eerst eens goed na voordat je een bericht plaatst, want wie kan hier nou chocola van maken? Een voorbeeldbestand met een duidelijke vraagstelling is het minste dat de lezers van dit forum mogen verwachten.

 

[Josno]

Je heb gelijk mijn mail zegt eigenlijk niets. Hierbij de VBA code die ik gebruik voor het invoerformulier

Private Sub Cbo_Adres_Change()
Dim WS As Worksheet
On Error Resume Next
With Worksheets("Data mutatie Portaal").Range("A:A")
Set P = .Find(Cbo_Adres.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not P Is Nothing Then
Cmd_Delete.Enabled = True
Cmd_Wijzigen.Enabled = True
Cmd_New.Enabled = False
Cmd_OK.Enabled = True
Txt_Team.Value = Worksheets("Data mutatie Portaal").Range("B" & P.Row).Value
Txt_KB.Value = Worksheets("Data mutatie Portaal").Range("C" & P.Row).Value
Txt_WA.Value = Worksheets("Data mutatie Portaal").Range("D" & P.Row).Value
Txt_1e_Inspectie.Value = Worksheets("Data mutatie Portaal").Range("E" & P.Row).Value
Txt_2e_Inspectie.Value = Worksheets("Data mutatie Portaal").Range("F" & P.Row).Value
Txt_einddatum_HRC.Value = Worksheets("Data mutatie Portaal").Range("G" & P.Row).Value
Txt_Mutatie_Cat.Value = Worksheets("Data mutatie Portaal").Range("H" & P.Row).Value
Txt_Nr_Sleutelkastje.Value = Worksheets("Data mutatie Portaal").Range("I" & P.Row).Value
Txt_Kosten_Huurder.Value = Worksheets("Data mutatie Portaal").Range("J" & P.Row).Value
Txt_Def_Kosten_Huurder.Value = Worksheets("Data mutatie Portaal").Range("K" & P.Row).Value
Txt_Datum_Verhuring.Value = Worksheets("Data mutatie Portaal").Range("L" & P.Row).Value
Txt_Opdracht_Aannemer.Value = Worksheets("Data mutatie Portaal").Range("P" & P.Row).Value
Txt_Status_Kandidaat.Value = Worksheets("Data mutatie Portaal").Range("Q" & P.Row).Value
Txt_Datum.Value = Worksheets("Data mutatie Portaal").Range("R" & P.Row).Value
Txt_Kandidaatnr.Value = Worksheets("Data mutatie Portaal").Range("S" & P.Row).Value
Txt_Naam_Klant.Value = Worksheets("Data mutatie Portaal").Range("T" & P.Row).Value
Txt_Bestemming.Value = Worksheets("Data mutatie Portaal").Range("U" & P.Row).Value
Txt_Bijzonderheden.Value = Worksheets("Data mutatie Portaal").Range("V" & P.Row).Value
Txt_uitvoerder.Value = Worksheets("Data mutatie Portaal").Range("W" & P.Row).Value
Txt_Omschrijving.Value = Worksheets("Data mutatie Portaal").Range("X" & P.Row).Value
Txt_Datum_Huurcontract.Value = Worksheets("Data mutatie Portaal").Range("Y" & P.Row).Value
Txt_Datum_Urgent.Value = Worksheets("Data mutatie Portaal").Range("Z" & P.Row).Value
'Gegevens VOC
Txt_Prognose_VOC.Value = Worksheets("Data mutatie Portaal").Range("M" & P.Row).Value
Txt_Daadwerkelijke_Oplevering.Value = Worksheets("Data mutatie Portaal").Range("N" & P.Row).Value
Txt_Werkelijke_Kosten.Value = Worksheets("Data mutatie Portaal").Range("O" & P.Row).Value

Else
Txt_Team.Value = ""
Txt_KB.Value = ""
Txt_WA.Value = ""
Txt_1e_Inspectie.Value = ""
Txt_2e_Inspectie.Value = ""
Txt_einddatum_HRC.Value = ""
Txt_Mutatie_Cat.Value = ""
Txt_Nr_Sleutelkastje.Value = ""
Txt_Kosten_Huurder.Value = ""
Txt_Def_Kosten_Huurder.Value = ""
Txt_Datum_Verhuring.Value = ""
Txt_Opdracht_Aannemer.Value = ""
Txt_Status_Kandidaat.Value = ""
Txt_Datum.Value = ""
Txt_Kandidaatnr.Value = ""
Txt_Naam_Klant.Value = ""
Txt_Bestemming.Value = ""
Txt_Bijzonderheden.Value = ""
Txt_uitvoerder.Value = ""
Txt_Omschrijving.Value = ""
Txt_Datum_Huurcontract.Value = ""
Txt_Urgent.Value = "Nee"
'Gegevens VOC
Txt_Prognose_VOC.Value = ""
Txt_Daadwerkelijke_Oplevering.Value = ""
Txt_Werkelijke_Kosten.Value = ""
Cmd_OK.Enabled = False
Cmd_Delete.Enabled = False
Cmd_Wijzigen.Enabled = False
Cmd_New.Enabled = True
End If
End With
End Sub

Het invoerformulier wordt door meerdere gebruikers gevuld. Het gaat om de de celwaarde die gevuld wordt met

Txt_Daadwerkelijke_Oplevering.Value = Worksheets("Data mutatie Portaal").Range("N" & P.Row).Value

Als deze wordt gewijzigd door iemand anders willen wij dat graag zien

Bij het opzoeken van het adres via het invoerformulier gebruik ik de VBA code

Private Sub UserForm_Initialize()
sq = Sheets("Data mutatie Portaal").Range("A2:A65000")
Cbo_Adres.List = sq

en worden de overige celwaarden gevuld.

Mijn vraag is als iemand Txt_Daadwerkelijke_Oplevering.Value aanpast dit voor de andere gebruikers zichtbaar is en deze kunnen verifieren. Dat zou ik via een kleur willen doen(zowel in het invoerformulier als in excelsheet) en na verificatie door de andere gebruiker weer de orginele kleur krijgt.

Ik hoop dat ik nu duidelijker ben

 

[Josno]

Een invoerformulier vult een Excelbestand, het past het aan, het verwijdert (!) het bestand, en het wijzigt een celwaarde. En op grond daarvan moet er ergens in het invulformulier een kleur komen. Wie het begrijpen kan, begrijpe het.
Josno, denk toch eerst eens goed na voordat je een bericht plaatst, want wie kan hier nou chocola van maken? Een voorbeeldbestand met een duidelijke vraagstelling is het minste dat de lezers van dit forum mogen verwachten.

Je heb gelijk ik heb mijn vraag wat aangevuld met VBA codes