Code execution is extremly slow

3000 rows.
I can't turn off auto calculations beacuse the code needs to caclulate in each of the rows

I'm sorry, was the first time that I posted a question, i was not sure about the rules.

Currently your code is testing the values of several cells against a number of "IF" statements.
It loops through all your rows.
I would expect the time to reduce if the data is filtered PRIOR to running the code,for 2 reasons:
- fewer rows to loop through
- fewer "IF" statements to test against

"IF" statements are just another way of filtering the data.But Data Filter is much quicker.

If Worksheets("Inputs Pendentes").Cells(RowPendentes, 33).Value = ""
is the same as Data Filter in column 33 with value = ""

If Worksheets("Inputs Pendentes").Cells(RowPendentes, 31).Value = "Não"
is the same as Data Filter in column 31 with value = "Não"

If Worksheets("Input Regras").Cells(RowRegra, 10).Value < Worksheets("Input Regras").Cells(RowRegra, 9).Value
Add a "helper" column to the sheet "Input Regras" with formula =IF(I16>J16,"XX","") in cell J16 and copied down
Then filter in that column for values "XX"


So, you could try the following
1 Add the "helper" column in sheet "Input Regras", apply Data Filter as suggested above
2 Copy the filtered sheet and paste it to a new sheet (only the filtered values will be pasted)
3 Delete sheet "Input Regras" and then rename your new sheet "Input Regras"
4 Filter sheet "Inputs Pendentes" as suggested above
5 Copy the filtered sheet and paste it to a new sheet (only the filtered values will be pasted)
6 Delete sheet Inputs Pendentes" and then rename your new sheet "Input Regras"
7 Amend the code to remove the 3 if statements that are no longer required.

Here is a simplified example (with all the data in a single sheet) to illustrate comments in post#8 above
These 2 macros yield the same results, one by data filter, one by IF statements
Workbook containing macros is attached

Please Login or Register  to view this content.

Please Login or Register  to view this content.