Autofil-Autorrelleno
Publicado por Ricard (2 intervenciones) el 27/06/2019 13:02:37
Buenos días. Gracias por vuestra ayuda.
Tengo dos libros de excel. En el primero me aparecen los datos actualizados de personas que aparecen o desaparecen en función de que cumplan unos determinados requisitos que deben justificar mediante documentación.
En este segundo libro tengo hojas enumerados por días (actualización diaria) que copia los datos del libro 1 y en el que he incluido una columna con el título observaciones en el que señalo la documentación que aún le queda por aportar.
Para copiar las observaciones del día anterior lo hago mediante una macro utilizando el código siguiente
que me busca las observaciones del día anterior y me rellena todas las filas hasta la última desde la segunda fila.
El problema se produce cuando solo tengo del día anterior una persona a la que le falta documentación, dándome error en el código
Sin embargo si lo cambio por
el código no me da error
Que puedo hacer para solucionar este problema
Muchas gracias
Tengo dos libros de excel. En el primero me aparecen los datos actualizados de personas que aparecen o desaparecen en función de que cumplan unos determinados requisitos que deben justificar mediante documentación.
En este segundo libro tengo hojas enumerados por días (actualización diaria) que copia los datos del libro 1 y en el que he incluido una columna con el título observaciones en el que señalo la documentación que aún le queda por aportar.
Para copiar las observaciones del día anterior lo hago mediante una macro utilizando el código siguiente
1
2
3
ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC[-14],'" & ActiveSheet.Previous.Name & "'!R1C1:R9C14,14,0)"
Selection.AutoFill Destination:=Range("O2:O" & Range("E" & Rows.Count).End(xlUp).Row)
Range(Selection, Selection.End(xlDown)).Select
que me busca las observaciones del día anterior y me rellena todas las filas hasta la última desde la segunda fila.
El problema se produce cuando solo tengo del día anterior una persona a la que le falta documentación, dándome error en el código
1
Selection.AutoFill Destination:=Range("O2:O" & Range("E" & Rows.Count).End(xlUp).Row)
Sin embargo si lo cambio por
1
Selection.AutoFill Destination:=Range("O1:O" & Range("E" & Rows.Count).End(xlUp).Row)
el código no me da error
Que puedo hacer para solucionar este problema
Muchas gracias
Valora esta pregunta
0
