Actualizacion de Datos

17/10/2005 - 04:21 por Jonathan Milla | Informe spam
Muy buenos dias, una consulta, tengo un listado en Excel funcionando como
una base de datos, en el mismo libro tengo una hoja donde me muestra los
campos correspondientes al registro que quiero visualizar.

Ejemplo:
A1 'Escribo el criterio de busqueda para que me muestre en las siguientes
celdas A2 y A3
Con una formula mas o menos asi en las celdas anteriores
=SI(A1<1,"",INDICE([Archivo.xls]datos'!$A$2:$E$50,COINCIDIR(A1,'[Archivo.xls]datos'!$B$2:$B$0,0),1))

A2 'Me muestra Nombre
A3 'Me muestra la edad

me gustaria una idea de como puedo cambiar un valor del registro que estoy
visualizando por ejemplo la edad y que se actualice en en listado, no se si
creando un formulario pero como busco y cambio, ese es mi dolor de cabeza,
les agradeceria su apoyo.

Jonathan.
 

Leer las respuestas

#1 Héctor Miguel
17/10/2005 - 05:16 | Informe spam
hola, Jonathan !

... tengo un listado... como... base de datos
... mismo libro... una hoja... me muestra los campos correspondientes al registro que quiero visualizar.
Ejemplo:
A1 'Escribo el criterio de busqueda para que me muestre en las siguientes celdas A2 y A3
Con una formula mas o menos asi en las celdas anteriores
=SI(A1<1,"",INDICE([Archivo.xls]datos'!$A$2:$E$50,COINCIDIR(A1,'[Archivo.xls]datos'!$B$2:$B$0,0),1))
A2 'Me muestra Nombre
A3 'Me muestra la edad
... como puedo cambiar un valor del registro que estoy visualizando por ejemplo la edad y que se actualice en en listado [...]



1) comentas que ambas hojas son del mismo libro... PERO pones de ejemplo una formula donde 'aparece' el nombre de libro -?-
[eso pudiera significar que se trata de libros diferentes] :))

2) 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] :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares