Filtrar y copiar en hojas diferentes, no siempre funciona

[Deima Ordenadores]

Buenos dias a todos,

En una consulta anterior quería hacer lo siguiente:

Tengo una Tabla y quisiera a través de una macro 
que todos los datos que tengo en una columna filtrados
se me copien en hojas diferentes con el mismo nombre que los datos.

Ejemplo: en la Columna F "Categoria" tengo los siguientes datos
SSD, Procesadores, Altavoces, Tablets, etc... y si filtro esta "Categoria"
quiero que se copien en hojas separadas con los nombres
de cada una SSD, Procesadores, Altavoces, Tablets, etc...

Y muy amablemente Antoni me creo la siguiente Macro:

En 25/9/2018 at 20:36 , Antoni dijo:

Error mio, me he olvidado de calificar un rango, mis disculpas.

Sub HojasPorCategoría()
Application.ScreenUpdating = False
Set dmi = Sheets("DMI")
For x = 2 To dmi.UsedRange.Rows.Count
   If dmi.Rows(x).Hidden = False Then '<----------------------------------------
      If Existe(dmi.Range("F" & x).Value) = False Then
         Sheets.Add.Name = dmi.Range("F" & x).Value
         dmi.Rows(1).Copy
         ActiveSheet.Paste
      End If
      With Sheets(dmi.Range("F" & x).Value)
         dmi.Rows(x).Copy .Rows(.Range("A" & Rows.Count).End(xlUp).Row + 1)
      End With
   End If
Next
End Sub
'-------------------------------------------------
Private Function Existe(Hoja As String) As Boolean
On Error GoTo ExitFunction
Sheets(Hoja).Select
Existe = True
Exit Function
ExitFunction:
End Function

El Problema es que en unos ficheros funciona y en otros muy parecidos NO

Me crea otra hoja de mas y da error de tiempo de ejecución

Saludos

Macro Antoni Funciona.xlsm

Macro Antoni No Funciona.xlsm

[Deima Ordenadores]

Hola a todos,

Por si no lo he dejado claro necesito que la Macro de Antoni me funcione también en el fichero Macro Antoni No Funciona.xlsm

Saludos

[Gerson Pineda]

Hola Deima

Te adjunto mi version, se trabaja sobre la Tabla1

Revisa, evalúa y prueba el adjunto

 

Saludos 

Copiar datos filtrados a hojas_GP.rar

[Deima Ordenadores]

Muchas gracias Gerson Pineda,

Funciona perfectamente con tu macro.

¿ Pero que tendría que cambiar para que hiciera lo mismo si el filtro está en la Columna B ?

[Gerson Pineda]

Hola

Hace 3 horas, Deima Ordenadores dijo:

¿ Pero que tendría que cambiar para que hiciera lo mismo si el filtro está en la Columna B ?

 

Modifica:

Esto
Set vrc = vtbl.Offset(, 5).Resize(, 1)

Por
Set vrc = vtbl.Offset(, 1).Resize(, 1)

Y esto
vrc.AutoFilter 6, cu

Por
vrc.AutoFilter 2, cu

Saludos 

[Deima Ordenadores]

Muchas gracias Gerson Pineda,

Funciona perfectamente y además ya lo he entendido para poder aplicarlo a cualquiera otra columna.

Saludos cordiales,