Sigo teniendo problemas con los rangos de celdas con números en el programa Microsoft Excel.
Que tal fejoal, espero me puedas ayudar con lo siguiente, ojala ahora si me explique mejor:
Supongamos que lleno el rango de celdas A1:A10 con números del 1 al 10,
después voy al menu Edicion/Ir a../presiono el botón Especial y después
selecciono la opción Última celda (que según la ayuda selecciona la
ultima celda que contenga datos o formato) y entonces se posiciona en
la celda A10 que es la ultima celda que contiene datos.
Después inserto los números del 11 al 15 en el rango de celdas A11:A15
y vuelvo a hacer lo mismo de arriba (menu Edicion/Ir a..) y ahora se
posiciona en la celda A15 que es la ultima celda que contiene datos.
Hasta acá todo esta bien, pero ¿qué pasa cuando borro el contenido del
rango de celdas A11:A15 y vuelvo a hacer lo mismo (menu Edicion/Ir a..)?
Pues que sigue marcando como ultima celda la A15.
Lo que quiero saber y espero me puedas ayudar es ¿cómo hacer para que
me marque como ultima celda aquella celda que tiene datos? (En este
ejemplo sería la celda A10), ya probé quitarle el formato al rango de
celdas A11:A15 y nada.
Gracias con anticipación y que estés bien...
Supongamos que lleno el rango de celdas A1:A10 con números del 1 al 10,
después voy al menu Edicion/Ir a../presiono el botón Especial y después
selecciono la opción Última celda (que según la ayuda selecciona la
ultima celda que contenga datos o formato) y entonces se posiciona en
la celda A10 que es la ultima celda que contiene datos.
Después inserto los números del 11 al 15 en el rango de celdas A11:A15
y vuelvo a hacer lo mismo de arriba (menu Edicion/Ir a..) y ahora se
posiciona en la celda A15 que es la ultima celda que contiene datos.
Hasta acá todo esta bien, pero ¿qué pasa cuando borro el contenido del
rango de celdas A11:A15 y vuelvo a hacer lo mismo (menu Edicion/Ir a..)?
Pues que sigue marcando como ultima celda la A15.
Lo que quiero saber y espero me puedas ayudar es ¿cómo hacer para que
me marque como ultima celda aquella celda que tiene datos? (En este
ejemplo sería la celda A10), ya probé quitarle el formato al rango de
celdas A11:A15 y nada.
Gracias con anticipación y que estés bien...
1 Respuesta
Respuesta de fejoal
1
Tienes razón. El método de última celda suele provocar errores, sea por formatos o espacios incluidos en las celdas.
Por lo tanto, prefiero que una rutina se ocupe de evaluar las celdas para ver donde termina realmente el rango.
Por ejemplo, este:
Range("A1").Select
Do While Len(ActiveCell) > 1 'cambia este número por cero, si puede ser que las celdas contengan 1 solo carácter
ActiveCell.Offset(1).Select
Loop
Este controla, celda por celda si hay datos y se detiene en la primer celda vacía.
---
O puedes probar con este otro:
Sheets("Hoja3").Select
If IsEmpty(Sheets("Hoja3").Range("A1")) Then
Sheets("Hoja3").Range("A1").Select
Else
Cells(Sheets("Hoja3").Range("A1").CurrentRegion.Rows.Count + 1, 1).Select
End If
Este se basa en un conteo de filas "ocupadas" y también es posiciona en la primera libre (independiente del formato)
Prueba con ellos. Creo que resolverán tu problema.
Que tengas un gran fin de semana.
Fernando
Por lo tanto, prefiero que una rutina se ocupe de evaluar las celdas para ver donde termina realmente el rango.
Por ejemplo, este:
Range("A1").Select
Do While Len(ActiveCell) > 1 'cambia este número por cero, si puede ser que las celdas contengan 1 solo carácter
ActiveCell.Offset(1).Select
Loop
Este controla, celda por celda si hay datos y se detiene en la primer celda vacía.
---
O puedes probar con este otro:
Sheets("Hoja3").Select
If IsEmpty(Sheets("Hoja3").Range("A1")) Then
Sheets("Hoja3").Range("A1").Select
Else
Cells(Sheets("Hoja3").Range("A1").CurrentRegion.Rows.Count + 1, 1).Select
End If
Este se basa en un conteo de filas "ocupadas" y también es posiciona en la primera libre (independiente del formato)
Prueba con ellos. Creo que resolverán tu problema.
Que tengas un gran fin de semana.
Fernando
Me parece buena solución la que me diste, siempre y cuando no haya espacios entre textos pegados, cosa que no siempre puedo controlar. Voy a ampliar la segunda rutina que me diste para que encuentre la ultima región actual y con esto suplantar al ultima celda que me ha fallado, Gracias.
