Generar listado de hojas que empiecen por "Nº" xxx

Para Dante Amor

Como puedo generar un listado en Rango "R15 hacia abajo" de la "Hoja1" de todas las hojas que empiecen por "Nº", por ejemplo Nº 35 ABEL, Nº 36 MARTINEZ,...etc

Gracias

1 Respuesta

Respuesta
1

¿Pero qué quieres generar?

¿Quieres copiar el rango R15 de la hoja1 a todas las hojas que empiecen con Nº?

Puedes explicarlo con un ejemplo.

No al contrario

Hoja1 ceda R15 debe aparecer nombre de primera hoja cuyo nombre empiece por Nº

Hoja1 celda R16 debe aparecer nombre de segunda hoja cuyo nombre empiece por Nº

Hoja1 celda R17 debe aparecer nombre de tercera hoja cuyo nombre empiece por Nº

y así con todas las hojas que empiecen con Nº 

Solo es para recordarte que ésta pregunta sigue activa

Te anexo la macro

Sub hojas()
'Por.Dante Amor
    j = 15
    For Each h In Sheets
        If Left(h.Name, 2) = "Nº" Then
            Cells(j, "R") = h.Name
            j = j + 1
        End If
    Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas