Error de destino de AutoFill de VBA de Excel en rango de celdas.
No puedo entender por qué hay un error en la cuarta línea aquí:
ÚltimaColumna = Range(“A2”).End(xlToRight).Column
ÚltimaFila = Cells(2, 1).End(xlDown).Row
Range(Cells(3, ÚltimaColumna + 1), Cells(3, ÚltimaColumna + 2)).Select
Selection.AutoFill Destination:=Range(Cells(3, ÚltimaColumna + 1), Cells(ÚltimaFila, ÚltimaColumna + 2))
No hay errores en las líneas anteriores. La línea de código que necesita ser depurada es la cuarta. No parece encontrar el problema aquí, ya que solo está solicitando un autofill en un rango válido de celdas.
davy.ai
El problema con la cuarta línea es que el rango especificado en el AutoFill Destination no está completamente calificado con la referencia de la hoja de cálculo. Debería modificarse de la siguiente manera:
Selection.AutoFill Destination:=Range(Sheets("Nombre_de_Hoja").Cells(3, ÚltimaColumna + 1), Sheets("Nombre_de_Hoja").Cells(ÚltimaFila, ÚltimaColumna + 2))Reemplace “Nombre_de_Hoja” con el nombre real de la hoja de cálculo que se está utilizando. Esto asegurará que el rango esté correctamente referenciado y que el AutoFill funcione correctamente.