Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Datum zoeken  (gelezen 1661 keer)

0 leden en 1 gast bekijken dit topic.

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Datum zoeken
« Gepost op: 24 april 2017, 18:59:43 »
Hoi Hoi Oplossers en helpers...

Ik heb naar aanleiding van mijn vorige vragen al heel veel werk verzet en een mooi project in elkaar gedraaid, maar ;) ik heb nog wel een vervelende opgave waar ik niet helemaal uit kom.

Ik zoek in kolom "B" een datum, dat doe ik door in het eerste tekstvak van mijn formulier een datum in te typen. hij zou dan de corresponderende waardes in de overige vakjes moeten plaatsen. Dat laatste lukt heel goed. Echter bij de datum zoeken selecteert hij rij 42850 ipv rij 121 (23 apr) dat heb ik nu opgelost door in de range -42727 mee te geven, maar kan dat nou niet eleganter?

Hieronder de code en bijgevoegd een simpel testbestandje

Private Sub TxtDatum_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim Gevonden As Range

If TxtDatum.Text = "" Then Exit Sub
    With Sheets("Blad1").Columns(2)
        Set Gevonden = .Find(DateValue(TxtDatum.Value))
        If Not Gevonden Is Nothing Then
        Range("B" & Gevonden.Formula - 42727).Select
        End If
       
    End With
End Sub
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Datum zoeken
« Reactie #1 Gepost op: 24 april 2017, 22:32:41 »
Gevonden is in dit geval een range object. Gevonden.select is dus voldoende....
______________________________

Groet, Leo

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Datum zoeken
« Reactie #2 Gepost op: 25 april 2017, 10:15:52 »
Hoi RedHead,

Hij is helemaal top :D werkt!!!  Dank weer voor de input....

Ik begreep niet waarom, nu zie ik dat door de DIM regel ik inderdaad "Gevonden" al een object was geworden.

Ik mag nog veel leren... ;)
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Datum zoeken
« Reactie #3 Gepost op: 25 april 2017, 13:22:20 »
Graag gedaan. Enne...

Ik mag nog veel leren... ;)

...komt vanzelf!  ;)
______________________________

Groet, Leo

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Datum zoeken
« Reactie #4 Gepost op: 25 april 2017, 13:50:24 »
Graag gedaan. Enne...

...komt vanzelf!  ;)

Dat komt vast wel goed ja ;) met de hulp van jullie hier ga ik in elk geval als een speer...
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

 


www.combell.com