**Prezados,
Boa tarde! Tenho uma macro que executa alguns processos e segue para o passo de preenchimento de fórmulas, conforme abaixo:
BaseSemMO.Range("AD1:AR1").Value = AUXILIAR.Range("AD1:AR1").Value
BaseSemMO.Range("AE2").FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-12],'4_BASE_PROTOCOLO_448'!C[-30]:C[-22],9,0),""ANTERIOR A 448"")"
BaseSemMO.Range("AF2").FormulaR1C1 = "=TEXT(RC[-1],""MM/AAAA"")"
BaseSemMO.Range("AG2").FormulaR1C1 = "=IFERROR(IF(VLOOKUP(RC[-31],'4_BASE_PROTOCOLO_448'!C[-30],1,0)=FALSE,""NÃO"",""SIM""),""NÃO"")"
BaseSemMO.Range("AH2").FormulaR1C1 = "=IF(RC[-3]=""ANTERIOR A 448"",""ANTERIOR A RESOLUÇÃO 448/2019"",""PROTOCOLADO NA RES. 448/2019"")"
BaseSemMO.Range("AI2").FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-33],'4_BASE_PROTOCOLO_448'!C[-32]:C[-26],7,0),""PROCESSO SEM SOLICITAÇÃO NA 448"")"
BaseSemMO.Range("AJ2").FormulaR1C1 = "=TEXT(RC[-1],""MM/AAAA"")"
BaseSemMO.Range("AL2").FormulaR1C1 = "=IFERROR(DATEVALUE(RC[-20]),"" "")"
BaseSemMO.Range("AM2").FormulaR1C1 = "=IF(RC[-1]="" "",""NÃO ANALISADO"",IF(RC[-1]<DATEVALUE(""12/12/2019""),""ANALISADO ANTES DA 448"",""ANALISADO NA 448""))"
BaseSemMO.Range("AN2").FormulaR1C1 = "=TEXT(RC[-2],""MM/AAAA"")"
BaseSemMO.Range("AO2").FormulaR1C1 = "=IF(RC[-10]=""ANTERIOR A 448"",IF(DATEVALUE(RC[-26])<DATEVALUE(""12/12/2019""),RC[-6],DATEVALUE(RC[-26])),RC[-10])"
BaseSemMO.Range("AP2").FormulaR1C1 = "=TEXT(RC[-1],""MM/AAAA"")"
BaseSemMO.Range("AQ2").FormulaR1C1 = "=NUMBERVALUE(RC[-41])"
BaseSemMO.Range("AR2").FormulaR1C1 = "=IFS(ISERROR(VLOOKUP(RC[-1],'3_AÇÃO_REGRESSO_LISTA_ID_BAJ'!C[-43],1,0)),""NÃO"",RC[-4] = "" "",""SIM"",RC[-4] <> "" "",""NÃO"")"
ESPERA (1)
Depois do processo acima solicito que ela execute o método AutoFill, porém ele é 'ignorado'.
Tentei com as seguintes opções para tentar fazê-lo funcionar:
- 1ª Opção e não funcionou:
LINHAB5T = por volta da linha 180.500
Range("AE2").AutoFill Range("AE2:AR" & lINHAB5T)
ESPERA (1)
BaseSemMO.UsedRange.Columns("AE:AR").Calculate
- 2ª Opção e não funcionou:
Range("AE2:AR2").AutoFill Range(Range("AE2:AR2"), Range("A2").End(xlDown).Offset(0, 43))
ESPERA (1)
BaseSemMO.UsedRange.Columns("AE:AR").Calculate
- 3ª Opção e não funcionou:
Range("AE2").AutoFill Range("AE2:AE" & lINHAB5T) 'Range(Range("AE2"), Range("A2").End(xlDown).Offset(0, 43))
Range("AF2").AutoFill Range("AF2:AF" & lINHAB5T)
Range("AG2").AutoFill Range("AG2:AG" & lINHAB5T)
Range("AH2").AutoFill Range("AH2:AH" & lINHAB5T)
Range("AI2").AutoFill Range("AI2:AI" & lINHAB5T)
Range("AJ2").AutoFill Range("AJ2:AJ" & lINHAB5T)
Range("AL2").AutoFill Range("AL2:AL" & lINHAB5T)
Range("AM2").AutoFill Range("AM2:AM" & lINHAB5T)
Range("AN2").AutoFill Range("AN2:AN" & lINHAB5T)
Range("AO2").AutoFill Range("AO2:AO" & lINHAB5T)
Range("AP2").AutoFill Range("AP2:AP" & lINHAB5T)
Range("AQ2").AutoFill Range("AQ2:AQ" & lINHAB5T)
Range("AR2").AutoFill Range("AR2:AR" & lINHAB5T)
ESPERA (1)
BaseSemMO.UsedRange.Columns("AE:AR").Calculate
- 4ª Opção: não funcionou e apresenta o erro (Erro em tempo de execução '1004': "O método AutoFill da classe Range falhou")
Set fillRange = Range("AE2:AR" & lINHAB5T)
Range("AE2:AR2").AutoFill Destination:=fillRange
If BaseSemMO.Range("AE3") = "" Then
BaseSemMO.Range("AE2:AR2").AutoFill Range(Range("AE2:AR2"), Range("A2").End(xlDown).Offset(0, 43))
End If
ESPERA (1)
BaseSemMO.UsedRange.Columns("AE:AR").Calculate
**Tentei os 04 tipos de métodos acima e nenhum funcionou.
Em qualquer um dos métodos acima se for feito pelo passo-a-passo com a tecla F8, eles funcionam funcionam.**
O que pode ser feito para contornar o erro considerando não perder a eficiência e rapidez?