Macro para buscar bajo 2 condiciones

En el rango B10:B29 tengo una lista de nombres,

Como encabezados y como la primera de referencia

En la celda F8 tengo la letra "J" en referencia al día JUEVES

En la celda G8 tengo la letra "V" en referencia al día VIERNES

En rango F10:F29 unas personas que están en el rango B10:B29 tienen letras de "M"

Y otras tiene la letra "T" al igual que en

G10:G29 unas personas que están en el rango B10:B29 tienen letras de "M"

Y otras tiene la letra "T"

Lo que necesito es buscar a aquellas personas de en "J" pero unicamente con los que tengan la letra "M"

Ejemplo:

ESTA es la lista que comento

 a un lado quisiera la formula para buscar bajo dos condiciones algo asi:

Para que cuando ponga J que es día

Y luego ponga T solo me arroje 1 persona

Ya hice hace unas horas la misma pregunta pero ahora quisiera ayuda convirtiendola en codigo

1 Respuesta

Respuesta
2

Va la macro

Sub Nombres()
'Por Dante Amor
    dia = Range("K8").Value
    Set b = Range("F8:G8").Find(dia, lookat:=xlWhole)
    If Not b Is Nothing Then
        col = b.Column
    Else
        MsgBox "No existe el día"
        Exit Sub
    End If
    '
    turno = Range("K9").Value
    fila = 10
    Range("J10:J" & Rows.Count).ClearContents
    For i = 10 To Range("B" & Rows.Count).End(xlUp).Row
        If Cells(i, col).Value = turno Then
            Cells(fila, "J") = Cells(i, "B")
            fila = fila + 1
        End If
    Next
End Sub

sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas