Funcion para determinar si una celda contiene un dato

27/04/2006 - 10:38 por Laura Pérez de Lema | Informe spam
Hola,

A ver si me podéis ayudar. Necesito filtrar una columna de datos, eligiendo
solo aquellos que no contengan en las posiciones 3 y 4 una serie de
combinaciones, p.e: 51, 52 ,53

Gracias
laura

Preguntas similare

Leer las respuestas

#1 Francisco Mty
27/04/2006 - 11:38 | Informe spam
Estamos hablando de longitudes variables o fijas en las cadenas a filtrar ?

Saludos
Respuesta Responder a este mensaje
#2 Laura Pérez de Lema
27/04/2006 - 13:02 | Informe spam
De longitudes variables.
Gracias por responder
laura


"Francisco Mty" escribió:

Estamos hablando de longitudes variables o fijas en las cadenas a filtrar ?

Saludos


Respuesta Responder a este mensaje
#3 Francisco MTY
27/04/2006 - 23:03 | Informe spam
El resultado deseado es como el autofiltro de excel o bien se puede arrojar
a cualquier otro destino dentro de la hoja, bien sea otra columna, listbox u
otro objeto ?

Atte.
?T Francisco T?
http://groups.msn.com/dadyboy

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."
Respuesta Responder a este mensaje
#4 Héctor Miguel
28/04/2006 - 03:17 | Informe spam
hola, Laura !

... Necesito filtrar una columna de datos, eligiendo solo aquellos
que no contengan en las posiciones 3 y 4 una serie de combinaciones, p.e: 51, 52 ,53...



si estas usando los autofiltros... Y... 'los datos' [en la columna] SON -> textos...
prueba usando [en los autofiltros] los 'comodines' para el [o los] criterio/s del filtrado [p.e.]
-> para ocultar aquellos que en su posicion 3 contienen el numero 5
1) elige 'personalizar' [en los autofiltros]
2) usa el criterio -> no comienza por
3) escribe: -> ??5
[dos signos de 'cierre' de pregunta seguidos por el numero 5]

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
Respuesta Responder a este mensaje
#5 Francisco Mty
28/04/2006 - 09:08 | Informe spam
Mientras comentas cual es el metodo que deseas utilizar observa este codigo y
lo puedes adaptar a tus necesidades
x = InputBox("Seleccionar columna: ", "Columna a filtrar")
misvar = InputBox("Indica valores por par de digitos (4)")
var1 = Mid(misvar, 1, 2)
var2 = Mid(misvar, 3, 2)
MsgBox var1 & " - " & var2
If x = Empty Then End
Cells(1, x).Select
f = 1
Do Until ActiveCell = Empty
Cells(f, x).Select
micade = Mid(ActiveCell.Value, 3, 2)
If micade = var1 Or micade = var2 Then MsgBox "Encontre uno"
f = f + 1
Loo

Lo puedes colocar dentro de cualquier rutina SUB. con ligeras
modificaciones puedes hacer que copiar el contenido de la misma a otro lugar
de la hoja, objeto o toda la fila, como sea conveniente, estuve intentando
igual los valores personalizados del filtro como menciona Hector pero esa
solo es valida para un solo caracter y el comodin * no se puede utilizar.

Comentas si te funciona.

Saludos
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida