Actualizar un listado

13/11/2009 - 15:00 por Ken Mile | Informe spam
Hola a todos,

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

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
13/11/2009 - 22:02 | Informe spam
hola, !

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
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.
Respuesta Responder a este mensaje
#2 Ken Mile
17/11/2009 - 21:19 | Informe spam
Muchas gracias Miguel,
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"
wrote:
hola, !

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
> 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.- Ocultar texto de la cita -

- Mostrar texto de la cita -
Respuesta Responder a este mensaje
#3 Héctor Miguel
18/11/2009 - 07:38 | Informe spam
hola, !

... 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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida