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

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

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

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 ?

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 

Muchas gracias Gerson Pineda,

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

Saludos cordiales,