Agregar statusbar a este código macro
Sub Filtrando()
Dim nrox As String
Application.ScreenUpdating = False
Application.StatusBar = False
finx = Range("C" & Rows.Count).End(xlUp).Row
Range("C1:F219").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("J1:M2"), CopyToRange:=Range("J3:M280"), Unique:=True
finx = Range("J" & Rows.Count).End(xlUp).Row
If finx > 3 Then
'se arman los números concatenados en DU si no tienen X
finy = Range("O" & Rows.Count).End(xlUp).Row + 1
For Z = 4 To finx
Application.StatusBar = cstr(Z) & " de " & cstr(finx)
nrox = Format(Range("J" & Z) & Range("K" & Z) & Range("L" & Z) & Range("M" & Z), "0000")
If InStr(1, UCase(nrox), "X", 0) = 0 Then
Range("O" & finy).NumberFormat = "@"
Range("O" & finy) = Format(nrox, "0000")
finy = finy + 1
End If
Next Z
End If
Application.StatusBar = false
End Sub
1 respuesta
Respuesta de Dante Amor
1
no me contabiliza las celdas
No cuenta las celdas
Si ejecutas la macro con F8, cuando llegas a la línea de statusBar, ¿qué valor tienes en finx y qué valor tienes en Z?
