error 91

[jorgeqp87]

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

[Antoni]

No encuentra el dato, inténtalo así:

set celda = rng.Find(what:=ActiveSheet.Name, lookat:=xlWhole, MatchCase:=False)
if not celda is nothing then
  fila = celda.row
  secop = Sheets("IMPRESION_SEC_OP").Cells(fila, 1).Text
end if

 

[jorgeqp87]

El dato si está,..no funcionó, pero gracias.

[jorgeqp87]

 fila = rng.Find(what:=ActiveSheet.Name, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False).Row

 

solucionado.