Recorrer base de datos EXCEL

28/06/2004 - 14:05 por Lorenzo | Informe spam
Buenas tardes a tod@s.

Antes de nada, necesito codigo de programacion, no formulas Gracias.

Necesito un medio rapido para recorrer una serie de celdas organizadas en
columnas para buscar un valor en la celda de la izquierda y asignar el valor
de su celda de la derecha a una determinada celda de la hoja. Os pongo un
ejemplo un poco mas grafico, pues me explico como un libro cerrado.

Aplicacion de base de datos basica. Hoja adicional con listado de codigos
postales. A la hora de introducir un registro nuevo (fila) al poner el
codigo postal quiero que me complete los datos de localidad y provincia
automaticamente. Tengo una hoja adicional (Cod. Postales) con los
correspondientes codigos postales. Uso el metodo "Change" para determinar un
cambio en la columna donde estan los codigos postales de la base de datos.
Necesito que cuando se lanze el evento mediante codigo recorrer la tabla de
cod. postales y completar las celdas de loc. y provincia automaticamente.

Se os ocurre algo ????

P.D. Cada dia ire incrementando la base de datos de codigos postales, por lo
que necesito que el rango de consulta de los codigos sea dinamico.

Gracias a todos por vuestra ayuda.-

Lorenzo / Malaga / España
 

Leer las respuestas

#1 Henry Sanchez
28/06/2004 - 14:34 | Informe spam
Hola Lorenzo,

Prueba el uso de For Each para recorrer la columna con
los Datos (Previamente debes haber nombrado esta columna,
puedes ponerle por ejemplo Codigos).
Adapta el siguiente codigo:

Dim varCelda As Variant
For Each varCelda in Codigos
If varCelda.Value=Codigo Then
DeterminadaCelda.Item(1,2).Value = varCelda.Item
(1,2).Value
DeterminadaCelda.Item(1,3).Value = varCelda.Item
(1,3).Value
Exit For
End If
Next varCelda

Otra posibilidad es que uses el metodo Find:
DeterminadaCelda.Item(1,2).Value = Range("Codigos").Find
(What:=Codigo, LookIn:=xlValues, Lookat:=xlWhole).Item(1,
2).Value

Aunque personalmente he tenido problemas con el uso de
este ultimo metodo cuando el texto a buscar (en este caso
codigo) es extenso.

Saludos,

Henry
Mostrar la cita
formulas Gracias.
Mostrar la cita
celdas organizadas en
Mostrar la cita
izquierda y asignar el valor
Mostrar la cita
hoja. Os pongo un
Mostrar la cita
libro cerrado.
Mostrar la cita
listado de codigos
Mostrar la cita
(fila) al poner el
Mostrar la cita
localidad y provincia
Mostrar la cita
Postales) con los
Mostrar la cita
metodo "Change" para determinar un
Mostrar la cita
la base de datos.
Mostrar la cita
recorrer la tabla de
Mostrar la cita
automaticamente.
Mostrar la cita
codigos postales, por lo
Mostrar la cita
dinamico.
Mostrar la cita

Preguntas similares