Olá, fiz uma parte do codigo em uma planilha separada pois a que é a planilha final está muito pesada com codigos. Na planilha separada o codigo roda perfeitamente, porém quando copio e colo na planilha final ela da um erro:
"erro de definição de aplicativo ou de definição de objeto - 1004"
Tentei pesquisar, mudar parametros mas nao consigo por nada desfazer este problema.
Segue o Codigo. ( o problema ocorre na linha em azul)
Grato.
"erro de definição de aplicativo ou de definição de objeto - 1004"
Tentei pesquisar, mudar parametros mas nao consigo por nada desfazer este problema.
Segue o Codigo. ( o problema ocorre na linha em azul)
Rich (BB code):
LR = Range("A" & Rows.Count).End(xlUp).Row
For rw = 3 To LR
If IsEmpty(Range("AW" & rw).Value) Then
Range("AW" & rw).Value = Date
Range("AW" & rw).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End If
If Range("AW" & rw).Value >= Range("Q" & rw).Value Then
Range("AZ" & rw).Value = Range("Q" & rw).Value - Choose(Weekday(Range("Q" & rw).Value), 3, 4, 4, 2, 2, 2, 2)
Range("AZ" & rw).Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
ElseIf Range("AW" & rw).Value < Range("Q" & rw).Value Then
Range("AZ" & rw).Value = Range("AW" & rw).Value
Range("AZ" & rw).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
If Range("H" & rw).Value <> "" Then
Range("BA" & rw).Select
Range("BA" & rw).Value = "Data prazo já existente, Conferir."
End If
Next rwGrato.
Last edited by a moderator:
