Ga naar inhoud

Eencel kopieren in functie van de datum.


Whitebull057franot
 Delen

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

 

Link naar reactie
Delen op andere sites

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

Link naar reactie
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

Link naar reactie
Delen op andere sites

Gast
Dit topic is nu gesloten voor nieuwe reacties.
 Delen

×
×
  • 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.