La macro que estoy haciendo tiene dos listas en la columna a y otra en la columna b. con los nombres del rango de la columna "b", se van a crear unos libros con los nombres de esa columna, ese rango es nombrado como "sec_operativo". cuando se crea la hoja se va a copiar unas tablas dinamicas la cual se llena con informacion de los nombres de la columna "a", y tiene un nombre distinto, pero equivalente al de la columna b. es decir; cuando se crea el libro "san_pedro", en la tabla dinamica se debe filtrar colocando "58 - san pedro"
deberia salir asi:
sale asi:
y me sale este error
esta es la macro:, lo que esta en amarillo es donde dice esta el error.
Dim rng As Range
Dim cell As Range
Dim fila As Integer
Dim secop As String
Set rng = Sheets("IMPRESION_SEC_OP").Range("SEC_OPERATIVO").Cells
For Each cell In rng
If cell <> "" Then
Sheets.Add.Name = cell
ActiveWindow.DisplayGridlines = False
La macro que estoy haciendo tiene dos listas en la columna a y otra en la columna b. con los nombres del rango de la columna "b", se van a crear unos libros con los nombres de esa columna, ese rango es nombrado como "sec_operativo". cuando se crea la hoja se va a copiar unas tablas dinamicas la cual se llena con informacion de los nombres de la columna "a", y tiene un nombre distinto, pero equivalente al de la columna b. es decir; cuando se crea el libro "san_pedro", en la tabla dinamica se debe filtrar colocando "58 - san pedro"
deberia salir asi:
sale asi:
y me sale este error
esta es la macro:, lo que esta en amarillo es donde dice esta el error.
Dim rng As Range
Dim cell As Range
Dim fila As Integer
Dim secop As String
Set rng = Sheets("IMPRESION_SEC_OP").Range("SEC_OPERATIVO").Cells
For Each cell In rng
If cell <> "" Then
Sheets.Add.Name = cell
ActiveWindow.DisplayGridlines = False
Sheets("IMPRESION_SEC_OP").Range("I1:Q32").Copy
ActiveSheet.Paste
Range("a27").Select
fila = rng.Find(what:=ActiveSheet.Name, lookat:=xlWhole, MatchCase:=False).Row
secop = Sheets("IMPRESION_SEC_OP").Cells(fila, 1).Text
ActiveSheet.PivotTables(2).PivotFields("SECTOROPERATIVO").ClearAllFilters
ActiveSheet.PivotTables(2).PivotFields("SECTOROPERATIVO").CurrentPage = secop
End If
Next cell