Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Excel automatische gegevens en manuele gegevens matchen niet...  (gelezen 387 keer)

0 leden en 1 gast bekijken dit topic.

Offline powerranger93

  • Nieuw lid
  • Berichten: 1
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Excel automatische gegevens en manuele gegevens matchen niet...
« Gepost op: 13 juni 2022, 14:14:39 »
Dag allemaal

Ik heb een zelf een exceldocumentje gemaakt om na te gaan hoeveel tijd er aan een bepaald product gewerkt wordt.

De bedoeling is dat we een code ingeven in een cel, wanneer we dit doen wordt het uur automatisch ingevuld de andere cel.
Net hetzelfde wanneer het product gedaan is, wordt een code ingescand en wordt de tijd automatisch weergegeven in een andere cel.

Het verschil tussen die twee tijden zal ons dan weergeven hoelang we aan het product gewerkt hebben.

Dit heb ik kunnen bekomen door in de VBA volgende code uit te schrijven (deel code):
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        Application.EnableEvents = False
        Cells(Target.Row, 5).Value = Date + Time
        Application.EnableEvents = True
    End If


(Dit werkt :) )

Nu mijn vraag/probleem....

Wanneer ik bij één van de twee cellen handmatig de tijden ingeef dan herkent excel de totale werktijd van het product niet.
Dan komt er ########

Met andere woorden wanneer ik de start -en eindtijd handmatig ingeef dan is het resultaat zichtbaar.
Wanneer ik de start -en eindtijd automatisch laat ingeven dan is het resultaat zichtbaar.
Wanneer ik een handmatig en één automatisch invul dan is het resultaat niet zichtbaar.

Heeft iemand hiervoor een oplossing?  :)

Alvast bedankt,
Daan

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.171
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Excel automatische gegevens en manuele gegevens matchen niet...
« Reactie #1 Gepost op: 13 juni 2022, 15:14:46 »
Hallo Daan,

Welkom op Oplossing.be  :)

Als je de Cel-eigenschappen van de kolommen juist benoemd, en volgende code gebruikt:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        Cells(Target.Row, 5).Value = Date
        Cells(Target.Row, 6).Value = Time
    End If
    If Target.Column = 4 Then
        Cells(Target.Row, 7).Value = Time
    End If
    ' rest van de code ?
End Sub

zou dat toch moeten werken.

Als je een "DATE & TIME" via de macro in een cel zet, en dan een "TIME" handmatig in de andere, dan wordt het inderdaad moeilijk om ze van elkaar af te trekken, omdat ze niet dezelfde opmaak hebben. Zie aangepaste code.

:) SoftAid :)             

 
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

 


www.combell.com