Como Paso Los Datos De Celda En Celda

[javila]

MIRE LOS QUE PASA ES QUE INTENTO QUE UN TEXBOX PASE DATOS DESDE LA CELDA B16.....LUEGO ESCRIBIR OTRO DATO EN EL MISMO TEXBOX Y PASE A LA CELDA DE ABAJO Y ASI SUCESIVAMENTE Y ...NO HE PODIDO!! SE...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Esta instruccion carga el valor que esta en Textbox en la celda siguiente a la última llena

Private Sub CommandButton1_Click()
Hoja1.Cells(Rows.Count, "c").End(xlUp).Offset(1) = TextBox1.Value...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[p@li]

Hola Javila,
Me gustarí­a saber como lo hacés desde la primera, y en base a eso explicarte cómo se hace desde una especí­fica.

 

[p@li]

Jajaja, me gano de mano Gali...

 

[javila]

MAS ME3NOS ASI LO HACIA NATES PERO AHORA NECESITO DESDE LA CELDA B16 PERO NO HE PODIDO



Private Sub Ingreso_Click()
Dim Dia, Año, hora, Minuto As Long
Dim mes As String
Proximafila =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[javila]

Lo que sucede es que el primer valor que sacamos del texbox...es de una celda fija la b16, pero luego debe seguir hacia abajo insertando valores

 

[p@li]

Algo así­?
Range("b6")=TextBox
Cells(Rows.Count, "b").End(xlUp).Offset(1) = format(now,"d / mmmm / hh : m")

Si no llega a ser así­ me doy por vencido

 

[galileogali]

Application.WorksheetFunction.CountA(Range("B:B")) + 1

Claro esto te servia cuando arrancabas de B1, porque cuenta cuantos elementos texto o numeros hay en la columna desde la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[p@li]

Gali,
Pensando en algo más genérico se me ocurrió lo siguiente, y a la vez tengo una consulta para hacerte o hacerle a cualquiera que tenga intención de responderme.
Por qué no se usa la función...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

P@LI:

Pobla con valores la columna 2
hace correr esto

Sub ultima()
Cells(Columns(2).SpecialCells(xlCellTypeLastCell).Row, 2).Select
End Sub


Ahora borra el valor que contiene la celda que quedo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[javila]

no me ha servido...`pues me toma otro rango tu solucion galeoni ademas no me deja seguir escribiendo desde el texbox....solo pone un 0 enb la celda b23 ..no se que pasa....y la solucion de Pali me...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[p@li]

Gracias Gali,
Ni me imaginaba que era un bug!!, pero me di cuenta que si eliminas las celdas que tení­an datos, en principio tiene error, pero después de guardar el archivo toma bien la celda.

 

[galileogali]

Si es cierto una vez se guarda el libro recupera el procedimiento correcto, pero una vez y despues nuevamente a las "andadas"

 

[sailepaty]

Una alternativa para no tener que salvar el archivo y redefinir el rango real utilizado.

Sub Ultima()
    [b][size=4]ActiveSheet.UsedRange[/size][/b]...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[javila]

la solucion efectiva ...con una modificacion fue la de gali sin desmerecera los demas ...por mi parte subestime la pregunta pues fu todo un dia de cabeceo hasta que use la formula


Dim filaFull...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí