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