• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Gegevensinvoerblad naar Logboek op datum

Status
Niet open voor verdere reacties.
D

djongste

Gebruiker
Lid geworden
12 mrt 2019
Berichten
11
Ik heb de volgende uitdaging;

Ik heb een voorblad, daarin staat de datum van =vandaag()
Daarin wil ik enkele cellen vullen met gegevens voor mijn logboek (type training, duur, enz)

Op "blad2" staat een lijst met de datums van het jaar.
Dan zou ik op mijn voorblad de betreffende gegevens van die dag willen invoeren.
En dan zou die het op blad 2 moeten invullen bij de betreffende dag.

Ik heb al wat zitten knutselen, maar ik krijg het niet goed.
Wellicht kan iemand hier helpen.

Bijgevoegd ook een proefbestandje.
 

Bijlagen

  • Oefenblad Excel.xlsx
    16,5 KB · Weergaven: 30
Hiermee?

Code: 
Sub VindDagVanVandaag()
With Sheets("Totaal Overzicht").Cells(Application.Match([F1], Sheets("Totaal Overzicht").Columns(3), 0), 3)
    .Offset(, 1) = [C4]
    .Offset(, 2) = [C3]
    .Offset(, 3) = [C6]
End With
End Sub
 
Ja, Dankje!

Perfect!

Is er nu ook nog een optie dat hij de velden in de eerste pagina leeg maakt nadat ik op gereed heb gedrukt (waar die macro in zit)
 
Jazeker:

Code: 
Sub VindDagVanVandaag()
With Sheets("Totaal Overzicht").Cells(Application.Match([F1], Sheets("Totaal Overzicht").Columns(3), 0), 3)
    .Offset(, 1) = [C4]
    .Offset(, 2) = [C3]
    .Offset(, 3) = [C6]
End With
Range("C3,C4,C6").ClearContents
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan