¡Buscando programación de funciones VB que pueda filtrar más de tres condiciones!
Esto no cumple con los requisitos: (método estúpido, nivel limitado)
Sub sx()
Dim a, b, c As String, x, i As Integer
a = InputBox("Ingrese cualquier letra del alfabeto A ~ D", "Unidad de informe")
b = InputBox("Ingrese la categoría:
c = InputBox( "Ingrese el grupo responsable", "Grupo responsable")
Para i = 4 a 15
Si a = Celdas(i, 3) y b = Celdas(i , 4) Y c = Celdas(i, 6) Entonces x = x Celdas(i, 5)
Siguiente i
Celdas(17, 4) = "Unidad de inspección: " amp; a amp; " amp " Categoría: " amp; b amp; " amp; " Grupo responsable: " amp; c amp; " " amp; " Número de fallas: " amp; c amp; " amp; " Número de fallos: " amp; x
End Sub