hulp gevraagd VBA

[leikew]

Hoi.
Ik ben al een eind op weg, maar heb nog n vraagje.
In het voorbeeld heb ik een datum toegevoegd om uit te kiezen, wat ik nu graag wil bereiken is dat de datum die ik selecteer ook op de juiste plek de data wordt overgenomen.
Dus ik selecteer 6 juni 2015 en zou dus graag dat de data die ik invul ook op die dag in de tabel wordt ingevuld.

Hoe kan ik dat het beste oplossen? Of wie help mij met de code er in te krijgen?

Ik heb het bestand moeten zippen daar het iets te groot is.

Groet
Leo

 

[edmoor]

Met het selecteren van 6 juni 2015 bedoel je dat je op het blad PibaData cel B99 aanklikt? Probeer het eens met deze en dubbelklik dan op die datum:
Bekijk bijlage werkblad 2015 Blauw 002.zip

 

[leikew]

Hoi Edmoor.

Nee ik bedoel dat als ik in de kalender de datum selecteer en dan de gegevens invul, deze dan op de goed plaats terecht komen.
De excel file is straks niet meer zichtbaar, zodat deze niet meer toegankelijk is voor diegene die de data invult.
Alleen de data mag men invullen.

Groet
Leo

 

[edmoor]

Ok dan, dat kan ik dus niet testen omdat die calendar control hier niet werkt.

Edit:
Ik heb hem toegevoegd en zal even kijken wat ik ermee kan doen voor je.

 

[leikew]

Geweldig bedankt..
Ga binnenkort met de cursus beginnen..Maar vind het heel fijn dat je me hier mee helpt.

 

[edmoor]

Voeg deze functie aan de formuliercode toe:

Function GetDateRow() As Long
    Dim i As Long
    With Sheets("PibaData")
        For i = 1 To .Cells(.Rows.Count, "B").End(xlUp).Row + 1
            If Cells(i, 2) = DTPicker1 Then
                GetDateRow = i
                Exit Function
            End If
        Next i
    End With
End Function

Bovenin de code van de knop, daar waar je de waarde van iRow wilt vullen doe je dan dit:
iRow = GetDateRow()

Daarbij ben ik er vanuit gegaan dat de datumselector DTPicker1 heet.
Probeer het eens

 

[leikew]

Ik weet niet wat ik fout doe, maar als ik de code toevoeg dan vult hij de eerste lege rij de data in en niet op de datum die ik heb geselecteerd.
Ik heb de code op diverse plekken neer gezet maar het werkt niet.
En de datumselector is inderdaad DTPicker1

 

[edmoor]

Plaats je document nog maar eens zoals deze nu is. Ik denk dat er wat door elkaar heen is gegaan in de loop van dit draadje en die andere.

 

[leikew]

Hier is nogmaals gezipt zoals ie tot nu toe was. Niet alle functies werken zoals de afwijkende kilo's en bezetting. De rest werkt prima alleen de datum niet?

Groet leo

 

[edmoor]

Welke datum kies je als voorbeeld?

 

[leikew]

Ja die van vandaag en heb ook een in januari geprobeerd.

 

[edmoor]

Deze werkt bij mij prima:
Bekijk bijlage werkblad 2015 Blauw 002.zip

 

[puppie]

Hoi
gebruik de knop reageer op bericht inplaats van quote, deze heb ik nu maar verwijderd.

 

[leikew]

Deze werkt bij mij prima:
Bekijk bijlage 238297

Yep deze werkt nu bij mij ook.
Alvast bedankt voor de moeite...heb hier heel veel aan.
Zal kijken waar mijn fout zat..
Ga nu lekker slapen om 5 uur rammelt de wekker weer.

Groet Leo

 

[edmoor]

Ok dan. En succes met de cursus

 

[leikew]

Nog een klein vraagje..

Hoi.
Bedankt ik hoop snel te kunnen beginnen aan de cursus, maar dat ligt aan mijn werkgever..

Ik heb nog n vraagje;
Zodra ik de worksheets gereed heb voor gebruik, wil ik graag dat de excelfile niet zichtbaar is en ook niet meer toegankelijk is voor diegene die de data invult.
Dus bij het opstarten van de file wil ik alleen het formulier zien en na het invullen automatisch opslaan en sluiten.

Hoe kan ik dat het beste aanpakken of welke code's moet ik gebruiken?
In de bijlage zit de file die ik bedoel, maar is nog lang niet compleet daar komen nog wat velden bij... (is gezipt net iets te groot)

Alvast bedankt..