Incrementar fórmulas en VBA
Resuelto
Mistral_13200
Mensajes publicados
649
Estado
Miembro
-
Mistral_13200 Mensajes publicados 649 Estado Miembro -
Mistral_13200 Mensajes publicados 649 Estado Miembro -
Hola a todos,
En una hoja de cálculo utilizo la siguiente macro para:
- Crear fórmulas.
- Copiar estas fórmulas en celdas.
- Incrementar estas fórmulas hasta la última fila.
Cuando ejecuto la macro "paso a paso" tengo un error "El método AutoFill de la clase range ha fallado".
Estoy atascado, ¿pueden ayudarme?
Gracias de antemano por su ayuda
Mistral
En una hoja de cálculo utilizo la siguiente macro para:
- Crear fórmulas.
- Copiar estas fórmulas en celdas.
- Incrementar estas fórmulas hasta la última fila.
Sub CalculFeuil()
' Declaración de variables.
Dim UR As String
Dim Club As String
Dim Adh As String
Dim NumFihier As String
Dim DernLigne As Integer
' Calcula la última línea en la columna AE.
DernLigne = Range("AE" & Rows.Count).End(xlUp).Row
' Declaración de las fórmulas.
UR = "=LEFT(RC[13],2)"
Club = "=MID(RC[12],4,4)"
Adh = "=RIGHT(RC[11],4)"
NumFihier = "=CONCATENATE(RC[-3],RC[-2],RC[-1],""01"")"
' Copia las fórmulas en las ubicaciones.
Range("R2").Formula = UR
Range("S2").Formula = Club
Range("T2").Formula = Adh
Range("U2").Formula = NumFihier
' Incrementación de las fórmulas hasta la última fila.
Range("R2").AutoFill Destination:=Range("R3:D" & DernLigne), Type:=xlFillDefault
Range("S2").AutoFill Destination:=Range("S3:E" & DernLigne), Type:=xlFillDefault
Range("T2").AutoFill Destination:=Range("T3:F" & DernLigne), Type:=xlFillDefault
Range("U2").AutoFill Destination:=Range("U3:G" & DernLigne), Type:=xlFillDefault
End Sub
Cuando ejecuto la macro "paso a paso" tengo un error "El método AutoFill de la clase range ha fallado".
Estoy atascado, ¿pueden ayudarme?
Gracias de antemano por su ayuda
Mistral
2 respuestas
Hola
Sin mirar tu código entero, constato que tus Autofill no contienen, en el destino, la celda de origen, lo cual es obligatorio.
Cuando tienes un error así, haces clic en la propiedad o método (Autofill aquí), y presionas F1 y tienes la respuesta:
https://docs.microsoft.com/es-es/office/vba/api/excel.range.autofill?f1url=https%3A%2F%2Fmsdn.microsoft.com%2Fquery%2Fdev11.query%3FappId%3DDev11IDEF1%26l%3Des-ES%26k%3Dk%28vbaxl10.chm144083%29%3Bk%28TargetFrameworkMoniker-Office.Version%3Dv16%29%26rd%3Dtrue
m@rina
--
Innecesario que me hagan sus preguntas en privado. No les respondo.
Sin mirar tu código entero, constato que tus Autofill no contienen, en el destino, la celda de origen, lo cual es obligatorio.
Cuando tienes un error así, haces clic en la propiedad o método (Autofill aquí), y presionas F1 y tienes la respuesta:
https://docs.microsoft.com/es-es/office/vba/api/excel.range.autofill?f1url=https%3A%2F%2Fmsdn.microsoft.com%2Fquery%2Fdev11.query%3FappId%3DDev11IDEF1%26l%3Des-ES%26k%3Dk%28vbaxl10.chm144083%29%3Bk%28TargetFrameworkMoniker-Office.Version%3Dv16%29%26rd%3Dtrue
m@rina
--
Innecesario que me hagan sus preguntas en privado. No les respondo.
Hola Marina,
Gracias por tu respuesta que me fue muy útil, ya que esta mañana, después de una buena noche, resolví mi problema.
Había encontrado en Internet una macro que correspondía a mis necesidades, pero nunca había usado el "Autofill", de ahí mi error al adaptarla a mi archivo.
A menudo recurro a la tecla F1, pero confieso que a veces tengo dificultades para entenderlo todo.
Una vez más, gracias.
Mistral
Gracias por tu respuesta que me fue muy útil, ya que esta mañana, después de una buena noche, resolví mi problema.
Había encontrado en Internet una macro que correspondía a mis necesidades, pero nunca había usado el "Autofill", de ahí mi error al adaptarla a mi archivo.
A menudo recurro a la tecla F1, pero confieso que a veces tengo dificultades para entenderlo todo.
Una vez más, gracias.
Mistral