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?
 

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.

Preguntas similares