Hola,

Estoy trabajando en Excel 2013,

Necesito el Autofiltro "#N/A" en la columna "F", si filtra el "#N/A" sin datos con el encabezado, el código "Ir a 0:" sí...

pero, mi código no funciona, vaya a 0:

Subpruebasss()
'Filtro Insertar y #N/A Copiar y Pegar
'VBA: desactivar el filtro automático desde el código
Si ActiveSheet.AutoFilterMode Entonces
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> Activar Autofiltro
Si terminar

'Filtro automático de celdas en blanco de la segunda columna
Atenuar la última fila mientras dure
LastRow = Range("B" & Rows.Count).End(xlUp).Row

On Error Resume Next 'if filter then no data go next
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Filtrar celdas no aplicables y luego seleccionar celdas visibles
Rango ("$ A $ 2: $ F" & LastRow). SpecialCells (xlCellTypeVisible). Seleccione

'Detener copiar y pegar si el rango filtrado no tiene datos
Si Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Entonces
Rango ("$ B $ 2: $ D" y Última fila). SpecialCells (xlCellTypeVisible). Seleccione
Selection.Copy
'Haz algo código.........
Application.CutCopyMode = False
otro
ActiveSheet.AutoFilterMode = Falso
Ir a 0:
Si terminar

'Haz algo código.........

0:
End Sub


Amablemente ayúdame, gracias por el avance
  Detener copiar y pegar si el rango filtrado no tiene data.zip
  Detener copiar y pegar si el rango filtrado no tiene data.zip