capturador de datos

[APRENDIZ]

Buenos dias.. alguien me puede indicar como hacer para que mediante un boton de comando, al digitar un valor en una celda específica me lleve dicho valor a una tabla y me la copie al final de...

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í

 

[mjrofra]

Hola APRENDIZ,

suponiendo que el dato lo ingresas en d3 y que los quieres ir pasando a la columna a, puede que esto funcione:

Private Sub CommandButton1_Click()
    Range("a" &...

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]

Range("a" & Rows.Count).End(xlUp)(2)

(2)!!!!!!!

Notación muy económica y transparente. Me gustó!!!
GALILEOGALI
https://foro.todoexcel.com/

 

[APRENDIZ]

Muchas gracias, eso era lo que necesitaba, y una ultima pregunta, si yo quiero que el me almacene los datos no en hacia abajo si no hacia el lado derecho, es decir en la fila a1, a2, a3...

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í

 

[APRENDIZ]

Alguien me puede colaborar con la última pregunta..

Muchas gracias

 

[Adrian]

Hola, no tengo "a mano" el 2007, creo que debes ver OffSet, "corrimiento" si se permite el término.
Range("a" & Rows.Count).End(xlUp)(2).Offset(Filas,Columnas)
Donde Filas si es >0 "Baja" y <0...

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í

 

[morfeo]

Hola excelmaniaticos, si asi los puedo llamar... viendo el hilo de este foro y buscando en algunas herramientas que he descargado de este mismo foro, estoy adjuntando un super codigo que sirve...

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í

 

[morfeo]

listo compañeros ya pude realizar la variación al codigo, quedaria asi

With Sheets("archivo").Range("A:A")
Set zz = .Find(What:=TBf.[no_facture].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í