Eencel kopieren in functie van de datum.

[Whitebull057franot]

Hallo,

Ik wil een cel kopiëren (die op dezelfde plaats blijft staan) maar waarvan de waarde veranderd.

Het is moeilijk uit te leggen, maar de bijlage schept meer duidelijkheid.

 

Alvast bedankt

test datum.xlsx

[bakerman]

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

 

[emielDS]

of zoiets zoekt of vult een week in.

test datum (4).xlsm

[Whitebull057franot]

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.

[Whitebull057franot]

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

[emielDS]

het werkt niet metformules (uitgezonderd voor het bepalen van de week)

 

de code staat achter blad 1 ( blad1 rechterklik programmacode weergeven)

als er nog vragen zijn stel ze maar.

[Whitebull057franot]

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

[emielDS]

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

[Whitebull057franot]

Beste EmielDS,

Prachtig, het werkt ook nu bij mij.

Tevens mijn dank voor de bijgevoegde uitleg.

Mvg, Franky N

[emielDS]

Graag gedaan.