Ejecutar filtro en libro excel
Experta elsa como puedo ejecutar este filtro para cada una de las hojas del libro
Pero que el filtro actúe con las columnas unidas y no por separado
Sub Filtrando()
Dim nrox As String
Application.ScreenUpdating = False
Range("AI1:AL219").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("AR1:AU2"), CopyToRange:=Range("AR3:AU280"), Unique:=True
finx = Range("AR" & Rows.Count).End(xlUp).Row
If finx > 3 Then
'se arman los números concatenados en AW si no tienen X
finy = Range("AW" & Rows.Count).End(xlUp).Row + 1
For z = 4 To finx
nrox = Format(Range("AR" & z) & Range("AS" & z) & Range("AT" & z) & Range("AU" & z), "0000")
If InStr(1, UCase(nrox), "X", 0) = 0 Then
Range("AW" & finy) = nrox: finy = finy + 1
End If
Next z
End If
End Sub
Me gustaría tener esta macro, lo que deseo es filtrar en orden alfabeto pero el texto lo tengo combinado en tres columnas - Consultas Consultas
Consultas Consultas No hay ninguna macro nueva más que la que dejó el usuario que podés copiarla y adaptarla a tu necesidad. El usuario ya no necesita lo que solicitó al inicio por lo tanto no hay ninguna macro nueva que aportar. Deja tu propia consulta en el tablón y con todas las aclaraciones según tu caso. Habrás leído que este espacio no es para resolver consultas. Sdos! - Elsa Matilde