Ocultar filas si coinciden los primeros caracteres de una celda

[francis75]

Buenas necesito de vuestra ayuda con lo siguiente:

1. Se selecciona de la lista una de las 4 opciones.

2. Si selecciono TODAS deben mostrarse todas las filas con datos.

3. Al seleccionar una de las otras 3 opciones la macro debe: obtener los 3 primeros carácteres de la opción sin incluir los espacios y en mayúsculas. Esto lo consigo con este código proporcionado por Héctor Miguel:

Mayus = UCase(Left(Replace(Target, " ", ""), 3))

3. Con el resultado obtenido, en el ejemplo: IZ UNIDO (con los 3 primeros carácteres el Id para buscar es IZU) , buscar en la columna D si existe algún registro que empiece con IZU.

4.Ocultar las filas que no coincidan. En este caso hay que ocultar la fila 7 y 8.

Saludos.

OcultarFilas.xls

[chkenshin]

no puedo subir archivos, pero coloca esto en el código de "HOJA1"

Private Sub Worksheet_Change(ByVal Target As Range)
Dim mayus As String
If Target.Address = "$F$2" Then
    mayus = UCase(Left(Replace(Target, " ", ""), 3))
    Call cambia_filtro(mayus)
End If
End Sub

[/PHP]

y esto en un modulo

[PHP]Sub cambia_filtro(mayus As String)
With ActiveSheet
.AutoFilterMode = False

If mayus <> "TOD" Then
Range("D4").Select

With Selection.CurrentRegion
.AutoFilter Field:=3, Criteria1:="=" & mayus & "*", _
Operator:=xlAnd
End With
End If
End With
End Sub

[/PHP]

[francis75]

Gracias compañero.Tema solucionado!!

Saludos.