Copiar datos última fila a otra hoja en Excel VBA
Necesito ayuda para resolver un problema que me he encontrado al resolver el proyecto.
Me gustaría saber como puedo hacer una macro, que me recorra una serie de hojas (longitud1, longitud2, longitud3...) de un archivo de excel, detectando el valor de la ultima fila (de la columna A) en cada una de ellas, y copiandolo en otra hoja del libro que se llama "Buscar" (en la columna A).
En la imagen 1 podéis ver el aspecto de las hojas que quiero recorrer (quiero obtener el último valor de la columna A).
En la imagen 2 se puede ver a hoja donde quiero pegar esos resultados (a partir de A2 hacia abajo).
Si necesitan más información me lo pueden decir. Espero y deseo que me puedan ayudar ya que lo necesito para continuar con mi proyecto.
Un saludo,
Marta.
1 respuesta
Esta macro recorre todas las hojas, busca la ultima fila de cada hoja y la pega en la hoja buscar debajo del ultimo dato, durante dicho recorrido ignora la hoja buscar
Sub buscar_ultima_fila()
x = 1
For Each hoja In Worksheets
If UCase(Sheets(hoja.Name).Name) <> "BUSCAR" Then
filas = WorksheetFunction.CountA(Sheets(hoja.Name).Range("a:a"))
ultima = Sheets(hoja.Name).Range("a1").Cells(filas, 1)
Sheets("buscar").Range("a2").Cells(x, 1) = ultima
x = x + 1
End If
Next hoja
Range("a1").CurrentRegion.EntireColumn.AutoFit
End Sub
Ojo, que esa no es la mejor manera de buscar la ultima fila con datos en una columna - Andy Machin
¿Y según tu cual es la mejor manera?, ¿Y para quien no es la mejor manera? A mi me funciona muy bien y es bastante rápida - James Bond
con range.end salud2s - Andy Machin
´Pues si esa solución funciona para ti que bien yo la he usado en ocasiones y prefiero usar la mía, Saludos - James Bond
Pues eso es raro, pero esta bien :) - Andy Machin