Ga naar inhoud

Welkom op PC Helpforum!
PC Helpforum helpt GRATIS computergebruikers sinds 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!


Whitebull057franot

Eencel kopieren in functie van de datum.

Aanbevolen berichten


In de Bladmodule van Blad1.

 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$10" Then
        For Each cl In Range("L3", Range("L" & Rows.Count).End(xlUp))
            If cl.Value Like "week" & Range("C10").Value Then
                cl.Offset(, 1) = Range("D10").Value: Exit For
            End If
        Next
    End If
End Sub

 

Deel dit bericht


Link naar bericht
Delen op andere sites

  • Topicstarter
  •    0

    Beste Bakerman,

    bedankt maar ik ben er nog niet. Dit is waarschijnlijk een macro en ik heb daar geen ervaring mee.

    Bij het uitvoeren van deze macro krijg ik een foutmelding 'fout 424' object vereist.

    Deel dit bericht


    Link naar bericht
    Delen op andere sites
  • Topicstarter
  •    0

    Beste EmielDS,

    dit lijkt te werken maar ik vind geen specificaties (formule) in de balk als ik op de cellen sta in de kolom van de weken en het bedrag naast de respectievelijke week.

    Toch bedankt als bewijs dat mijn vraag kan opgelost worden

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

  • Topicstarter
  •    0

    Beste EmielDS,

    ik heb de programmacode gevonden, de door u aangepaste file werkt perfect. Nu moet ik dit in een ander bestand krijgen en daarom heb ik in mijn basis versie het volgende gedaan: Ontwikkelaar op het lint aangemaakt, naar VisualBasic en dan module invoegen. De tekst privateSub ...tot End Sub ingeschreven en opslaan via het opslaanembleem naast VisualBasic. Het resultaat is dat alle waarden van de verschillende weken gelijk worden op basis van de laatste ingave en als ik de programmacode opvraag, er niets in staat.

    Wat doe ik verkeerd?

     

    Mvg en alvast bedankt

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

    kopieer de volledige code

    ga in uw bestand naar het blad waar je de code wil.

    klik onderaan op het tabblad en kies programmacode weergeven

    plak in het venster de code en sluit af op het kruisje

    nu zou het moeten werken

    let wel op dat de waarden in dezelfde cel staan.

    ik heb in de code die hierbij is de uitleg bijgesteld wat ze juist doet.

    test datum (4) (1).xlsm

    Deel dit bericht


    Link naar bericht
    Delen op andere sites
    Gast
    Dit topic is nu gesloten voor nieuwe reacties.

    Logo

    OVER ONS

    PC Helpforum helpt GRATIS computergebruikers sinds juli 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

    ×
    ×
    • Nieuwe aanmaken...

    Belangrijke informatie

    We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.