none
RODAR MACRO EM OUTRA PLANILHA. Ajudem por favor RRS feed

  • Pergunta

  • 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.
    • Editado Dizolexx sexta-feira, 2 de agosto de 2013 16:14
    terça-feira, 30 de julho de 2013 18:31

Todas as Respostas