Boa tarde!!
Caso usar o filtro avançado, tente usar intervalo dinâmico!!..ou use vba
Será que tem algum limite? ou provoquei algum erro de formatação?
É possível que tenha limite!
Nesta linha é demonstrado com contar as linhas
Código: Selecionar todosPrivate Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim myRange As Range
On Error Resume Next
Set myRange = Intersect(Range("A1"), Target)
If Not myRange Is Nothing Then
'Caso queira deletar as linhas use--> .EntireRow.Delete
Worksheets("Imprimir").Range("A4:F100000").ClearContents
Application.EnableEvents = False
With Worksheets("Balanco")
.Range("A1:D" & .Cells(.Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=3, Criteria1:=Worksheets("Imprimir").Range("A1").Value
.Range("A2:D" & .Cells(.Rows.Count, 1).End(xlUp).Row).SpecialCells(xlVisible).Copy ThisWorkbook.Worksheets("Imprimir").Range("A4")
End With
Application.EnableEvents = True
With Worksheets("Imprimir")
.Columns.AutoFit
.Range("A1").Select
End With
End If
End Sub
Espero ter Ajudado.
Se a mensagem foi util Favor
Clicar na mãozinha.
Quando necessário, lembre se de marcar o tópico como
[RESOLVIDO].
Tenha um bom dia