Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 6 van 6

Onderwerp: Rij overslaan bij tekst en geen datum

  1. #1
    Junior Member
    Geregistreerd
    25 February 2020
    Vraag is niet opgelost

    Rij overslaan bij tekst en geen datum

    Het stukje code wat ik hier toon kijkt of er iemand op cursus moet.
    Dit doet hij door een vergelijking te maken met de huidige datum op het tabblad PERSONEEL in kolom U en V en de datum in kolom Q2 van het tabblad DATA.
    In kolom V staat het aantal dagen tot de cursus ( Cells(cl.Row, 22))

    Dit gaat goed zolang er in kolom U een datum staat.
    Staat deze er niet geeft hij een foutmelding.

    Echter staat in deze kolom U ook wel eens een tekst .
    Wat ik wil is dat hij de tekst laat staan en doorgaat naar de cel waar wel weer en datum is ingevoerd en dan weer de msg box weer de melding geeft


    Code:
    Sub check()
    
    ' cursus
    
    For Each cl In Range("U3:U" & Range("U" & Rows.Count).End(xlUp).Row)
    
        If cl.Value - Date < Sheets("DATA").Range("Q2") Then msgbox "Personeelslid " & Cells(cl.Row, 1).Value & " moet binnen " & Cells(cl.Row, 22) & " dagen op  cursus!"
    Next
    
     
    
    End Sub
    Ik hoop dat dit mogelijk is

  2. #2
    Mega Senior
    Geregistreerd
    21 January 2012
    Onder Sub check
    On error resume next plaatsen
    mvg Jean-Paul

  3. #3
    Mega Senior cow18's avatar
    Geregistreerd
    24 May 2008
    Locatie
    Alveringem, België
    Dan kan je met een select case gepast reageren op de inhoud van je cel.
    Vervang de msgbox door wat je wil doen, wil je niets doen, dan schrijf je daar niets
    Code:
    For Each cl In Range(".....")
          Select Case VarType(cl.Value)
             Case vbEmpty: MsgBox "leeg"
             Case vbDate: MsgBox "datum"
             Case vbString: MsgBox "string"
             Case Else: MsgBox "nog iets anders"
          End Select
       Next
    Voor de volledigheid, alle vartypeshttps://docs.microsoft.com/en-us/off...rtype-function

  4. #4
    Giga Honourable Senior Member
    Geregistreerd
    2 March 2013
    Code:
    For Each cl In Range("U3:U" & Range("U" & Rows.Count).End(xlUp).Row).specialcells(2,1)
    lijkt mij iets beter dan on error resume next.

    Of de code van @cow18 gebruiken.
    Laatst aangepast door VenA : 26 March 2020 om 13:28
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  5. #5
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 September 2000
    Locatie
    Zuid-Holland
    On Error Resume Next is zo goed als nooit aan te bevelen zonder zelf aan fout controle te doen.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  6. #6
    Junior Member
    Geregistreerd
    25 February 2020
    top !
    Dank u
    het werkt

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren