It's my first time posting, although I've been reading from this forum for a while now.
Lets see if anyone can help me with this code.
The code works fine, it does what it's supposed to, but it takes ages to do it. And by ages I mean over 9 mins. And the truth is that I need to run it on 8 sheets. So over 9 mins x 8 sheets = a life time
As a backgroud of my spreadsheet, let me tell you that it's a 65 Mb file. It has a conection to a folder, where it gathers de data as a data model. It has 15 sheets. In most of the there are pivot tables conected to the data model.
Here is the code
Dim q As Range
For Each q In Range("B53:JJQ53")
If q.Value = "" And q.Offset(-1, 0).Value = 5 Then
q.Value = Now
ElseIf q.Value <> "" And q.Offset(-1, 0).Value <> 5 Then
q.Value = ""
Can anybody give me a hand with this??