Buscar ultima fila que contiene valores y mostrar el contenido de la fila en MsgBox
Regreso nuevamente con otra consulta, tengo un libro que me almacena algunos registros desde un formulario, me gustaría saber como hago para que al cargar el formulario me aparezca un MsgBox con el ultimo registro que se ingreso, para ello trate de usar el siguiente código
Sub ultima_celda() Dim UltimaFila As Long If WorksheetFunction.CountA(Cells) > 0 Then UltimaFila = Cells.Find(What:="*", After:=[A1], _ SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row MsgBox UltimaFila, vbInformation, "Ultimo registro ingresado" End If End Sub
pero al ejecutarlo solo obtengo el numero de la fila en el MsgBox..
Pero lo que yo quiero, en caso de que se pueda, es que el MsgBox me muestre un mensaje similar al siguiente:
El ultimo registro ingresado fue T00019024, y pertenece al paquete 31
1 respuesta
Me pasa esto al ejecutarlo Dante
Es posible que tengas espacios en blanco después de tu último dato de la columna "A"
¿Puedes revisar qué tienes en la última fila de la columna "A"?
Después del último dato que veas en la columna "A", presiona la tecla <Fin> y después presiona la tecla <Flecha abajo>, si el cursor se detiene antes de llegar al final de la hoja, quiere decir que tienes espacios en blando, elimina esos espacios y vuelve a probar.
Espero tus comentarios.
O prueba con esto, es lo que tenías, solamente cambié el mensaje
Dim u As Long If WorksheetFunction.CountA(Cells) > 0 Then u = Cells.Find(What:="*", After:=[A1], _ SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row MsgBox "El ultimo registro ingresado fue " & Cells(u, "A") & ", y pertenece al paquete " & Cells(u, "B") End If
El resultado es el mismo, pero prueba si te funciona.
¡Gracias!
Tal como decías, si, había unos espacios en blanco, y pues precisamente para eso use el código que mostré inicialmente porque omite esos espacios vacíos...
Como siempre, gracias por tu tiempo y paciencia...
y si no es mucho pedir, agradecería que echaras un vistazo a este hilo
