Anónimo
Ver el ultimo dato agregado en una hoja de excel
Hola amigo gracias por tu respuesta la cosa es que se me paso escribir que también tengo una macro que filtra con el código que me paso usted me muestra efectivamente el ultimo valor pero cundo filtro me muestra es el valor de lo filtrado más no el ultimo valor, me podrías ayudar es con el ultimo valor de la columna así este filtrado algún valor.
Discúlpeme si no me exlique bien
Sin más que decir en lo particular y en espera de tan valiosa respuesta.
Discúlpeme si no me exlique bien
Sin más que decir en lo particular y en espera de tan valiosa respuesta.
Respuesta de calvuch
1
Ja, no vi este dato. Si es así entonces prueba esto:
Sub ultimo_dato()
' muestra en B1 el último dato registrado en columna A
Dim i As Integer
i = Application.WorksheetFunction.CountA(Range("A:A"))
[b1] = Range("A" & i)
End Sub
Lo que hace es contar el numero de elementos de la columna A y agregar en B1 el contenido de la Celda A + el numero de elementos que seria el final de la columna A y por ende el último dato.
¿Ahora si?.
Sub ultimo_dato()
' muestra en B1 el último dato registrado en columna A
Dim i As Integer
i = Application.WorksheetFunction.CountA(Range("A:A"))
[b1] = Range("A" & i)
End Sub
Lo que hace es contar el numero de elementos de la columna A y agregar en B1 el contenido de la Celda A + el numero de elementos que seria el final de la columna A y por ende el último dato.
¿Ahora si?.
Amigo no me funciona veo es el ultimo valor de la celda A397
Amigo no me funciona veo es el ultimo valor de la celda A397y esta columna tiene más valores.
¿Hay celdas vacías entre los datos de A?
Application. WorksheetFunction. CountA(Range("A:A"))
"cuenta" los elementos de A si vas desde A1 hasta A400 y tienes 4 celdas entre ese rango vacías excel entenderá que la referencia de la ultima celda es A396.
Application. WorksheetFunction. CountA(Range("A:A"))
"cuenta" los elementos de A si vas desde A1 hasta A400 y tienes 4 celdas entre ese rango vacías excel entenderá que la referencia de la ultima celda es A396.