Gemakkelijke vraag voor de specialisten... :-)

[Fonzer]

Hallo allemaal,

Voor jullie vermoedelijk een zeer simpele vraag, maar ik kan helemaal niet goed werken met VBA. Ik heb met excel een makro opgenomen doch wens een paar dingen aan te veranderen.
Kunnen jullie mij helpen?

Hieronder de makro

Sub Test()
'
' Test Macro
'

'
ActiveSheet.Range("$B$6:$N$12").AutoFilter Field:=3, Criteria1:=">=07:00", _
Operator:=xlAnd
ActiveSheet.Range("$B$6:$N$12").AutoFilter Field:=4, Criteria1:="<=15:00", _
Operator:=xlAnd
End Sub

Ik zou namelijk 07:00 willen vervangen door een uur dat in cel H3 staat (dus de inhoud van H3 moet naar daar gaan).
Het uur 15:00 moet vervangen worden door I3 (dus de inhoud van I3 moet naar daar gaan).

De bedoeling is dat de gebruiker enkel de uren moet invullen zonder dat hij de autofilter moet aanpassen.

Alvast bedankt

Steven

 

[OctaFish]

Doe er eens een bestandje bij, dat scheelt in de hulpsnelheid.

 

[Fonzer]

Hey,

dat is misschien inderdaad eenvoudiger.
Ik heb een het ontwerp in bijlage gestoken. Je zal zien dat ik de macro's zelf heb opgenomen. De knop "hele dag" en "reset" werken naar behoren. De andere knop is nog in ontwerp en werk voor de uren "07:00" en "15:00" (alle resultaten tussen groter of gelijk aan 07:00 uur en kleiner of gelijk aan 15:00 uur). Als ik die uren zou wijzigen, zou de autofilter daar rekening mee moeten houden. Als ik 07:00 in 08:00 zou wijzigen, moet ik uiteraard een ander resultaat krijgen. Het zou misschien gemakkelijker zijn als je met tesktboxen zou werken, dat weet ik niet. Ik heb ze er maar bij gezet... Maar daar ken ik al helemaal niets van

Hopelijk kan je er een beetje aan uit...

Bekijk bijlage Opvolging - test.xlsm

 

[HSV]

Voor de cellen

ActiveSheet.Range("$B$6:$N$12").AutoFilter Field:=3, Criteria1:=">=" & Range("H3").Value
    ActiveSheet.Range("$B$6:$N$12").AutoFilter Field:=4, Criteria1:="<=" & Range("I3").Value

 

[Fonzer]

Hey Harry,

Bedankt voor de reactie.
Het klopt, al zit ik nu met het volgende probleem. In de autofilter neemt hij dus wel de uren over, maar zet deze om in getallen. 07:00 uur wordt dus 0,291666666666667.
Hoe krijg ik dit opgelost?

 

[OctaFish]

Opmaak van de cel veranderen?

 

[Fonzer]

Dat heb ik ook al geprobeerd.... maar dat zou te gemakkelijke zijn denk ik ;-)
Neen, dat werkt jammer genoeg niet!

 

[Fonzer]

Ik heb het ondertussen zelf gevonden.

Range("H3").Value diende ik te vervangen door Range("H3").Text

Dan lukt het uiteraard wel.

Alvast bedankt voor de hulp allemaal!

:thumb:

 

[HSV]

Ik zou niet weten waarom .value niet werkt.
In het door jou geleverd bestand werkt het prima.

Maar even het bestand geplaatst zodat we het daar over eens kunnen zijn.

Als .text bij jou voldoet vind ik het goed hoor.