Olá pessoal, Estou automatizando uma série de planilhas do Excel e em uma delas está ocorrendo este erro: Erro em Tempo de Execução: '13' - Tipos Incompatíveis. A linha selecionada ao depurar o erro está em vermelho. Alguém tem idéia do que está gerando este erro? O código segue abaixo: Sub atrasos_gerencia() ApStMi = 0 ManStMi = 0 ManStCm = 0 ManStIp = 0 outro = 0 Sheets("CCATP-ST").Select LinhaFinalCC = Cells(65536, 1).End(xlUp).Row Range("A2:C" & LinhaFinalCC).Name = "gerencias" Sheets("ATP-ST").Select LinhaFinal = Cells(65536, 1).End(xlUp).Row Range("I1").EntireColumn.Insert Range("I2").Value = "Ger" Range("I3:I" & LinhaFinal).FormulaR1C1 = "=VLOOKUP(RC7,gerencias,3)" Range("I3:I" & LinhaFinal).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False For i = 3 To LinhaFinal Select Case Cells(i, 9).Value Case "Manutenção ST/MI" ApStMi = ApStMi + 1 Case "Manutenção ST/MI" ManStMi = ManStMi + 1 Case "Manutencao ATP/ST/CM" ManStCm = ManStCm + 1 Case "Manut ATP-ST/IP" ManStIp = ManStIp + 1 Case Else outro = outro + 1 End Select Next i Range("I1").EntireColumn.Delete Sheets("Plan1").Select Cells(3, 2) = ApStMi Cells(4, 2) = MantMi Cells(5, 2) = ManStCm Cells(6, 2) = ManStIp End Sub Obrigado!!!!
