Foros del Web » Soporte técnico » Ofimática »

Mostrar datos en base a el valor de una celda

Estas en el tema de Mostrar datos en base a el valor de una celda en el foro de Ofimática en Foros del Web. Buenas tardes He tratado de buscar en el Foro algo similar a lo que necesito pero como no he tenido mucha suerte por aqui lo ...
  #1 (permalink)  
Antiguo 06/05/2010, 01:12
 
Fecha de Ingreso: diciembre-2009
Mensajes: 24
Antigüedad: 12 años
Puntos: 0
Mostrar datos en base a el valor de una celda

Buenas tardes

He tratado de buscar en el Foro algo similar a lo que necesito pero como no he tenido mucha suerte por aqui lo dejo a ver si alguien puede ayudarme.

Pues bien, estoy tratando de hacer una especie de plantilla en un libro excel2000 de tal manera que la hoja 2 contiene una tabla con datos (en varias columnas) y en la hoja 1 pretendo mostrar los valores de la tabla de la hoja 2 que tengan por ejemplo el campo "Ubicación igual a Paris".

Esto para una sola linea de la hoja 2 he conseguido hacerlo con BUSCARV (buscando en la columna "Ubicación" el valor Paris y mostrando las columnas que esten en esa misma fila. El problema me surge cuando existen varias filas con el campo "Ubicación"=Paris.

Se que esto se peude hacer (mas o menos) utilizando la opcion Sub-totales pero me gustaria poder hacerlo por formulas o VB.

Un saludo
  #2 (permalink)  
Antiguo 06/05/2010, 14:01
Avatar de Monimo  
Fecha de Ingreso: noviembre-2007
Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 14 años
Puntos: 69
Respuesta: Mostrar datos en base a el valor de una celda

Lo ideal seria recorrer toda la hoja con next y next asi:

supongamos que tienes tres columnas llenas de datos a,b y c y en c tienes la ubicacion. Podrias leer, todas las celdas de la columna c y donde valor_celda_de_la_columna_c="Paris" traer todo el renglon.

si lo encuentras muy trabajoso podrías intetntar esta macor:


on error resume next
Cells.Find(What:="Paris", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
y ke lo haga mientras no haya error.
* aqui escribes en la otra hoja.....
*seleccionas la hoja 2 de nuevo

Cells.FindNext(After:=ActiveCell).Activate

Etiquetas: celda
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 21:25.