Anónimo
Al ingresar un dato en una celda obtener datos
Hola buenas tardes primero que nada de antemano gracias por darte el tiempo de leer mi pregunta
ok yo soy una persona que tiene conocimientos básicos de macros, pero ahora me tope con un problemita te mando un ejemplo con solo algunos campos,,, consiste en que tengo un formulario el cual son simples celdas con bordes y sombreados para que parezca formulario pero no lo es, y una base de datos igualmente en una hoja de exxcel sin formato es simple información en celdas,, la base de datos tiene no_cliente, nombre, ubicación, adeudo, ultimopago, fechault_pago, concepto, saldoactual, y lo que es el "formulario" tiene no_cliente, nombre, ubicación, monto, concepto, fecha y lo que quiero hacer es que al introducir el no_cliente en el formulario automáticamente se rellene algunos datos ademas de que exista una forma de que al imprimir se actualice la base de datos con los nuevos datos, ejemplo
123, juan perez, chihuahua, 4300, 1200, 20-05-10, pago semana 4, 3100,
134, ivan lopez, jalisco, 6450, 1200, 18-05-10, pago semana 2, 5250,
al introducir en el formulario el 134 automáticamente se llene nombre, ubicación
y fecha (no importa si se aprieta algún botón para activar el macro o como sea que se haga) y yo llene monto, concepto, fecha, por ejemplo 1000, pago semana 3, 24-05-10, después al apretar un botón se imprima o imprimiendo normalmente se actualize la base de datos con adeudo=saldoactual, ultimopago=monto, fechault_pago=fecha, concepto=concepto, y eso por ejemplo quedaría de la siguiente manera si 134, ivan lopez, jalisco, 5250, 1000, 24-05-10, pago semana 3, 4250
pues eso seria pero la verdad no pude hacerlo me hice demasiado bolas y no pude completar espero me ayudes de todas formas agradezco el haber leído y espero me entiendas a todo mi chorote
ok yo soy una persona que tiene conocimientos básicos de macros, pero ahora me tope con un problemita te mando un ejemplo con solo algunos campos,,, consiste en que tengo un formulario el cual son simples celdas con bordes y sombreados para que parezca formulario pero no lo es, y una base de datos igualmente en una hoja de exxcel sin formato es simple información en celdas,, la base de datos tiene no_cliente, nombre, ubicación, adeudo, ultimopago, fechault_pago, concepto, saldoactual, y lo que es el "formulario" tiene no_cliente, nombre, ubicación, monto, concepto, fecha y lo que quiero hacer es que al introducir el no_cliente en el formulario automáticamente se rellene algunos datos ademas de que exista una forma de que al imprimir se actualice la base de datos con los nuevos datos, ejemplo
123, juan perez, chihuahua, 4300, 1200, 20-05-10, pago semana 4, 3100,
134, ivan lopez, jalisco, 6450, 1200, 18-05-10, pago semana 2, 5250,
al introducir en el formulario el 134 automáticamente se llene nombre, ubicación
y fecha (no importa si se aprieta algún botón para activar el macro o como sea que se haga) y yo llene monto, concepto, fecha, por ejemplo 1000, pago semana 3, 24-05-10, después al apretar un botón se imprima o imprimiendo normalmente se actualize la base de datos con adeudo=saldoactual, ultimopago=monto, fechault_pago=fecha, concepto=concepto, y eso por ejemplo quedaría de la siguiente manera si 134, ivan lopez, jalisco, 5250, 1000, 24-05-10, pago semana 3, 4250
pues eso seria pero la verdad no pude hacerlo me hice demasiado bolas y no pude completar espero me ayudes de todas formas agradezco el haber leído y espero me entiendas a todo mi chorote
1 Respuesta
Respuesta de macros_excel
1
Te voy a poner un ejemplo de como guardar los datos de las celdas a1, a2 y a3 en la primera fila vacía de la hoja2 en las columnad a, b y c
Primero declaro los valores de celda a variables
a = range("a1").value
b = Range("a2").value
c = Range("a3"9.value
despues me brinco a la hoja2
Sheets("hoja2").select
Hora me posiciono en la oltuma Fila de la columna a de la hoja2
Range("a65536")
Ahora regreso al la ultima celda con datos de la la columna a
End(xlUp)
Ahora selecciona una fila abajo de la ultima celda con datos
Offset(1,0).select
El Cial pegado seria así
Range("a65536"). End("xlUp"). Offset(1,0). select
despues igualo el valor que hay en la variable a con el valor de la celda activa
ActiveCell.value = a
Ahora igualo el valor de la variable b con el valor de la celda activa pero una columna a la derecha
ActiveCell.Offset(0,1).value = b
Ahora igualamos el valor de la variable c con al valor de la celda activa pero dos columnad a la derecha
ActiveCell.Offset(0,2).value = c
De esta forma se llenaran las celdas de las columnas a, b y c de la primera fila vacía en la hoja2.
Para llenar los datos con solo escribir el código del cliente
lo puedes hacer con la función buscarv
=BuscarV(DatoaBuscar,RangodeBusqueda,NumerodeColumnadentrodelrango,2)
PD). En los tutoriales de mi sitio encontraras respuesta a tus interrogantes.
Primero declaro los valores de celda a variables
a = range("a1").value
b = Range("a2").value
c = Range("a3"9.value
despues me brinco a la hoja2
Sheets("hoja2").select
Hora me posiciono en la oltuma Fila de la columna a de la hoja2
Range("a65536")
Ahora regreso al la ultima celda con datos de la la columna a
End(xlUp)
Ahora selecciona una fila abajo de la ultima celda con datos
Offset(1,0).select
El Cial pegado seria así
Range("a65536"). End("xlUp"). Offset(1,0). select
despues igualo el valor que hay en la variable a con el valor de la celda activa
ActiveCell.value = a
Ahora igualo el valor de la variable b con el valor de la celda activa pero una columna a la derecha
ActiveCell.Offset(0,1).value = b
Ahora igualamos el valor de la variable c con al valor de la celda activa pero dos columnad a la derecha
ActiveCell.Offset(0,2).value = c
De esta forma se llenaran las celdas de las columnas a, b y c de la primera fila vacía en la hoja2.
Para llenar los datos con solo escribir el código del cliente
lo puedes hacer con la función buscarv
=BuscarV(DatoaBuscar,RangodeBusqueda,NumerodeColumnadentrodelrango,2)
PD). En los tutoriales de mi sitio encontraras respuesta a tus interrogantes.
Que tal buenas tardes me encanto tu manera de responder ademas de que me ayudo mucho desde ese buen ejemplo, gracias por tu ayuda, he visto tu página y quisiera saber si hay otra forma de ingresar ya que soy de Mexico y no cuento con ninguna de las compañías yo cuento con telcel, habrá otra forma te dejo mi mail por si existe otra forma