ALGUÉM EM AJUDA, ESTÁ DANDO ERRO NA PLANILHA E NÃO CONSIGO ARRUMAR
Sempre aparece: Erro em tempo de execução 1004. O método Paste da classe Worksheet falhou
PESQUISAR Macro
'
'
Range("C6").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = "=VLOOKUP(""*""&R[-2]C&""*"",Lista,2,)"
Range("C8").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = "=VLOOKUP(""*""&R[-4]C&""*"",Lista,3,)"
Range("C10").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(""*""&R[-6]C&""*"",Lista,4,)"
Range("C12").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(""*""&R[-8]C&""*"",Lista,5,)"
Range("A13:F13").Select
End Sub
ALGUÉM EM AJUDA, ESTÁ DANDO ERRO NA PLANILHA E NÃO CONSIGO ARRUMAR Sempre aparece: Erro em tempo de execução 1004. O método Paste da classe Worksheet falhou PESQUISAR Macro ' ' Range("C6").Select ActiveSheet.Paste ActiveCell.FormulaR1C1 = "=VLOOKUP(""*""&R[-2]C&""*"",Lista,2,)" Range("C8").Select ActiveSheet.Paste ActiveCell.FormulaR1C1 = "=VLOOKUP(""*""&R[-4]C&""*"",Lista,3,)" Range("C10").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(""*""&R[-6]C&""*"",Lista,4,)" Range("C12").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(""*""&R[-8]C&""*"",Lista,5,)" Range("A13:F13").Select End Sub