Macro - Delete multiple rows - Not working perfectly
Hello,
I have a macro and today it doesn't work anymore.
The goal is to keep one date and delete all the others.
I’m attaching the macro ("corrector") and 3 test files. It is necessary to put all the files in one folder. I’m on Excel 2019.
What changes I have to do ? Why it doesn't work anymore?
Thank you
Bastien
I can only guess that your date format changed in your "q" files.
Change This...
To This...
dDate = CDate(sDate)
sDate = Format(CDate(sDate), "dd/mm/yyyy")
And search for sDate
Set rCelA = .Columns(1).Find(what:=sDate, lookat:=xlPart, LookIn:=xlFormulas, searchdirection:=xlNext) Set rCelB = .Columns(1).Find(what:=sDate, lookat:=xlPart, LookIn:=xlFormulas, searchdirection:=xlPrevious)
Last edited by AlphaFrog; 08-23-2021 at 11:30 AM. Reason: sp
Surround your VBA code with CODE tags e.g.;
[CODE]your VBA code here[/CODE]
The # button in the forum editor will apply CODE tags around your selected text.
Hello
Thank you very much, it is working great
it helps me a lot
thank
Bastien
Hi AlphaFrog,
Nice diagnosis, and very impressive mind-reading!
I have a macro and today it doesn't work anymoredidn't really give you a lot to work with
Thanks for all of your contributions on here.
Regards,
Greg M
Thanks Greg.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Bastien43 
Register To Reply
Bookmarks