Posts by cobber1418

Thanks very much, yet again

Hi KjBox , you provided the attached code for me which has been working very well, but after 1/1/2020 it stopped. It now only counts dates after 1/1/2020...nothing with 2019. Could you please check it for me, thanks in advance.

Ozgrid_Cobber_Counts KJBox Code for all Countifs.xlsm

Hi Carim and KJbox, I tested them both by changing the time and date on my computer and they both work great. Thanks very much.

Hi, I assume I need to insert the date in A1 before I run the macro. Unfortunately that is not an option because the report is automatically sent to several people and they will be running the macro from their computers. I need to be able to just open the report and run the macro.

So if your original one works I will stick with it.....will it work?

Hi, the date on the computer will be the days date when I run it......so the way I was testing it was the problem?

I assume if I run your code actually in Feb it will be OK....is that correct?

Hi, I use the macro at work where I can't change the time on my computer....I was test it at home on my computer.

I assume the reference date would be on the computer....I don't reference a date when I run the macro.

What do you think I should do, just leave today or replace it with date?

Quote from Carim

Just noticed you might need a macro solution ...

Code

1. Sub TestPreviousQuarter()
2. MsgBox Evaluate("=""Q""&ROUNDUP((MONTH(Today())/3)-1,0)")
3. End Sub

Hi Carim I used your code for this quarter and it's fine but I changed the time and date on my computer to Feb 2020 test it for next quarter and it returned Q-1 instead of Q4. All other quarters were fine when I also tested them. What do you think the problem might be. The exact code I used is below. Thanks in advance. PS, Ingo's doesn't work either.

Absolutely magnificent......thanks so much yet again.

The report is sent automatically to them, I'm just making the macro for them to use.

Yes....I know it's scary me making the macro

Several people receive a report via email and they need to just run this macro on the report from their computer.

Hi KJ, is that VBA? I need it in VBA.

Also, if the cell is blank I would like no colour if possible, cheers.

Hi, I am trying to use the below code to change the colour of the cells if less than 10, or equal to or greater than 10. It works great on normal numbers but mine is in % format and it does not work. What do I need to change for it to work?

Also, is it possible to do additional ranges in the same sub, I need "O5:O22", "U5:U22", "AA5:AA22" or do I need a sub for each range.

Any alternative codes are fine with me, I'm using it in Personal.

Thanks in advance.

You're a genius......that worked, it does all the sheets.

Thanks heaps for your perseverance.......much appreciated

Ok, see attached.

Sorry, missed that one. The users will only print which sheets they need.

I posted the macro above.....but it only does one sheet at a time. Will With Workbook work somehow? I tried without luck.

Sorry, I best not.....it has work stuff on it.

It has 10 sheets, if that helps.

But it only works on the one sheet I activate and set it on........can I do all the pages with one sub or do I have to activate each sheet individually and run the code for each, cheers.

Hi, I think I have it compacted down to this.....but how can I do it for all sheets, or do I have to do each sheet individually?

Hi, I need a VBA code to set the print preferences for all the worksheets in my workbook (in Personal) to narrow margins, landscape and A3.......hopefully with one sub to do all the sheets at once. Cheers.