Actualizar un listado
Ken Mile
Me gustaria que me ayudaran necesito cambiar un dato de un listado
por
medio de una celda,
Como si fuera un inventario
En este caso tengo el listado en Hoja2 y en la Hoja1 tengo los campos
de la Hoja2 con los datos que quiero cambiar.
ejemplo:
Hoja2 (esta el listado)
A B C
1Nombre Edad Ciudad
2Eduardo 15 Guadalajara
3Luis 16 Veracruz
4Alejandro 14 Monterrey
Hoja1
A B C
1Luis 17 Veracruz
y con el codigo sustituir el 16 por 17 en la hoja2
No se si me explique y espero me puedan ayudar.
Gracias
H�ctor Miguel
excel trae una herramienta integrada que te permite administrar el listado desde (menu) datos / formulario
que te muestra un dialogo desde el cual podras administrar/consultar/modificar/... la base de datos
(y tambien lo puedes mostrar por codigo aun si se trata de una hoja distinta de la hoja activa)
en la version 2007, el comando formulario del (ex)menu de datos es necesario agregarlo a la barra de acceso rapido desde...
-> (boton) office / (boton) opciones de excel / (ficha) personalizar
-> muestras los comandos disponibles en: -> todos los comandos
-> (por orden alfabetico) seleccionas Formulario...(DataFormExcel)
-> y pulsas en el boton Agregar >>
comentas si te resulta suficiente/practico/amigable/... ?
saludos,
hector.
__ OP __
> ... necesito cambiar un dato de un listado por medio de una celda, Como si fuera un inventario
Ken Mile
Si lo he manejado de esa forma aunque me gustaria hacerlo como
mencione el ejemplo si puedes ayudarme por codigo seria mejor. En una
ocasion me contestaron hace tiempo (4 años)pero no lo encuentro.
Me gustaria por codigo, estaba pensando en como tomar la referencia de
donde se encuentra el dato en el listado y mandarla a pegar en esa
referencia, no se si me explique.
Ejemplo:
Si se encuentra dentro del listado en A67, pegar la modificacion en
esa referencia sustituyendo esos datos o sobrescribirlo.
Lo que me interesa es como modifiar un dato sin el formulario, no se
si me explique.
On 13 nov, 15:02, "Héctor Miguel" <NOhemiordiS...@PLShotmail.com>
wrote:
> > No se si me explique y espero me puedan ayudar.- Ocultar texto de la cita -
>
> - Mostrar texto de la cita -
H�ctor Miguel
> ... me gustaria hacerlo como mencione el ejemplo si puedes ayudarme por codigo seria mejor.
> En una ocasion me contestaron hace tiempo (4 a�os) pero no lo encuentro.
> Me gustaria por codigo, estaba pensando en como tomar la referencia de donde se encuentra el dato en el listado
> y mandarla a pegar en esa referencia, no se si me explique. Ejemplo:
> Si se encuentra dentro del listado en A67, pegar la modificacion en esa referencia sustituyendo esos datos o sobrescribirlo.
> Lo que me interesa es como modifiar un dato sin el formulario, no se si me explique...
encontre algunas propuestas para Jonathan Milla (eres tu ?) +/- como sigue:
(hay mas, pero hay algunos detalles aun "oscuros" en estas consultas)
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.
== octubre 16 2005 ==
-> suponiendo que los codigos que buscas segun 'A1' se encuentran en el otro libro [u hoja 'datos'] en el rango 'A2:A50'
y que el rango para las edades esta [en la otra hoja/libro] en el rango 'C2:C50'
y que la nueva edad' la pones [en la misma hoja donde buscas el dato de 'A1'] en la celda 'B3'...
prueba con una macro +/- como la siguiente...
=== en un modulo de codigo 'normal' y que 'ejecutas' desde el mismo libro donde obtienes los resultados ===
Sub CambiarDato()
Dim Fila As Long
With Workbooks("Archivo.xls").Worksheets("datos")
Fila = Application.Match(Range("a1"), .Range("a2:a50"), 0)
.Range("c2:c50").Cells(Fila) = Range("b3")
End With
End Sub
seguramente hara falta mas que un 'ligero' ajuste :(( [pero no das suficiente informacion] :))
== octubre 17 2005 ==
con una ligera variacion al codigo propuesto anterior... prueba con la siguiente macro:
[adapta los parametros que fueran necesarios por si hubiera 'cambios de criterios'] ;)
Sub CambiarDato()
Dim Fila As Long
With Worksheets("datos")
Fila = Application.Match(Range("a1"), .Range("a:a"), 0)
If Not IsEmpty(Range("e3")) Then .Range("a" & Fila) = Range("e3"): _
Range("a1") = Range("e3")
If Not IsEmpty(Range("f3")) Then .Range("b" & Fila) = Range("f3")
If Not IsEmpty(Range("g3")) Then .Range("c" & Fila) = Range("g3")
End With
End Sub