Wordt er gek van

Status
Niet open voor verdere reacties.
M

marcelvba

Gebruiker
Lid geworden
26 jul 2010
Berichten
40
Hallo iedereen,

In mijn logboek ben ik beland in het zoeken van items. Ik had het idee om via een inputbox een datum op te geven en dan wordt er in de database gezocht naar alles wat bij die datum hoort. Het zal nog verder uitgebreid worden maar zover ben ik nog niet. Ik bleef al hangen bij de datum.

Ik heb het voorbeeldje Bekijk bijlage inputbox_msgbox_voorbeeld2.xls toegevoegd. Hierin wordt gevraagd naar een datum. Als die datum overeen komt met een van de datums in de kolom welke Januari 2010 weergeeft, dan moet in het rijtje deze datum oplichten door de cel groen te maken.

Op zich werkt het wel maar niet altijd. Het werd een mens erger je niet spelletje, omdat ik het niet voor elkaar kreeg om de notaties overheen te laten komen. Maar soms ook weer wel, maar dan eenmalig. Gek wordt ik er van.

Zou iemand een oplossing weten.

MArcel
 
Excelamateur,

Dat ziet er goed uit. Ik zag dat je in VBA de voorwaarde toegevoegd hebt. Dat werkt.

Nu ben ik de datums gaan doortrekken naar 13-2-2010 en gezocht naar 1-2-2010. Nu worden er twee cellen groen, namelijk 1-2-2010 en 2-1-2010. Het viel me op dat in cel a1 de notatie van de dag en datum wordt omgedraaid. (celeigenschappen staat op *14-3-2001) Dus is het logisch dat hij dit doet. De procedure vindt de ingegeven datum en de voorwardelijke opmaak de 2-1-2010. Deze heb ik dan ook verwijderd en werkt het helemaal goed.

Nu nog de gebruiker laten weten hoe de datum ingevuld moet worden, wat 01-01-10 slikt hij niet. Ook logisch. Het is anders dan de lijst.

In ieder geval bedankt voor de voorzet....kan in ieder geval weer verder.

Marcel

Bekijk bijlage inputbox_msgbox_voorbeeld2.xls
 
ExcelAmateur.

Ja, inderdaad..Ik weet niet hoe je dit gedaan hebt en dan ziet het als een wonder. De voorwaardelijke opmaak was wel weer ingeschakeld. Ook 1-3-2010, 1-1-10, 01-1-2010, eigenlijk maakt het niet uit hoe getypt wordt. De juist waarde wordt gevonden.

Toppie en bedankt..Kan ik verder met waarden naast de gevonden datum te traceren en kopieren naar een volgend blad om ze weer te gaan geven via een userform In het logboek vinden gebeurtenissen plaats welke op dezelfde dag plaatsgevonden kunnen hebben. Met jou oplossing en manier is het groen worden van de gezochte datums heel makkelijk te traceren.

Bedankt,

Marcel
 
ExcelAmateur.

Ik zag de FORMAT (datum) in je toevoeging.....Daar had ik het ook in gezocht, maar kwam daar niet uit. Mooi om te zien dat het wel werkt..

Nogmaals bedankt.

Marcel
 
marcelvba

ExcelAmateur.
Mooi om te zien dat het wel werkt..
Klik om te vergroten...
Graag gedaan.
Ik heb nu nog iets moois van gemaakt en weet niet of je er interesse in heb.?
Hij toont direct de juiste datum en je kunt met een knop weer terug naar boven.

Dank zei Warmebakkertje blijven de knoppen in beeld.

Je moet trouwens de vraag nog als opgelost zetten. :thumb:
 
ExcelAmateur

Ik ben wel geinteresseert. Deze dingen komen toch regelmatig voor en alles wat bijdraagt om het goed onder de knie te krijgen is welkom.

Ik zie het wel, als je het plaatst.

De vraag zet ik dan later op opgelost.

bedankt,

Marcel
 
marcelvba
Ik ben wel geinteresseert.
Klik om te vergroten...

Sorry dat ik zolaat reageer maar zit in de verhuizing en heb het dus druk,
af en toe als er wat tijd is, kijk ik even op Helpmij.
Ik zie wel wat je er van vind, dit als amateur in elkaar geknutseld.
 

Bijlagen

Vraag was opgelost, maarre....
Ik werd er ook gek van; hele avond gegoogeld en op het forum gezocht. En eindelijk dit. Hulde!
Nederig verzoek om toelichting:

Wat is de functie van [A1] en waarom is c niet gedeclareerd.
Code: 
Sub DatumZoek()
    Dim Datum As String
    Datum = InputBox("Van welke datum wilt u de gegevens zien")
    [A1] = Format(Datum, "m-dd-yyyy")

    For Each c In [D6:AY6]    'Pas zonodig het bereik aan
        c.Interior.ColorIndex = xlNone
        If c = [A1] Then c.Interior.ColorIndex = 4
        If c = [A1] Then c.Activate
    Next
End Sub
 
brandernl,

Wat is de functie van [A1] en waarom is c niet gedeclareerd.
Klik om te vergroten...

[A1] betekend het zelfde als Range("A1")
C is een variable ( voor iedere cel in het bereik)
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan