Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 10 van 10

Onderwerp: Datums wissen

  1. #1
    Vraag is opgelost

    Datums wissen

    Ik heb een rijtje datums en daar wil ik met een VBA code Zoeken-Vervangen alle datums wissen die <> zijn aan Vandaag()

    Anyone ?

  2. #2
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Gebruik het autofilter. Heb je helemaal een VBA voor nodig.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  3. #3
    Dat begrijp ik, maar laat ik het anders stellen. Ik wil de datums niet wissen, maar vervangen door "Niet vandaag"

  4. #4
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Kan toch. Even filteren op <> vandaag en 'Niet vandaag' invullen en een beetje kopiëren en plakken. Al heb ik geen idee waarom je het zou willen.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  5. #5
    Ja, als ik het eenmalig zelf zou moeten doen wel ja, maar dit gaat om honderden datums over meerdere kolommen en als je de gebruiker (kantoormedewerkers) moet instrueren om dagelijks deze handeling handmatig uit te voeren, zullen ze daar niet zo blij mee zijn. (als ze het al zouden kunnen)

  6. #6
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Ik zie het nut niet. Maar plaats even het bestand.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  7. #7
    Dit dus
    Bijgevoegde bestanden Bijgevoegde bestanden

  8. #8
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Waarom niet met voorwaardelijke opmaak? Find/Replace in combinatie met datums werkt vaak niet lekker. Met deze code werkt het wel.

    Code:
    Sub VenA()
      ar = Cells(1).CurrentRegion
      For j = 3 To UBound(ar)
        For jj = 1 To UBound(ar, 2)
          If CDbl(ar(j, jj)) <> CDbl(Date) Then ar(j, jj) = ""
        Next jj
      Next j
      Cells(1).CurrentRegion = ar
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  9. #9
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Of:
    Code:
    Sub Knop1_Klikken()
     Cells(1).CurrentRegion.Offset(2).Name = "b"
     [b] = Evaluate("if(b="""","""",if(b<>" & CLng(Date) & ",""niet vandaag"",b))")
    End Sub
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  10. #10
    Beiden bedank !

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

Regels
Help

Helpmij.nl en business

Partners
Sponsoren