Então gente eu consegui chegar no seguinte código, o único problema é que ele abre a "pasta de trabalho" que precisa ser verificada mas continua executando a macro na "pasta de trabalho" de controle.
a macro abre a planilha mas não roda as formulas na planilha, roda na planilha errada.
Public Sub Atualizar()
Dim I As Long
Dim wbTarget As Workbook
Dim rFoundCell As Range
Dim vlCelBusca3 As Long
Dim Planilha As String
On Error Resume Next
vlCelBusca3 = Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
For I = 5 To vlCelBusca3
Planilha = Cells(I, 7).Value
Cells(I, 4).Value = FileDateTime(Planilha)
Dim contaerro As Long
Dim lCount As Long
Dim Count As Long
On Error Resume Next
Set wbTarget = Workbooks.Open(Planilha)
CloseIt = True
If Err.Number = 1004 Then
MsgBox "Desculpe, mas este aqrquivo não existe!" _
& vbNewLine & Planilha
Exit Sub
End If
On Error GoTo 0
wbTarget.Activate
Set rFoundCell = Range("A1")
For Count = 1 To 200
For lCount = 1 To WorksheetFunction.CountIf(Columns(Count), "ERRO")
Set rFoundCell = Cells.Find(What:="ERRO", After:=rFoundCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
With rFoundCell
contaerro = contaerro + 1
End With
Next lCount
Next Count
End With
If CloseIt = True Then
wbTarget.Close savechanges:=False
Else
ThisWorkbook.Activate
End If
If contaerro > 0 Then
ThisWorkbook.Sheets("Controle de Cronogramas").Cells(I, 6).Value = "ATUALIZAR!!"
Else
ThisWorkbook.Sheets("Controle de Cronogramas").Cells(I, 6).Value = "formula"
End If
Next I
End Sub
alguem por favor me ajuda, eu preciso rodar o (Cells.Find) dentro do workbook (wbTarget) e fazer a contagem de erros para mostrar na outra planilha.
