Oi,
Estou trabalhando no Excel 2013,
Eu preciso do Autofiltro "#N/A" na coluna "F", se filtrar o "#N/A" nenhum dado com o título, o código "Goto 0:" faz...
mas, meu código não está funcionando, vá para 0:
Subtestesss()
'Filtro Inserir e #N/D Copiar e Colar
'VBA - Desligue o filtro automático do código
Se ActiveSheet.AutoFilterMode Então
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> Ativar Autofiltro
Se acabar
'Filtro Automático Filtro de Células em Branco da 2ª Coluna
Escurecer a última linha por muito tempo
LastRow = Range("B" & Rows.Count).End(xlUp).Row
On Error Resume Next 'se filtro então nenhum dado vai em seguida
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Não Aplicável Filtro de Células então selecione as células visíveis
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Select
'Para de copiar e colar se o intervalo filtrado não tiver dados
If Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Then
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
'Faça Algo Código.........
Application.CutCopyMode = False
Outro
ActiveSheet.AutoFilterMode = Falso
Ir para 0:
Se acabar
'Faça Algo Código.........
0:
End Sub
Por favor me ajude, obrigado pelo adiantamento
Pare de copiar e colar se o intervalo filtrado não tiver data.zip
Pare de copiar e colar se o intervalo filtrado não tiver data.zip
Estou trabalhando no Excel 2013,
Eu preciso do Autofiltro "#N/A" na coluna "F", se filtrar o "#N/A" nenhum dado com o título, o código "Goto 0:" faz...
mas, meu código não está funcionando, vá para 0:
Subtestesss()
'Filtro Inserir e #N/D Copiar e Colar
'VBA - Desligue o filtro automático do código
Se ActiveSheet.AutoFilterMode Então
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> Ativar Autofiltro
Se acabar
'Filtro Automático Filtro de Células em Branco da 2ª Coluna
Escurecer a última linha por muito tempo
LastRow = Range("B" & Rows.Count).End(xlUp).Row
On Error Resume Next 'se filtro então nenhum dado vai em seguida
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Não Aplicável Filtro de Células então selecione as células visíveis
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Select
'Para de copiar e colar se o intervalo filtrado não tiver dados
If Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Then
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
'Faça Algo Código.........
Application.CutCopyMode = False
Outro
ActiveSheet.AutoFilterMode = Falso
Ir para 0:
Se acabar
'Faça Algo Código.........
0:
End Sub
Por favor me ajude, obrigado pelo adiantamento
Pare de copiar e colar se o intervalo filtrado não tiver data.zip
Pare de copiar e colar se o intervalo filtrado não tiver data.zip