............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

TextBox cargar valor debajo de la última celda llena

Ver el tema anterior Ver el tema siguiente Ir abajo

TextBox cargar valor debajo de la última celda llena

Mensaje por GalileoGali el Lun Mar 03, 2008 8:58 pm

Este procedimiento va cargando el dato que se carga en un TextBox de un formulario cada vez que se oprime el commandbutton

Código:
Private Sub CommandButton1_Click()
Hoja1.Cells(Rows.Count, "c").End(xlUp).Offset(1) = TextBox1.Value
TextBox1.Value = Empty
TextBox1.SetFocus
End Sub


End(xlup) es el equivalente a posicionarse en determinada celda y oprimir al mismo tiempo CTRL + FLECHA ARRIBA. Con esto el cursor de estaciona en la Primera Celda No vacia que encuentre hacia arriba, en la misma columna. Con Offset(1), desplazamos el Rango una celda hacia abajo.
SetFocus, ubica el Foco (posición activa del cursor), en el TextBox.

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: TextBox cargar valor debajo de la última celda llena

Mensaje por GalileoGali el Lun Mar 03, 2008 11:24 pm

¿Por qué no recurrir para determinar la ultima celda a SpecialCells(xlCellTypeLastCell)??

Lamentablemente Specialcells(xlCellTypeLastCell) presenta una suerte de bug reconocido por Microsoft,

Podes probar esto:
Pobla con valores la columna 2
hace correr esto

Código:
Sub ultima()
Cells(Columns(2).SpecialCells(xlCellTypeLastCell).Row, 2).Select
End Sub



Ahora borra el valor que contiene la celda que quedo seleccionada, y pone el cursor en cualquier celda de la hoja

volve a hacer correr la macro. Vas a ver que se selecciona la misma celda anterior, que no es lo esperado es decir la ultima celda ocupada en Columna 2

(Se trata de un bug reconocido por Microsoft....)

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: TextBox cargar valor debajo de la última celda llena

Mensaje por GalileoGali el Mar Mar 04, 2008 7:58 pm

Si embargo segun me informa el Sr Sailepaty, que a su vez toma información del MVP DMCRITCHIE: se logra resetear la memoria de Excel y que por ende recalcule el rango y la ultima celda en él mdienate el siguiente artilugio:

Código:
Sub probarSpecialLastCell()
ActiveSheet.UsedRange
 ActiveSheet.Columns(2).SpecialCells(xlCellTypeLastCell).Select
 
End Sub

ver pues cita:
[Tienes que estar registrado y conectado para ver este vínculo]

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: TextBox cargar valor debajo de la última celda llena

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.