Beste Excellers,
Ik heb een macro in mijn werkblad met o.a. onderstaande code die volgens mij veel korter kan.
Wie kan mij hierbij helpen?
[HTMLColumns("K:K").Select
Selection.Replace What:="1/1/2021", Replacement:="1/4/2021", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("K:K").Select
Selection.Replace What:="1/2/2021", Replacement:="1/4/2021", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="1/3/2021", Replacement:="1/4/2021", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
][/HTML]
Bij voorbaat dank.
Ik heb een macro in mijn werkblad met o.a. onderstaande code die volgens mij veel korter kan.
Wie kan mij hierbij helpen?
[HTMLColumns("K:K").Select
Selection.Replace What:="1/1/2021", Replacement:="1/4/2021", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("K:K").Select
Selection.Replace What:="1/2/2021", Replacement:="1/4/2021", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="1/3/2021", Replacement:="1/4/2021", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
][/HTML]
Bij voorbaat dank.