jaar wijzigen

[ppms]

Hallo,

Ik wil in een reeks E4:E1004 de datum vervangen met een macro b.v. 2010 naar 2011, weet iemand hoe dit kan met een macro.

Had het zelf op deze wijze geprobeerd maar dan kan ik het maar een keer wijzigen.

Sub jaar()
'
' jaar Macro
' De macro is opgenomen op 18-04-2010 door PPMS.
'

'
    Range("E4:E1004").Select
    Selection.Replace What:="2010", Replacement:="2011", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A4").Select
End Sub

Groet PPMS

 

[danny147]

Bestev ppms

Hallo,

Had het zelf op deze wijze geprobeerd maar dan kan ik het maar een keer wijzigen.

Wil je daarna het jaartal naar 2012, 2013 enz.. soms ?
Verwijs dan de code naar een cel (A1) waar je het jaartal daar kan wijzigen.

Replacement:=[A1],

Groetjes Danny. :thumb:

 

[ppms]

Hallo,

Heb de code aangepast maar er gebeurt niets.

Sub jaar()
'
' jaar Macro
' De macro is opgenomen op 18-04-2010 door PPMS.
'

'
    Range("E4:E1004").Select
    Selection.Replace What:=(R2), Replacement:=(S2), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A4").Select
End Sub

Groet PPMS

 

[ppms]

Hallo,

Hij werkt al had dit () en moets dit zijn [] foutje van mezelf.

Bedankt voor de tip Danny.

Groet PPMS

 

[danny147]

Beste ppms

Heb bestandje aangepast met in A1 het nieuwe jaar en in A2 het oude jaar en code ingekort.

Kan je dan ook de vraag op opgelost zetten, onderaan rechts.

Groetjes Danny. :thumb:

 

[ppms]

Danny,

Hij staat nu als opgelost, was zo druk met de macro dat ik dat vergeten was.

Groet PPMS

 

[danny147]

Beste ppms

Heb nog een aanpassing gedaan zie vorig berichtje.

Groetjes Danny. :thumb:

 

[Jack Nouws]

Hallo,

dat kan korter

Sub tst1()
    [E4:E1004].Replace [R2], [S2]
End Sub

of

Sub tst2()
    Rows(5).Replace [R2], [S2]
End Sub

Met vr gr
Jack