VBA voor aanpassen staat bierglazen

[Jojorubbers]

LS.,

in de bijlage een bestandje waarbij ik een macro of vba code zoek die de status aanpast van het gekozen glas en daarbij de datum aanpast wanneer dit gemeld is.
Dat laatste is overigens minder interessant dan de status aanpassen.

Ik kies in tabblad schadeformulier mijn glas, vervolgens klik ik op de knop "Meld hier het glas stuk" en als resultaat zou ik dan graag de staat van het glas in tabblad Kast aangepast zien worden in stuk.

Als dan de datum van melden, zonder invoeren van een datum, ook nog meegenomen kan worden, ben ik nog een stap verder.

 

[snb]

Verwijder het schadeformulier.

Zet dit in de macromodule van het 'kast' werkblad.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 5 And IsDate(Target) Then
    Target = Date
    Target.Offset(, -2) = Target.Offset(, -2) - 1
    Cancel = True
  End If
End Sub

Dubbelklik op de regel van het gebroken glas in het kastoverzicht in kolom E

 

[Jojorubbers]

Schadeformulier voor registratie

Dag,

ik ben niet duidelijk genoeg geweest, hetgeen ik vaker doe, excuus.

Ik wil graag wél een tabblad extra, waarop men een schadeformulier in kan vullen. Dat formulier wordt gemaild als PDF, maar ik wil dan de 'database' van mijn glazen bijwerken.
De staat van het glas zou ik graag aangepast zien worden van goed naar kapot, of stuk. De inhoud, betreft het aantal CC van het glas, dat staat los van het aantal glazen.
Het aftelmechanisme is wel iets wat ik ga meenemen, maar in andere excellen.

Is het zo helder wat ik vraag?

Schadeformulier kies ik een glas, ik druk op een knop stuk melden en die knopt zorgt ervoor dat de kolom "Staat" aangepast wordt naar stuk bij het betreffende glas én. indien mogelijk, past de datum aan.

Dank wederom alvast

 

[snb]

Met het getoonde principe moet het je wel lukken.

 

[emields]

Je kan het natuurlijk ook zo doen.