Limpiar UsedRange

13/09/2005 - 23:55 por faby1 | Informe spam
Hola a todos, tengo un problema con UsedRange,
Rango = Hoja101.UsedRange.Address
Rango = Replace(Rango, "$A$1", "$A$2")
UserForm7.ListBox1.RowSource = Rango
De esta forma evito cargar filas de mas en el cuadro de lista.
Pero en la hoja donde estan los datos, por mas que los borre
sigue con el rango anterior(si es menor).
Los datos los borro con:
Hoja101.[a2:f300].ClearContents
Tambien probe con Debug.Print.Hoja101.UsedRange.Address
???Como "limpio" o borro los "recuerdos" de esta hoja?

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
14/09/2005 - 09:25 | Informe spam
ola, Fabian !

... tengo un problema con UsedRange
Rango = Hoja101.UsedRange.Address
Rango = Replace(Rango, "$A$1", "$A$2")
UserForm7.ListBox1.RowSource = Rango
De esta forma evito cargar filas de mas en el cuadro de lista.
Pero en la hoja donde estan los datos, por mas que los borre sigue con el rango anterior(si es menor).
Los datos los borro con: Hoja101.[a2:f300].ClearContents
Tambien probe con Debug.Print.Hoja101.UsedRange.Address
Como "limpio" o borro los "recuerdos" de esta hoja?



op1: sin 'asignar' ninguna propiedad a ninguna variable... -solo- si trabajas la hoja activa [p.e.]
ActiveSheet.UsedRange

op2: para otras hojas [las no activas]... 'cuenta' el numero de filas del 'usedrange'...

Lastcell, Reset Last Used Cell
http://www.mvps.org/dmcritchie/excel/lastcell.htm
Automatically Resetting the Last Cell
http://www.j-walk.com/ss/excel/tips/tip73.htm
Reset All Lastcells in the Active Workbook (#resetall)
http://www.mvps.org/dmcritchie/exce...m#resetall

saludos,
hector.
Respuesta Responder a este mensaje
#2 faby1
14/09/2005 - 19:05 | Informe spam
Como siempre Gracias.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida